The following JCL and control statements build the alternate indexes CIS.MGA4000.AIX1, CIS.MGA4000.AIX2, and CIS.MGA4000.AIX3:
//BLDAIX JOB
//EXEC PGM=GVBLDIX,REGION=4M
//STEPLIB DD DSN=DCMVSAM.LINKLIB,DISP=SHR
//SORTOUT DD SYSOUT=X
//SORTWK01 DD SPACE=(CYL,5),UNIT=SYSALLDA
//SYSPRINT DD SYSOUT=X
//SYSOUT DD SYSOUT=A
//SYSIN DD *
MSGLEVEL=1
BASE=CIS.MGA4000
AIX=CIS.MGA4000.AIX1
KEYS(5 25) KEYS(5 35)
DROP=X'40404040404040404040'
DROP=C'DROP THIS '
AIX=CIS.MGA4000.AIX2
DROP=X'4040404040-
4040404040'
AIX=CIS.MGA4000.AIX3
|
Copyright © 2011 CA.
All rights reserved.
|
|