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 [email protected] with the message: INFO IBM-MAIN
