Figure 1. Sample JCL for
ACBJBARD/********************************************************************
//* *
//* SAMPLE JCL TO GENERATE DATA SET REPORT FROM DCOLLECT DATA *
//* *
//* 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
//********************************************************************
//* *
//* REPORT GENERATION STEP *
//* *
//* DCOLIN - DCOLLECT DATA (INPUT) *
//* ISPFILE - DATA SET REPORT (OUTPUT, FROM ALCISPFL STEP) *
//* SYSIN - KEY WORDS TO SPECIFY THE DATA IN THE OUTPUT *
//* *
//* CHOOSE FROM THE FOLLOWING PARAMETERS FOR DATA TO BE LISTED *
//* THE ORDER CHOSEN DETERMINES THE ORDER IN THE REPORT *
//* THE TOTAL REPORT WIDTH MAY NOT EXCEED 133 *
//* *
//* PARAMETERS: *
//* *
//* ALLOCSP | ALLOCSPC - ALLOCATED SPACE *
//* BACKUP | LASTBKUP - DATA SET'S LAST BACKUP DATE *
//* BLKUNUSED - BLOCKS UNUSED *
//* CHANGE | CHGIND - CHANGE INDICATOR FOR DATA SET *
//* CREATE | CREATEDT - DATA SET CREATION DATE *
//* DATACLAS | DC - DATACLAS OF DATA SET *
//* DSNAME | DSN - DATASETNAME *
//* DSNLENGTH - LIMIT DATASET NAME TO THIS NUMBER *
//* - OF CHARACTERS *
Figure 2. Sample JCL for ACBJBARD
(continued)//* DSORG - DATA SET ORGANIZATION *
//* ENTRYTYPE - ENTRY TYPE OF DATA SET *
//* EXPIRE | EXPIREDT - DATA SET EXPIRATION DATE *
//* LASTREF | LASTREFDT - DATA SET LAST REFERENCE DATE *
//* LRECL - RECORD LENGTH *
//* MGMTCLAS | MC - MANAGEMENT CLASS FOR DATA SET *
//* MULTVOL - IS THE DATA SET MULI-VOLUME? *
//* NUMEXT | EXTNUM - NUMBER OF EXTENTS *
//* PAGELENGTH - NUMBER OF LINES PER PAGE (DEF IS 60)*
//* PDSE - IS THE DATA SET A PDSE? *
//* REBLOCK | REBLK - IS THE DATA SET REBLOCKABLE? *
//* RECFM | RECFMT - RECORD FORMAT *
//* SMS | MANAGED - IS THE DATA SET MANAGED? *
//* STORCLAS | SC - STORAGE CLASS FOR DATA SET *
//* STORGRP | SG - STORAGE GROUP FOR DATA SET *
//* TITLE=XXXXX - TITLE FOR REPORT *
//* TOTALS - PRINT DSN SPACE TOTALS *
//* USED% - USED SPACE % *
//* VOLSEQ - VOLUME SEQUENCE NUMBER *
//* VOLSER - VOLUME SERIAL *
//* VVRCHK | VVR - IF SMS, IS THERE A VVR OR NVR? *
//* *
//********************************************************************
//GENREP EXEC ACBJBAOB,PLIB1=SYS1.DGTPLIB,TABL2=userid.TEST.ISPTABL
//DCOLIN DD DSN=IBMUSER.DCOLLECT.DATA,DISP=SHR
//ISPFILE DD DSN=IBMUSER.DATASET.REPORT,DISP=OLD
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(ACBQBAR7) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//SYSIN DD *
DSN
VOLSER
ALLOCSP
RECFM
BLKUNUSED
TITLE=DATA SET REPORT FROM DCOLLECT DATA - 06/01/96
TOTALS
BLKSIZE
EXTNUM
DSORG
STORCLAS
/*
//********************************************************************
//* *
//* COPY THE DATA SET REPORT *
//* *
//* SYSUT1 - INPUT (FROM PREVIOUS STEP) *
//* SYSUT2 - OUTPUT *
//* *
//********************************************************************
//REPGEN EXEC PGM=IEBGENER
//SYSUT1 DD DSN=IBMUSER.DATASET.REPORT,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//********************************************************************