SOLVED.... //ICETOOL EXEC PGM=ICETOOL,REGION=1024K //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //SHOWDEF DD SYSOUT=* //OCCRPT DD SYSOUT=* //IN1 DD DSN=SYS.AARMM000.REPTEXT,DISP=SHR //VRCDS DD DSN=&&IN2,DISP=(,DELETE), // UNIT=3390, // DSORG=PS,RECFM=VB,AVGREC=K, // SPACE=(TRK,(2000,2000),RLSE) //OUT1 DD DSN=&&OUT1,DISP=(,DELETE), // UNIT=3390, // DSORG=PS,RECFM=VB,AVGREC=K, // SPACE=(TRK,(2000,2000),RLSE) //OUTDD DD DSN=BORNAY.RMM.PHYUSE,DISP=(,CATLG,DELETE), // UNIT=SYSDA, // DCB=(BLKSIZE=3120,LRECL=98,RECFM=VB), // SPACE=(TRK,(2000,2000),RLSE) //TOOLIN DD * COPY FROM(IN1) TO(VRCDS) USING(AAAA) COPY FROM(VRCDS) TO(OUT1) USING(BBBB) DISPLAY FROM(OUT1) LIST(OUTDD) - TITLE('DFRMM LIST OF VOLUMES') - PAGE DATE(4MD/) TIME - HEADER('VOLSER') ON(5,6,CH) - HEADER('TAPE MB') ON(12,10,CH) - HEADER('% FULL') ON(23,3,CH) /* //AAAACNTL DD * INCLUDE COND=((5,1,CH,EQ,C'V'),AND,(322,6,CH,EQ,C'MASTER')) //BBBBCNTL DD * INCLUDE COND=((9,1,CH,EQ,C'F'),OR,(9,1,CH,EQ,C'G')) OUTREC FIELDS=(1,4,9,6,C' ',1091,10,C' ',779,3)
THE RESULT: DFRMM LIST OF VOLUMES - 1 - 2021/02/08 11:33:34 VOLSER TAPE MB % FULL -------------------- -------------------- -------------------- F00003 0 1 F00004 41 1 F00005 0 1 F00006 7 1 F00007 0 1 F00008 0 1 F00009 0 1 F00010 213 6 F00011 199 5 F00012 27 1 F00014 0 1 F00015 14 1 F00016 2 1 F00017 1 1 F00019 234 6 F00020 0 1 F00021 236 6 F00022 0 1 F00023 0 0 F00024 2780 70 F00025 0 1 F00028 0 1 F00029 567 15 F00030 0 1 F00032 0 1 F00033 21 1 …… ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN