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
2007-08-06
02:05:46
·
1 answers
·
asked by
Gabriel
1
in
Programming & Design