In the following example, MASTER.AIX1 and MASTER.AIX2 are built over MASTER.BASE. The password LGNT is used when opening MASTER.BASE. MASTER.AIX1 and 2 are opened with the reset option (reusable). BASE statements are read from the data set pointed to by the BASECLS DD. All of the related alternate indexes are built with a message level of 3 (information, warning, and error messages are reported).
The most prime pointers that MASTER.AIX1 can accumulate for an AIX key is five (NUNQLIMIT=5). DROP=X'00000000' drops the alternate index record that has a key of all zeros.
MASTER.AIX2 is a discontiguous key alternate index. The first portion of the key begins at offset 6 in the base record and has a length of 4 bytes. The second portion of the key is concatenated at offset 20 and is also 4 bytes in length.
//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=MASTER.BASE/LGNT
AIX=MASTER.AIX1
RESET
NUNQLIMIT=5
DROP=X'00000000'
AIX=MASTER.AIX2
RESET
KEYS(4 6) KEYS(4 20)
|
Copyright © 2011 CA.
All rights reserved.
|
|