Try this
//FSCRREP EXEC CTTRPT,REGION=32M
//SYSIN DD *
EXTRACT PATH=DATASET/ALLVOLUMES
INCLUDE VOLSTAT=ACTIVE
EXCLUDE DSNAME=1234
REPORT NAME=GENERAL,TITLE='TAPE DATASET LISTING'
FIELDS VOLSER,MEDIA,VOLSEQ,LBLTYP,VOLEXPDT,LACCDT,ACTIVEDS,LOCATION,
VOLSTAT,ID=S
FIELDS DSNAME,DSLABEL,DSEXPDT,CREDT,CREJBN,RECFM,BLKSIZE,
LRECL,BLOCKCT,ID=P
SORTBY DSNAME
ATTR FIELD=VOLSER,TITLE='VOLSER'
ATTR FIELD=MEDIA,TITLE='MEDIA TYPE'
ATTR FIELD=LBLTYP,TITLE='LABEL TYPE'
ATTR FIELD=VOLSEQ,TITLE='VOLUME/SEQUENTIAL/NUMBER'
ATTR FIELD=CREJBN,TITLE='JOB NAME'
ATTR FIELD=DSNAME,TITLE='DATASET NAME'
BREAK FIELD=DSEXPTYP,SUMTITLE='TOTAL DATASETS:'
From Mississippi of all places.
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Radoslaw Skorupka
Sent: Saturday, November 5, 2022 2:05 PM
To: [email protected]
Subject: Re: Batch to extract scratch tape listing
W dniu 26.10.2022 o 18:00, Peter pisze:
> Hello
>
> Is there a sample JCL to extract scratch Virtual tape count using batch?
Yes.
--
Radoslaw Skorupka
Lodz, Poland
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
