Figure 1. Sample JCL for
ACBJBAI2//********************************************************************/
//********************************************************************
//* *
//* SAMPLE JCL TO CREATE ISMF DATA SET LIST IN BATCH AND SAVE IT *
//* *
//* INSTRUCTIONS BEFORE SUBMITTING: *
//* *
//* CHANGE JOBCARD *
//* CHANGE PREFIX *
//* CHANGE PARAMETERS *
//* *
//* PARAMETERS: *
//* *
//* 46A/C @WA28670*
//* PARAMETER FOLLOWING SAVE - NAME OF THE SAVED LIST (OUTPUT) *
//* ALLOCSP - 0 to 9999999 (in Kilo Bytes) *
//* ALLOCUT - Allocation Unit, BLK/TRK/ABS/CYL/MB/KB/BYT @U1A*
//* BLKSIZE - 0 to 99999 (in Bytes) *
//* BLKUNUSED - 0 to 9999999 (in Kilo Bytes) *
//* CATNAME - ICF CATALOG name *
//* CATVOL - VOLUME used in catalog list *
//* CHGIND - YES/NO *
//* COMPFMT - YES/NO *
//* CREATEDT - YYYY/MM/DD (1900/01/01 to 2155/12/31) *
//* YY/MM/DD ( (19)00/01/01 to (19)99/12/31 ) *
//* CCSIDDSC - CCSID Description 3@U1A*
//* 0 to 65534 or A 1 to 17 character string *
//* that is not a number 0-65534 *
//* CFCSTNM - CF Cache Structure name @U1A*
//* CFCTNM - CF Cache Set name @U1A*
//* CFMOST - CF Monitor status ON/OFF @U1A*
//* CFSTIND - CF status indicator CE/CQ/VRRQ/VRLS/VQ @U1A*
//* DATACLS - DATA CLASS name *
//* DDMATTR - DDM Attributes YES/NO @U1A*
//* DEVTYPE - 3380/3390/9345 for DASD types *
//* - 3480/3480X/3490/3590-1/3592 for TAPE types *
//* DSENV - Dataset Environment MANAGED/UNMANAGED @U1A*
//* DSNTYP - DS name type EXTENDED/HFS/LIBRARY/OTHERS @U1A*
//* DSN - DATA SET NAME *
//* ('**' requires catalog name) *
//* DSORG - DA/DAU/IS/ISU/PO/POU/PS/PSU/UN/VS *
//* ENTRYTYP - AIX/ALIAS/CATALOG/DATA/INDEX/NONVSAM/PATH/ *
//* DEFERRED/GDG/GDS/ROLLOFF *
//* EXPIREDT - YYYY/MM/DD (1900/01/01 to 2155/12/31) or *
//* - YY/MM/DD ( (19)00/01/01 TO (19)99/12/31 ) or *
//* - NEVER or 1999/00/00 *
//* HSMDATA - Y / N (Catalog List) *
//* LASTBKUP - YYYY/MM/DD (1900/01/01 to 2155/12/31) *
//* YY/MM/DD ( (19)00/01/01 to (19)99/12/31 ) *
//* LASTREF - YYYY/MM/DD (1900/01/01 to 2155/12/31) *
//* YY/MM/DD ( (19)00/01/01 to (19)99/12/31 ) *
//* LISTTYP - Inclusive/Exclusive or I/E 3@U1A*
//* Inclusive: Display list by Inclusive criteria *
//* Exclusive: Display list by Enclusive criteria *
Figure 2. Sample JCL for ACBJBAI2
(continued)//* LRECL - 0 to 99999 (in Bytes) *
//* MGMTCLS - MANAGEMENT CLASS name *
//* MULTVOL - YES/NO *
//* NOTUSED% - 0 to 100 *
//* NUMEXT - 0 to 999 *
//* NUMSTRIPE - 1 to 16 *
//* OPTIMAL - 0 to 99999 (in Bytes) *
//* OWNER - OWNER of the datasets *
//* QSAVE - QUERY Name to be saved *
//* QUERY - QUERY Name to be used *
//* REBLOCK - YES/NO *
//* RECFMT - A/B/D/F/M/FS/VS/T/U/V *
//* SECALLOC - 0 to 99999999 (in Kilo Bytes) *
//* SOURCEGL - 1 / 2 (2-new list) *
//* SOURCENL - 1 / 2 (1-VTOC 2-catalog) *
//* STORCLS - STORAGE CLASS name *
//* STORGRP - STORAGE GROUP name *
//* USEDSPC - 0 to 9999999 (in Kilo Bytes) *
//* USERDATAREDUCT% - 0 to 99 *
//* VTOCDATA - Y / N (Catalog List) *
//* VTOCVSER - VTOC VOLUME SERIAL NUMBERS (VTOC list) *
//* *
//********************************************************************
//SAVELIST EXEC ACBJBAOB,
// PLIB1=SYS1.DGTPLIB,
// TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(ACBQBAI2 SAVE DSNLIST +
VTOCDATA(Y) HSMDATA(Y) +
ALLOCSP(GT 500) DSORG(NE PS) +
DSN('IBMUSER.**')) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************