//********************************************************************
//*                                                                  *
//* SAMPLE JCL TO GENERATE DATA SET REPORT FROM A PREVIOUSLY SAVED   *
//* ISMF DATA SET LIST                                               *
//*                                                                  *
//*   INSTRUCTIONS BEFORE SUBMITTING:                                *
//*                                                                  *
//*      CHANGE JOBCARD                                              *
//*      CHANGE PREFIX                                               *
//*      CHANGE PARAMETERS                                           *
//*                                                                  *
//********************************************************************
//********************************************************************
//*                                                                  *
//* DELETE STEP TO DELETE THE REPORT DATA SET IF IT EXISTS ALREADY   *
//*                                                                  *
//********************************************************************
//DELREP   EXEC  PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE IBMUSER.DATASET.REPORT
/*
//********************************************************************
//*                                                                  *
//* STEP TO ALLOCATE ISPFILE, WHERE THE GENERATED REPORT IS SAVED    *
//* NOTE: THE DATA SET BEING ALLOCATED SHOULD NOT BE A TEMPORARY     *
//*       DATA SET.                                                  *
//*                                                                  *
//********************************************************************
//ALCISPFL EXEC PGM=IEFBR14
//ISPFILE DD  DSN=IBMUSER.DATASET.REPORT,DISP=(NEW,CATLG),
//    BLKSIZE=0,SPACE=(TRK,(3,1)),RECFM=FBA,LRECL=133,UNIT=SYSDA
//********************************************************************
//*                                                                  *
//* DATA SET REPORT GENERATION STEP                                  *
//*                                                                  *
//*    PARAMETER FOLLOWING ACBQBAR1 - SAVED ISMF LIST (INPUT)        *
//*    ISPFILE - DATA SET REPORT (OUTPUT, FROM ALCISPFL STEP)        *
//*    SYSIN   - KEY WORDS SPECIFYING DATA IN THE REPORT             *
//*                                                                  *
//*    The Following parameters can be specified in SYSIN      42@U1A*
//*                                                                  *
//*    %NOTUSED                ->   % Space Not Used.                *
//*    ALLOCSP    | ALLOCSPC   ->   Allocated Space.                 *
//*    ALLOCUSED               ->   Used Space.                      *
//*    BACKUP     | LASTBKUP   ->   Last Backup Date.                *
//*    BLKSIZE    | CISIZE     ->   Block/CI Size.                   *
//*    BLKUNUSED               ->   Blocks Unused.                   *
//*    CCSIDDES                ->   CCSID Description.               *
//*    CFMONST                 ->   CF Monitor Status.               *
//*    CFSTATUS                ->   CF Status Indicator.             *
//*    CHANGE     | CHGIND     ->   Change Indicator.                *
//*    COMPRESS                ->   Compressed Format.               *
//*    CREATE     | CREATEDT   ->   Creation Date.                   *
//*    CSETNAME                ->   CF Cache set name.          1@U2C*
//*    CSTRNAME                ->   CF Cache Structure Name.         *

//*    DC         | DATACLAS   ->   Data Class Name.                 *
//*    DDMATTR                 ->   DDM attribute.                   *
//*    DEVICE     | DEVTYPE    ->   Device Type.                     *
//*    DSNAME     | DSN        ->   Dataset Name.                    *
//*    DSNAMETY                ->   Dataset Name Type.               *
//*    DSORG                   ->   Data Set Organization.           *
//*    ENTRY      | ENTRYTYPE  ->   Dataset Entry Type.              *
//*    ENVIRONMANT| ENVIR      ->   Dataset Environment.             *
//*    EXPIRE     | EXPIREDT   ->   Expiration Date.                 *
//*    LASTREF    | LASTREFDT  ->   Last referenced Date.            *
//*    LRECL                   ->   Record Length.                   *
//*    MC         | MGMTCLAS   ->   Management Class Name.           *
//*    MULTVOL                 ->   Multi Volume Status.             *
//*    NUMEXT     | EXTNUM     ->   Number of Extents.               *
//*    NUMSTR                  ->   Number of Stripes.               *
//*    OPTIMAL                 ->   Optimal Block/CI Size.           *
//*    OWNER                   ->   Owner.                           *
//*    REBLK      | REBLOCK    ->   Reblock Indicator.               *
//*    RECFM      | RECFMT     ->   Record Format.                   *
//*    SC         | STORCLAS   ->   Storage Class Name.              *
//*    SECALLOC   | ALLOCSEC   ->   Secondary Allocation.            *
//*    TOTALS                  ->                                    *
//*    UNIT       | ALLOCUNI   ->   Allocation Unit.                 *
//*    USERRED%                ->   % User Data Reduction.           *
//*    VOLSER                  ->   Volume Serial.                   *
//*    LSETNAME                ->   CF Lock set name.            @A1A*
//*    LSTRNAME                ->   CF Lock Structure Name.      @A1A*
//********************************************************************
//GENREP  EXEC ACBJBAOB,
//        PLIB1=SYS1.DGTPLIB,
//        TABL2=userid.TEST.ISPTABL
//ISPFILE DD  DSN=IBMUSER.DATASET.REPORT,DISP=OLD
//SYSTSIN  DD *
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(ACBQBAR1 DSNLIST) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//SYSIN DD  *
TITLE=LIST OF DATASETS FOR HIGHLEVEL QUALIFIER IBMUSER
DSN
VOLSER
LASTREF
EXTNUM
TOTALS
/*
//********************************************************************
//*                                                                  *
//* COPY THE DATA SET REPORT                                         *
//*                                                                  *
//*    SYSUT1 - INPUT (FROM PREVIOUS STEP)                           *
//*    SYSUT2 - OUTPUT                                               *
//*                                                                  *
//********************************************************************
//STEP2  EXEC PGM=IEBGENER
//SYSUT1   DD  DSN=IBMUSER.DATASET.REPORT,DISP=SHR
//SYSUT2   DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*