Figure 1. Sample JCL for
ACBJBAI4 Part 1 of 3//********************************************************************
//* *
//* SAMPLE JCL TO GENERATE ISMF DASD VOLUME LIST IN BATCH, SAVE IT, *
//* AND SAVE THE QUERY ALSO *
//* *
//* INSTRUCTIONS BEFORE SUBMITTING: *
//* *
//* CHANGE JOBCARD *
//* CHANGE PREFIX *
//* CHANGE PARAMETERS *
//* *
//* PARAMETERS: *
//* 36A/C @WA*
//* PARAMETER FOLLOWING SAVE - NAME OF SAVED LIST (OUTPUT) *
//* ALLOCSP - 0 to 99999999 followed by K (kilobytes) or *
//* M (megabytes). If K or M aren't specified *
//* the value will be defaulted to K. *
//* ALSPTRK - 0 to 99999999 followed by K (kilobytes) or *
//* M (megabytes). If K or M aren't specified *
//* the value will be defaulted to K. *
//* CDSNAME - Control Dataset Name *
//* CFVOLST - CF Volume status ENABLED/QUIESCING/QUIESCED @U1A*
//* CFWSTAT - ACTIVE/INACTIVE/NONE/PENDING/PINNED *
//* DEVTYPE - 3380/3390/9345 *
//* - Installation defined esoteric names(like SYSDA ..) *
//* DFWSTAT - ACTIVE/INACTIVE/NONE/PENDING/PINNED *
//* DUPLXSTAT - NONE / PPRI-FAI / PPRI-PEN / PPRI-SUS / PPRIMARY/ *
//* PRI-PEN / PRI-SUS / PRIMARY / PSEC-FAI / PSEC-PEN/ *
//* PSEC-SUS /PSECNDRY/ SEC-PEN / SEC-SUS / SECONDRY/ *
//* SIMPLEX / SPAR-BRK / SPAR-PEN / SPARE *
//* FRAG - 1 to 999 *
//* FREEDSCB - 0 to 99999 *
Figure 2. Sample JCL for ACBJBAI4
Part 2 of 3//* FREESPC - 0 to 99999999 followed by K (kilobytes) or *
//* M (megabytes). If K or M aren't specified *
//* the value will be defaulted to K. *
//* FRSPTRK - 0 to 99999999 followed by K (kilobytes) or *
//* M (megabytes). If K or M aren't specified *
//* the value will be defaulted to K. *
//* FREESPC% - 0 to 100 (with no % sign) *
//* FREEVIR - 0 to 99999 *
//* FREEXT - 0 to 9999999 *
//* FROMDEV - 1 to 4 HexaDecimal digits *
//* INDEX - DISABLED/ENABLED/NONE *
//* INIASRES - Initialized as Reserved (YES / NO) *
//* LASTDEV - 1 to 4 HexaDecimal digits *
//* LISTTYP - Inclusive/Exclusive or I/E *
//* Inclusive: Display list by Inclusive criteria *
//* Exclusive: Display list by Enclusive criteria *
//* LRGEXT - 1 to 99999999 followed by K (kilobytes) or *
//* M (megabytes). If K or M aren't specified *
//* the value will be defaulted to K. *
//* LGEXTRK - 1 to 99999999 followed by K (kilobytes) or *
//* M (megabytes). If K or M aren't specified *
//* the value will be defaulted to K. *
//* OTHERDEV - 1 to 4 Hex Decimal digits *
//* OWNERID - Owner ID, 1 to 14 characters *
//* PHYDATA - Y / N *
Figure 3. Sample JCL for ACBJBAI4
Part 3 of 3//* PHYSTAT - CONVERT/INITIAL/NONSMS/UNKNOWN *
//* QSAVE - Query Name to be saved *
//* QUERY - Query Name to be used *
//* RDCACHE - ACTIVE/INACTIVE/NONE/PENDING *
//* SHRDASD - YES / NO *
//* SOURCEGL - 1 / 2 (2-New List) *
//* SOURCENL - 1 / 2 (1-Physical, 2-SMS) *
//* SPCDATA - Y / N *
//* STORGRP - Stotage Group name (SMS only) *
//* SUBSYSID - 0001 to FFFF (in HexaDecimal) *
//* USEATTR - PRIV/PUB/STOR *
//* VOL - Volume serial *
//* VOLSTYPE - 1 / 2 / 3 (1-On Line 2-Not On Line 3-Either) *
//* *
//********************************************************************
//DASDLST EXEC ACBJBAOB,
// PLIB1=SYS1.DGTPLIB,
// TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER) MSGID
ISPSTART CMD(ACBQBAI4 +
SAVE CHKFRAG QSAVE(CHKFRAG) +
SPCDATA(Y) PHYDATA(Y) +
VOL(TSC*) FRAG(GT 450)) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************