Dan Great idea, this seems to do the job but may need a bit more work.
/*REXX*/ /* */ /* The purpose of this is to enable every member of a PDS */ /* so be submitted in order. */ /* Run it like this */ /* TSO EXEC 'MY.EXEC(SUBNEXT)' 'TEST.JCL :' */ /* */ /* The : means start at the first member, specify the actual */ /* member name to start at the member after that */ /* TSO EXEC 'MY.EXEC(SUBNEXT)' 'TEST.JCL MEMBER01' */ /* will submit MEMBER02. */ /* */ /* To start using a batch job just use the JCL queued below. */ /* */ /* It reads in a JCL member adds a return code check as the */ /* last step and then submits it. */ /* When it runs at the end of the submitted job it MAY then */ /* submit the next job automatically. */ /* */ ARG pds_name mem_name if pds_name = '' then pull pds_name if mem_name = '' then pull mem_name pds_name = strip(pds_name) mem_name = strip(mem_name) say 'input PDS name =' pds_name say 'input member name =' mem_name the_pds = "'"pds_name"'" X = OUTTRAP('ML.') "LISTDS "the_pds" MEMBERS" X = OUTTRAP('OFF') if mem_name = ':' then new_mem = strip(ML.7) /* get first member */ else do mo_re = '0' new_mem = '' DO N = 7 TO ML.0 if mo_re = '1' then do /* got last member name */ new_mem = strip(ML.N) /* then get this as next */ leave /* exit loop */ end if ML.N = mem_name then mo_re = '1' END end if new_mem = '' then do say 'no more member names' exit end say 'new member name =' new_mem PDSIN = "'"pds_name"("||new_mem||")'" say 'allocating INFILE to' PDSIN "ALLOC FILE(INFILE) DSN("PDSIN") SHR" if rc /= 0 then do say 'alloc rc = ' rc exit end "EXECIO * DISKR INFILE (STEM INREC. FINIS" DO I = 1 TO INREC.0 /* read all the lines of the member */ QUEUE INREC.I /* and queue them */ END "FREE FILE(INFILE)" Queue "//CHECKRC EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(0,NE) " Queue "//SYSTSIN DD * " Queue " EXEC 'MY.EXEC(SUBNEXT)' " Queue " " pds_name " " Queue " " new_mem " " Queue "//SYSTSPRT DD SYSOUT=* " Queue "ZZ" "SUBMIT * END(ZZ)" EXIT ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN