Figure 1. Sample JCL for
ACBJBAOD//********************************************************************
//* *
//* 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. *
Figure 2. Sample JCL for ACBJBAOD
(continued)//* 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=*