MVS CA-1 JCL Question?

Question

I am trying to update several hundred tapes in tms using TMSUPDTE. The tapes are random volsers with different conditions, so a TMSGRW is out of the question. I would like to scan the tapes into a list then use that list as input source file.

//TMCUPDT JOB (HCSCSCCO,),'some user',
// MSGLEVEL=(1,1),CLASS=U,
// PRTY=12,MSGCLASS=T,NOTIFY=someuser
//S1 EXEC PGM=TMSUPDTE,PARM='TEST'
//STEPLIB DD DISP=SHR,DSN=SYS.PROD.TMS.LOAD.RESTRICT
//TMSRPT DD SYSOUT=*
//SYSIN DD *

for /f %list% in (mydataset) do

VOL %list%,NODSN
REP OUTCODE=HEXZERO
REP OUTDATE=ZEROS
REP SLOT=HEXZEROS

Answer 1

(That oughta keep yer operators busy for awhile!) I'm at home so I don't have my ol' manuals handy but, one thing I notice right off is, you don't have a target for the (unlikely but logically important) possibility the list is empty? Where's either (1) a jobstep before S1 for opening the dataset to hold the tape volume list to be written, one vol at a time, by your loop, or (2) a var in S1 to build and hold an array of tapes? (I personally don't know TMS, I just remember REXX...). Where's the step for closing the list of tapes to be used later?

I would think, most likely, you'd use the path, (1), use a jobstep before S1 to open a temp file, (2) In S1, set up to write out a record each time to that temp file if the conditions are met, then (3) a step after S1 to use the resulting tapes, and (4) a jobstep after that to cleanup and erase the temp file...but...I'm likely not giving you the real help you need IN S1, que no?