Figure 1. Sample JCL for
ACBJBAOF//********************************************************************
//* *
//* SAMPLE JCL TO SORT A PREVIOUSLY SAVED DASD VOLUME LIST AND @D1C*
//* GENERATE A DASD VOLUME REPORT FROM IT. @D1C*
//* *
//* INSTRUCTIONS BEFORE SUBMITTING: *
//* *
//* CHANGE JOBCARD *
//* CHANGE PREFIX *
//* CHANGE PARAMETERS *
//* *
//********************************************************************
//********************************************************************
//* *
//* DELETE STEP TO DELETE THE REPORT IF IT EXISTS ALREADY *
//* *
//********************************************************************
//DELREP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE IBMUSER.DASDVOL.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.DASDVOL.REPORT,DISP=(NEW,CATLG),
// BLKSIZE=0,SPACE=(TRK,(3,1)),RECFM=FBA,LRECL=133,UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
/*
//********************************************************************
//* *
//* STEP TO SORT A PREVIOUSLY SAVED DASD VOLUME LIST AND @D1C*
//* GENERATE A DASD VOLUME REPORT FROM IT. @D1A*
//* *
//* PARAMETERS FOLLOWING ACBQVAR1 - ISMF SAVED LIST (INPUT); @D1C*
//* SORT(column name) (INPUT) - 3@D1A*
//* to sort list by the data column *
//* in ascending order. *
//* ISPFILE - DASD VOLUME REPORT (OUTPUT, FROM ALCISPFL STEP) *
//* SYSIN - KEY WORDS TO SPECIFY THE DATA IN THE REPORT *
//* *
//* The following parameters can be specified in SYSIN. 25@U1A *
//* *
Figure 2. Sample JCL for ACBJBAOF
(continued)//* VOLSER -> Volume Serial *
//* FREESPC | FREESP -> Free Space *
//* FRSPCTRK | FRSPTRK -> Free Space in TRK-Managed @A0A*
//* %FREE -> % Free *
//* ALLOCSPC | ALLOCSP -> Allocated Space *
//* ALSPCTRK | ALSPTRK -> Alloc Space in TRK-Managed @A0A*
//* FRAG | FRAGINDX -> Fragmentation Index *
//* LRGEXT | EXTLRG -> Largest Extent *
//* LGEXTRK | EXTLGTRK -> Largest Ext in TRK-Managed @A0A*
//* FREEXT | EXTFREE -> Free Extents *
//* INDXSTAT | STATINDX -> Index Status *
//* FREEDSCB | DSCBFREE -> Free DSCBS *
//* FREEVIRS | VIRSFREE -> Free Vtoc Index Records *
//* DEVICE | DEVICETYPE -> Device Type *
//* DEVNUM | ADDRESS -> Device Number *
//* SHARE | SHRDASD -> Shared DASD *
//* USE | USEATTR -> Use Attributes *
//* RDCACHE | RDSTAT -> RD Cache Status *
//* DASDFW -> DASD FW Status *
//* CACHEFW -> Cache FW Status *
//* DUPLEX | DUPLEXST -> Duplex Status *
//* OTHER | OTHERDEV -> Other Device *
//* SUBSYS | SUBSYSID -> Subsys ID *
//* PHYSTAT | STATPHYS -> Physical Status *
//* STORGRP | SG -> Storage Group Name *
//* CFVOLST -> CF Volume Status *
//* INIASRES -> Initialized as Reserved *
//* OWNERID -> Owner ID *
//********************************************************************
//GENREP EXEC ACBJBAOB,
// PLIB1=SYS1.DGTPLIB,
// TABL2=userid.TEST.ISPTABL
//ISPFILE DD DSN=IBMUSER.DASDVOL.REPORT,DISP=OLD
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(ACBQVAR1 DASDLIST SORT(column name)) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//SYSIN DD *
VOLSER
INDXSTAT
FRAG
USEATTR
SG
TITLE=STATUS OF VOLUMES THAT ARE SMS MANAGED
/*
//********************************************************************
//* *
//* COPY THE DASD VOLUME REPORT *
//* *
//* SYSUT1 - INPUT (FROM PREVIOUS STEP) *
//* SYSUT2 - OUTPUT *
//* *
//********************************************************************
//REPGEN EXEC PGM=IEBGENER
//SYSUT1 DD DSN=IBMUSER.DASDVOL.REPORT,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//*