Under Construction (January 2007)
This document presents advanced topics related to VSAM alternate indexes, and includes the following sections:
The reader is assumed to have a basic understanding of VSAM alternate indexes. Readers who do not have such an understanding can acquire it by reading the IBM documentation or other documents available on the Internet.
VSAM Alternate Indexes are documented in the Access to Records through Alternate Indexes section of the DFSMS Using Data Sets manual.
The DEFINE Alternate Index Command and BLDINDEX Command are documented in Access Method Services manual.
A VSAM Alternate Index (AIX) is similar to a KSDS and made up of an INDEX and a DATA component. Records in the DATA component of an AIX have a 5-byte prefix which define the format of the rest of the record. The format of an AIX record is as follows:
| 00 | Flag Byte | Contains X'00' if the base cluster is an ESDS, X'01' if it is a KSDS |
| 01 | Length of Pointer | If the base cluster is an ESDS, this field contains X'04'. If the base cluster is a KSDS, this field contains the 8-bit length of the primary key |
| 02 | Count of number of pointers | Always X'0001' if the AIX is DEFINE'd with the UNIQUEKEY attribute. If the AIX is DEFINE'd with the NONUNIQUEKEY attribute and duplicate keys are present, the count may have a value greater than 1, up to 32767 |
| 04 | Length of alternate key | Key length of the alternate index |
| 05 | Alternate key | Alternate index key |
| ** | Pointer(s) to base record(s) | 4-byte RBA (ESDS) or primary key (KSDS); if the AIX is DEFINE'd with the NONUNIQUEKEY attribute, multiple pointers may be present, as specified in the count field at offset 02 in the AIX record. |
The pointer contained in each AIX record is the RBA of the record in the base cluster if it is an ESDS, or the key of the record of the base cluster if it is a KSDS. Using the key instead of the RBA for KSDS records has a negative impact on performance, but ensures consistency with CI/CA splits which may occur in the base cluster.
Although a DEFINE AIX command fails if the base cluster is DEFINE'd with the REUSE attribute, an alternate index may, itself, be defined with either REUSE or NOREUSE. An AIX DEFINE'd with REUSE can be the object of multiple BLDINDEX commands without intermediate DELETE/DEFINE commands.
When an alternate index is defined with NONUNIQUEKEY, an alternate key can point to a maximum of 32767 base records. The default value for the RECORDSIZE parameter for an AIX is 32600 which only permits a maximum of 16297 base records in the best circumstances. If RECORDSIZE is not big enough, BLDINDEX issues the following message and fails with RC=4:
Note that because an AIX always has the SPANNED attribute, the maximun value specified for RECORDSIZE can exceed 32760. To calculate the RECORDSIZE value needed for a particular configuration, see the IBM documentation for the IDCAMS BLDINDEX command.
See the two examples below.
A VSAM Alternate Index (AIX) is generally built with the IDCAMS BLDINDEX command, which reads the base cluster's records, creates AIX records, sorts them, and writes them out to the AIX.
It is recommended to use the SORTCALL option of the BLDINDEX command which invokes the SORT utility program to sort the AIX records. The SORTCALL option was added (and became the default option) in the 1980s, and is more efficient than IDCAMS's own ESORT capability when creating large indexes. Specifying SORTMESSAGELEVEL(ALL) ensures all of the SORT messages are written to SYSOUT. Example:
//BIX1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SORTWK01 DD SPACE=(CYL,(50,50)) //SORTWK02 DD SPACE=(CYL,(50,50)) //SYSIN DD * BLDINDEX IDS(VSAMAIX.BIX.ESDS) ODS(VSAMAIX.BIX.AIX) SORTMESSAGELEVEL(ALL) /*
Note: IDCAMS allocates the SYSOUT and SORTWKxx data sets dynamically if they're not present in the JCL.
Using INFILE/OUTFILE instead of INDATASET and OUTDATASET allows the specification of BUFSP in the JCL and significantly reduces the I/O activity of the BLDINDEX command. Example:
//BUFSP EXEC PGM=IDCAMS //ESDS DD DSN=VSAMAIX.BIX.ESDS,DISP=SHR,AMP='BUFSP=500000' //AIX DD DSN=VSAMAIX.BIX.AIX,DISP=SHR,AMP='BUFSP=500000' //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SORTWK01 DD SPACE=(CYL,(50,50)) //SORTWK02 DD SPACE=(CYL,(50,50)) //SYSIN DD * BLDINDEX IFILE(ESDS) OFILE(AIX) SORTML(ALL) /*
Note: BLDINDEX allows the specification of several indexes, as shown in the KSDS example below. This has no effect on performance, as BLDINDEX still reads the base cluster once for each of the alternate indexes.
Once the format of an AIX record is understood, it is fairly trivial to write a program to replace IDCAMS BLDINDEX and, for example, create a partial index. As far as the program is concerned, writing AIX records is the same as writing KSDS records.
Several non-IBM products are available to speed up the creation of an AIX; some of these products allow the creation of several indexes in a single pass, others allow the creation of partial indexes by selecting specific records from the base cluster. The alternatives to BLDINDEX we know of are the following:
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 1
0
DEF CL(NAME(VSAMAIX.BIX.ESDS) RECORDS(10 5) RECSZ(80 80) NIXD NRUS)
0IGD01010I STORGRP_ACS: STORCLAS(DEFAULT) STORGRP(DEFAULT) DSN(VSAMAIX.BIX.ESDS)
0IDC0508I DATA ALLOCATION STATUS FOR VOLUME PRIM14 IS 0
0IDC0512I NAME GENERATED-(D) VSAMAIX.BIX.ESDS.DATA
IDC0181I STORAGECLASS USED IS DEFAULT
IDC0181I DATACLASS USED IS SMALL
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
IF MAXCC > 4 THEN CANCEL ;
/*-+----1----+----2----+----3----+----4----+----5----+----6----+----7
REPRO IFILE(SYSIN) ODS(VSAMAIX.BIX.ESDS) COUNT(4)
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 4
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
DEF AIX(NAME(VSAMAIX.BIX.AIX) REL(VSAMAIX.BIX.ESDS) -
KEYS(30 0) RECORDS(10 5) NUNQK)
0IDC0508I DATA ALLOCATION STATUS FOR VOLUME PRIM14 IS 0
0IDC0509I INDEX ALLOCATION STATUS FOR VOLUME PRIM14 IS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 2
0IDC0512I NAME GENERATED-(D) VSAMAIX.BIX.AIX.DATA
0IDC0512I NAME GENERATED-(I) VSAMAIX.BIX.AIX.INDEX
IDC0181I STORAGECLASS USED IS DEFAULT
IDC0181I DATACLASS USED IS SMALL
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
IF MAXCC > 4 THEN CANCEL ;
DEF PATH(NAME(VSAMAIX.BIX.PATH) PENT(VSAMAIX.BIX.AIX))
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
IF MAXCC > 4 THEN CANCEL ;
BLDINDEX IDS(VSAMAIX.BIX.ESDS) ODS(VSAMAIX.BIX.AIX)
0IDC0652I VSAMAIX.BIX.AIX SUCCESSFULLY BUILT
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
PRINT IDS(VSAMAIX.BIX.ESDS) CHAR
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 3
-LISTING OF DATA SET -VSAMAIX.BIX.ESDS
0RBA OF RECORD - 0
B33333333333333333333333333333A11111111 C222222222222222222
0RBA OF RECORD - 80
B22222222222222222222222222222A22222222 C111111111111111111
0RBA OF RECORD - 160
B11111111111111111111111111111A33333333 C333333333333333333
0RBA OF RECORD - 240
B11111111111111111111111111111A44444444 C444444444444444444
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 4
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 4
0
PRINT IDS(VSAMAIX.BIX.PATH) CHAR
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 5
-LISTING OF DATA SET -VSAMAIX.BIX.PATH
0KEY OF RECORD - B11111111111111111111111111111
B11111111111111111111111111111A33333333 C333333333333333333
0KEY OF RECORD - B11111111111111111111111111111
B11111111111111111111111111111A44444444 C444444444444444444
0KEY OF RECORD - B22222222222222222222222222222
B22222222222222222222222222222A22222222 C111111111111111111
0KEY OF RECORD - B33333333333333333333333333333
B33333333333333333333333333333A11111111 C222222222222222222
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 4
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 6
0
PRINT IDS(VSAMAIX.BIX.AIX) DUMP
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 7
-LISTING OF DATA SET -VSAMAIX.BIX.AIX
0KEY OF RECORD - C2F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1
000000 00040002 1EC2F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 *.....B11111111111111111111111111*
000020 F1F1F100 0000A000 0000F0 *111.......0 *
0KEY OF RECORD - C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2
000000 00040001 1EC2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 *.....B22222222222222222222222222*
000020 F2F2F200 000050 *222...& *
0KEY OF RECORD - C2F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3
000000 00040001 1EC2F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 *.....B33333333333333333333333333*
000020 F3F3F300 000000 *333.... *
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 3
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 8
0
LISTC ENT(VSAMAIX.BIX.ESDS VSAMAIX.BIX.AIX VSAMAIX.BIX.PATH) ALL
0CLUSTER ------- VSAMAIX.BIX.ESDS
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
SMSDATA
STORAGECLASS ----DEFAULT MANAGEMENTCLASS---(NULL)
DATACLASS ---------SMALL LBACKUP ---0000.000.0000
BWO STATUS------00000000 BWO TIMESTAMP---00000 00:00:00.0
BWO---------------(NULL)
RLSDATA
LOG ----------------(NULL) RECOVERY REQUIRED --(NO) FRLOG ------------(NULL)
VSAM QUIESCED -------(NO) RLS IN USE ---------(NO)
0 LOGSTREAMID-----------------------------(NULL)
RECOVERY TIMESTAMP LOCAL-----X'0000000000000000'
RECOVERY TIMESTAMP GMT-------X'0000000000000000'
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----VSAMAIX.BIX.ESDS.DATA
AIX------VSAMAIX.BIX.AIX
0 DATA ------- VSAMAIX.BIX.ESDS.DATA
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO-----------------------------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--VSAMAIX.BIX.ESDS
ATTRIBUTES
KEYLEN-----------------0 AVGLRECL--------------80 BUFSPACE-----------36864 CISIZE-------------18432
RKP--------------------0 MAXLRECL--------------80 EXCPEXIT----------(NULL) CI/CA------------------3
SHROPTNS(1,3) SPEED UNIQUE NOERASE NONINDEXED NOWRITECHK NOIMBED NOREPLICAT
UNORDERED NOREUSE NONSPANNED
STATISTICS
REC-TOTAL--------------4 SPLITS-CI--------------0 EXCPS------------------5
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP:
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB1CD483D000'
REC-RETRIEVED---------12 FREESPC------------36864
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------55296
SPACE-PRI--------------1 HI-U-RBA-----------18432
SPACE-SEC--------------1
VOLUME
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 9
0 VOLSER------------PRIM14 PHYREC-SIZE--------18432 HI-A-RBA-----------55296 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK------------3 HI-U-RBA-----------18432 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'01500000' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'01500000' HIGH-RBA-----------55295
0AIX ----------- VSAMAIX.BIX.AIX
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
SMS MANAGED--------(YES)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----VSAMAIX.BIX.AIX.DATA
INDEX----VSAMAIX.BIX.AIX.INDEX
CLUSTER--VSAMAIX.BIX.ESDS
PATH-----VSAMAIX.BIX.PATH
ATTRIBUTES
UPGRADE
0 DATA ------- VSAMAIX.BIX.AIX.DATA
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO-----------------------------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX
ATTRIBUTES
KEYLEN----------------30 AVGLRECL------------4086 BUFSPACE-----------41472 CISIZE-------------20480
RKP--------------------5 MAXLRECL-----------32600 EXCPEXIT----------(NULL) CI/CA------------------2
AXRKP------------------0
SHROPTNS(1,3) SPEED UNIQUE NOERASE INDEXED NOWRITECHK NOIMBED NOREPLICAT
UNORDERED REUSE SPANNED NONUNIQKEY
STATISTICS
REC-TOTAL--------------3 SPLITS-CI--------------0 EXCPS------------------4
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP:
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB1EA951D000'
REC-RETRIEVED----------6 FREESPC------------20480
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------40960
SPACE-PRI--------------1 HI-U-RBA-----------40960
SPACE-SEC--------------1
VOLUME
VOLSER------------PRIM14 PHYREC-SIZE--------10240 HI-A-RBA-----------40960 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK------------5 HI-U-RBA-----------40960 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA--------------1
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 10
0 EXTENTS:
LOW-CCHH-----X'01500001' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'01500001' HIGH-RBA-----------40959
0 INDEX ------ VSAMAIX.BIX.AIX.INDEX
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX
ATTRIBUTES
KEYLEN----------------30 AVGLRECL---------------0 BUFSPACE---------------0 CISIZE---------------512
RKP--------------------5 MAXLRECL-------------505 EXCPEXIT----------(NULL) CI/CA-----------------49
SHROPTNS(1,3) SPEED UNIQUE NOERASE NOWRITECHK NOIMBED NOREPLICAT UNORDERED
REUSE
STATISTICS
REC-TOTAL--------------1 SPLITS-CI--------------0 EXCPS------------------5 INDEX:
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1 LEVELS-----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP: ENTRIES/SECT-----------1
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB1EA951D000' SEQ-SET-RBA------------0
REC-RETRIEVED----------0 FREESPC------------24576 HI-LEVEL-RBA-----------0
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------25088
SPACE-PRI--------------1 HI-U-RBA-------------512
SPACE-SEC--------------1
VOLUME
VOLSER------------PRIM14 PHYREC-SIZE----------512 HI-A-RBA-----------25088 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK-----------49 HI-U-RBA-------------512 EXTENT-TYPE--------X'00'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'0168000E' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'0168000E' HIGH-RBA-----------25087
0 PATH ------- VSAMAIX.BIX.PATH
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX
DATA-----VSAMAIX.BIX.AIX.DATA
INDEX----VSAMAIX.BIX.AIX.INDEX
DATA-----VSAMAIX.BIX.ESDS.DATA
ATTRIBUTES
UPDATE
0PATH ---------- VSAMAIX.BIX.PATH
IN-CAT --- USERCAT.SYSCAT
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 11
0 HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX
DATA-----VSAMAIX.BIX.AIX.DATA
INDEX----VSAMAIX.BIX.AIX.INDEX
DATA-----VSAMAIX.BIX.ESDS.DATA
ATTRIBUTES
UPDATE
1IDCAMS SYSTEM SERVICES TIME: 10:48:30 2004-01-17 PAGE 12
0 THE NUMBER OF ENTRIES PROCESSED WAS:
AIX -------------------1
ALIAS -----------------0
CLUSTER ---------------1
DATA ------------------2
GDG -------------------0
INDEX -----------------1
NONVSAM ---------------0
PAGESPACE -------------0
PATH ------------------2
SPACE -----------------0
USERCATALOG -----------0
TAPELIBRARY -----------0
TAPEVOLUME ------------0
TOTAL -----------------7
0 THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
DELETE VSAMAIX.BIX.*
0IDC0550I ENTRY (R) VSAMAIX.BIX.PATH DELETED
0IDC0550I ENTRY (D) VSAMAIX.BIX.AIX.DATA DELETED
0IDC0550I ENTRY (I) VSAMAIX.BIX.AIX.INDEX DELETED
0IDC0550I ENTRY (G) VSAMAIX.BIX.AIX DELETED
0IDC0550I ENTRY (D) VSAMAIX.BIX.ESDS.DATA DELETED
0IDC0550I ENTRY (C) VSAMAIX.BIX.ESDS DELETED
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
0IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 1
0
DEF CL(NAME(VSAMAIX.BIX.KSDS) RECORDS(100 50) RECSZ(80 80) KEYS(9 30) +
NRUS)
0IGD01010I STORGRP_ACS: STORCLAS(DEFAULT) STORGRP(DEFAULT) DSN(VSAMAIX.BIX.KSDS)
0IDC0508I DATA ALLOCATION STATUS FOR VOLUME PRIM12 IS 0
0IDC0509I INDEX ALLOCATION STATUS FOR VOLUME PRIM12 IS 0
0IDC0512I NAME GENERATED-(D) VSAMAIX.BIX.KSDS.DATA
0IDC0512I NAME GENERATED-(I) VSAMAIX.BIX.KSDS.INDEX
IDC0181I STORAGECLASS USED IS DEFAULT
IDC0181I DATACLASS USED IS SMALL
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
IF MAXCC > 4 THEN CANCEL ;
DEF AIX(NAME(VSAMAIX.BIX.AIX1) REL(VSAMAIX.BIX.KSDS) -
KEYS(30 0) RECSZ(53 53) RECORDS(100 50) UNQK NUPG)
0IDC0508I DATA ALLOCATION STATUS FOR VOLUME PRIM10 IS 0
0IDC0509I INDEX ALLOCATION STATUS FOR VOLUME PRIM10 IS 0
0IDC0512I NAME GENERATED-(D) VSAMAIX.BIX.AIX1.DATA
0IDC0512I NAME GENERATED-(I) VSAMAIX.BIX.AIX1.INDEX
IDC0181I STORAGECLASS USED IS DEFAULT
IDC0181I DATACLASS USED IS SMALL
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
IF MAXCC > 4 THEN CANCEL ;
DEF PATH(NAME(VSAMAIX.BIX.PATH1) PENT(VSAMAIX.BIX.AIX1))
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
IF MAXCC > 4 THEN CANCEL ;
DEF AIX(NAME(VSAMAIX.BIX.AIX2) REL(VSAMAIX.BIX.KSDS) -
KEYS(20 51) RECSZ(34 34) RECORDS(100 50) UNQK NUPG)
0IDC0508I DATA ALLOCATION STATUS FOR VOLUME PRIM14 IS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 2
0IDC0509I INDEX ALLOCATION STATUS FOR VOLUME PRIM14 IS 0
0IDC0512I NAME GENERATED-(D) VSAMAIX.BIX.AIX2.DATA
0IDC0512I NAME GENERATED-(I) VSAMAIX.BIX.AIX2.INDEX
IDC0181I STORAGECLASS USED IS DEFAULT
IDC0181I DATACLASS USED IS SMALL
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
IF MAXCC > 4 THEN CANCEL ;
DEF PATH(NAME(VSAMAIX.BIX.PATH2) PENT(VSAMAIX.BIX.AIX2))
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
IF MAXCC > 4 THEN CANCEL ;
/*-+----1----+----2----+----3----+----4----+----5----+----6----+----7
REPRO IFILE(SYSIN) ODS(VSAMAIX.BIX.KSDS) COUNT(3)
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 3
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
ALLOCATE DD(AIX1) DS('VSAMAIX.BIX.AIX1') SHR
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
ALLOCATE DD(AIX2) DS('VSAMAIX.BIX.AIX2') SHR
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
BLDINDEX IDS(VSAMAIX.BIX.KSDS) OFILE(AIX1 AIX2)
0IDC0652I VSAMAIX.BIX.AIX1 SUCCESSFULLY BUILT
0IDC0652I VSAMAIX.BIX.AIX2 SUCCESSFULLY BUILT
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
PRINT IDS(VSAMAIX.BIX.KSDS) CHAR
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 3
-LISTING OF DATA SET -VSAMAIX.BIX.KSDS
0KEY OF RECORD - A11111111
B33333333333333333333333333333A11111111 C222222222222222222
0KEY OF RECORD - A22222222
B22222222222222222222222222222A22222222 C111111111111111111
0KEY OF RECORD - A33333333
B11111111111111111111111111111A33333333 C333333333333333333
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 3
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 4
0
PRINT IDS(VSAMAIX.BIX.PATH1) CHAR
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 5
-LISTING OF DATA SET -VSAMAIX.BIX.PATH1
0KEY OF RECORD - B11111111111111111111111111111
B11111111111111111111111111111A33333333 C333333333333333333
0KEY OF RECORD - B22222222222222222222222222222
B22222222222222222222222222222A22222222 C111111111111111111
0KEY OF RECORD - B33333333333333333333333333333
B33333333333333333333333333333A11111111 C222222222222222222
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 3
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 6
0
PRINT IDS(VSAMAIX.BIX.PATH2) CHAR
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 7
-LISTING OF DATA SET -VSAMAIX.BIX.PATH2
0KEY OF RECORD - C111111111111111111
B22222222222222222222222222222A22222222 C111111111111111111
0KEY OF RECORD - C222222222222222222
B33333333333333333333333333333A11111111 C222222222222222222
0KEY OF RECORD - C333333333333333333
B11111111111111111111111111111A33333333 C333333333333333333
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 3
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 8
0
PRINT IDS(VSAMAIX.BIX.AIX1) DUMP
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 9
-LISTING OF DATA SET -VSAMAIX.BIX.AIX1
0KEY OF RECORD - C2F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1
000000 01090001 1EC2F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 *.....B11111111111111111111111111*
000020 F1F1F1C1 F3F3F3F3 F3F3F3F3 *111A33333333 *
0KEY OF RECORD - C2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2
000000 01090001 1EC2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 *.....B22222222222222222222222222*
000020 F2F2F2C1 F2F2F2F2 F2F2F2F2 *222A22222222 *
0KEY OF RECORD - C2F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3
000000 01090001 1EC2F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 *.....B33333333333333333333333333*
000020 F3F3F3C1 F1F1F1F1 F1F1F1F1 *333A11111111 *
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 3
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 10
0
PRINT IDS(VSAMAIX.BIX.AIX2) DUMP
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 11
-LISTING OF DATA SET -VSAMAIX.BIX.AIX2
0KEY OF RECORD - C3F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F140
000000 01090001 14C3F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 F1F1F1F1 40C1F2F2 F2F2F2F2 *.....C111111111111111111 A222222*
000020 F2F2 *22 *
0KEY OF RECORD - C3F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F240
000000 01090001 14C3F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 F2F2F2F2 40C1F1F1 F1F1F1F1 *.....C222222222222222222 A111111*
000020 F1F1 *11 *
0KEY OF RECORD - C3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F340
000000 01090001 14C3F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 F3F3F3F3 40C1F3F3 F3F3F3F3 *.....C333333333333333333 A333333*
000020 F3F3 *33 *
0IDC0005I NUMBER OF RECORDS PROCESSED WAS 3
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 12
0
LISTC ENT(VSAMAIX.BIX.KSDS VSAMAIX.BIX.AIX1 VSAMAIX.BIX.PATH1 -
VSAMAIX.BIX.AIX2 VSAMAIX.BIX.PATH2) ALL
0CLUSTER ------- VSAMAIX.BIX.KSDS
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
SMSDATA
STORAGECLASS ----DEFAULT MANAGEMENTCLASS---(NULL)
DATACLASS ---------SMALL LBACKUP ---0000.000.0000
BWO STATUS------00000000 BWO TIMESTAMP---00000 00:00:00.0
BWO---------------(NULL)
RLSDATA
LOG ----------------(NULL) RECOVERY REQUIRED --(NO) FRLOG ------------(NULL)
VSAM QUIESCED -------(NO) RLS IN USE ---------(NO)
0 LOGSTREAMID-----------------------------(NULL)
RECOVERY TIMESTAMP LOCAL-----X'0000000000000000'
RECOVERY TIMESTAMP GMT-------X'0000000000000000'
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----VSAMAIX.BIX.KSDS.DATA
INDEX----VSAMAIX.BIX.KSDS.INDEX
AIX------VSAMAIX.BIX.AIX1
AIX------VSAMAIX.BIX.AIX2
0 DATA ------- VSAMAIX.BIX.KSDS.DATA
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO-----------------------------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--VSAMAIX.BIX.KSDS
ATTRIBUTES
KEYLEN-----------------9 AVGLRECL--------------80 BUFSPACE-----------37376 CISIZE-------------18432
RKP-------------------30 MAXLRECL--------------80 EXCPEXIT----------(NULL) CI/CA------------------3
SHROPTNS(1,3) SPEED UNIQUE NOERASE INDEXED NOWRITECHK NOIMBED NOREPLICAT
UNORDERED NOREUSE NONSPANNED
STATISTICS
REC-TOTAL--------------3 SPLITS-CI--------------0 EXCPS------------------6
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP:
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB227F96C000'
REC-RETRIEVED---------15 FREESPC------------36864
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------55296
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 13
0 SPACE-PRI--------------1 HI-U-RBA-----------55296
SPACE-SEC--------------1
VOLUME
VOLSER------------PRIM12 PHYREC-SIZE--------18432 HI-A-RBA-----------55296 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK------------3 HI-U-RBA-----------55296 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'00100007' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'00100007' HIGH-RBA-----------55295
0 INDEX ------ VSAMAIX.BIX.KSDS.INDEX
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--VSAMAIX.BIX.KSDS
ATTRIBUTES
KEYLEN-----------------9 AVGLRECL---------------0 BUFSPACE---------------0 CISIZE---------------512
RKP-------------------30 MAXLRECL-------------505 EXCPEXIT----------(NULL) CI/CA-----------------49
SHROPTNS(1,3) SPEED UNIQUE NOERASE NOWRITECHK NOIMBED NOREPLICAT UNORDERED
NOREUSE
STATISTICS
REC-TOTAL--------------1 SPLITS-CI--------------0 EXCPS------------------7 INDEX:
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1 LEVELS-----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP: ENTRIES/SECT-----------1
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB227F96C000' SEQ-SET-RBA------------0
REC-RETRIEVED----------0 FREESPC------------24576 HI-LEVEL-RBA-----------0
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------25088
SPACE-PRI--------------1 HI-U-RBA-------------512
SPACE-SEC--------------1
VOLUME
VOLSER------------PRIM12 PHYREC-SIZE----------512 HI-A-RBA-----------25088 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK-----------49 HI-U-RBA-------------512 EXTENT-TYPE--------X'00'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'00100008' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'00100008' HIGH-RBA-----------25087
0AIX ----------- VSAMAIX.BIX.AIX1
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
SMS MANAGED--------(YES)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----VSAMAIX.BIX.AIX1.DATA
INDEX----VSAMAIX.BIX.AIX1.INDEX
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 14
0 CLUSTER--VSAMAIX.BIX.KSDS
PATH-----VSAMAIX.BIX.PATH1
ATTRIBUTES
NOUPGRADE
0 DATA ------- VSAMAIX.BIX.AIX1.DATA
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO-----------------------------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX1
ATTRIBUTES
KEYLEN----------------30 AVGLRECL--------------53 BUFSPACE-----------37376 CISIZE-------------18432
RKP--------------------5 MAXLRECL--------------53 EXCPEXIT----------(NULL) CI/CA------------------3
AXRKP------------------0
SHROPTNS(1,3) SPEED UNIQUE NOERASE INDEXED NOWRITECHK NOIMBED NOREPLICAT
UNORDERED REUSE SPANNED UNIQUEKEY
STATISTICS
REC-TOTAL--------------3 SPLITS-CI--------------0 EXCPS------------------4
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP:
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB253F437000'
REC-RETRIEVED----------6 FREESPC------------36864
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------55296
SPACE-PRI--------------1 HI-U-RBA-----------55296
SPACE-SEC--------------1
VOLUME
VOLSER------------PRIM10 PHYREC-SIZE--------18432 HI-A-RBA-----------55296 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK------------3 HI-U-RBA-----------55296 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'00050000' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'00050000' HIGH-RBA-----------55295
0 INDEX ------ VSAMAIX.BIX.AIX1.INDEX
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX1
ATTRIBUTES
KEYLEN----------------30 AVGLRECL---------------0 BUFSPACE---------------0 CISIZE---------------512
RKP--------------------5 MAXLRECL-------------505 EXCPEXIT----------(NULL) CI/CA-----------------49
SHROPTNS(1,3) SPEED UNIQUE NOERASE NOWRITECHK NOIMBED NOREPLICAT UNORDERED
REUSE
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 15
0 STATISTICS
REC-TOTAL--------------1 SPLITS-CI--------------0 EXCPS------------------5 INDEX:
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1 LEVELS-----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP: ENTRIES/SECT-----------1
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB253F437000' SEQ-SET-RBA------------0
REC-RETRIEVED----------0 FREESPC------------24576 HI-LEVEL-RBA-----------0
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------25088
SPACE-PRI--------------1 HI-U-RBA-------------512
SPACE-SEC--------------1
VOLUME
VOLSER------------PRIM10 PHYREC-SIZE----------512 HI-A-RBA-----------25088 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK-----------49 HI-U-RBA-------------512 EXTENT-TYPE--------X'00'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'03590002' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'03590002' HIGH-RBA-----------25087
0 PATH ------- VSAMAIX.BIX.PATH1
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX1
DATA-----VSAMAIX.BIX.AIX1.DATA
INDEX----VSAMAIX.BIX.AIX1.INDEX
DATA-----VSAMAIX.BIX.KSDS.DATA
INDEX----VSAMAIX.BIX.KSDS.INDEX
ATTRIBUTES
UPDATE
0PATH ---------- VSAMAIX.BIX.PATH1
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX1
DATA-----VSAMAIX.BIX.AIX1.DATA
INDEX----VSAMAIX.BIX.AIX1.INDEX
DATA-----VSAMAIX.BIX.KSDS.DATA
INDEX----VSAMAIX.BIX.KSDS.INDEX
ATTRIBUTES
UPDATE
0AIX ----------- VSAMAIX.BIX.AIX2
IN-CAT --- USERCAT.SYSCAT
HISTORY
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 16
0 DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
SMS MANAGED--------(YES)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----VSAMAIX.BIX.AIX2.DATA
INDEX----VSAMAIX.BIX.AIX2.INDEX
CLUSTER--VSAMAIX.BIX.KSDS
PATH-----VSAMAIX.BIX.PATH2
ATTRIBUTES
NOUPGRADE
0 DATA ------- VSAMAIX.BIX.AIX2.DATA
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO-----------------------------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX2
ATTRIBUTES
KEYLEN----------------20 AVGLRECL--------------34 BUFSPACE-----------37376 CISIZE-------------18432
RKP--------------------5 MAXLRECL--------------34 EXCPEXIT----------(NULL) CI/CA------------------3
AXRKP-----------------51
SHROPTNS(1,3) SPEED UNIQUE NOERASE INDEXED NOWRITECHK NOIMBED NOREPLICAT
UNORDERED REUSE SPANNED UNIQUEKEY
STATISTICS
REC-TOTAL--------------3 SPLITS-CI--------------0 EXCPS------------------4
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP:
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB2652CDA000'
REC-RETRIEVED----------6 FREESPC------------36864
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------55296
SPACE-PRI--------------1 HI-U-RBA-----------55296
SPACE-SEC--------------1
VOLUME
VOLSER------------PRIM14 PHYREC-SIZE--------18432 HI-A-RBA-----------55296 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK------------3 HI-U-RBA-----------55296 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'01500000' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'01500000' HIGH-RBA-----------55295
0 INDEX ------ VSAMAIX.BIX.AIX2.INDEX
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 17
0 ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX2
ATTRIBUTES
KEYLEN----------------20 AVGLRECL---------------0 BUFSPACE---------------0 CISIZE---------------512
RKP--------------------5 MAXLRECL-------------505 EXCPEXIT----------(NULL) CI/CA-----------------49
SHROPTNS(1,3) SPEED UNIQUE NOERASE NOWRITECHK NOIMBED NOREPLICAT UNORDERED
REUSE
STATISTICS
REC-TOTAL--------------1 SPLITS-CI--------------0 EXCPS------------------5 INDEX:
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS----------------1 LEVELS-----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTAMP: ENTRIES/SECT-----------1
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C004EB2652CDA000' SEQ-SET-RBA------------0
REC-RETRIEVED----------0 FREESPC------------24576 HI-LEVEL-RBA-----------0
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------25088
SPACE-PRI--------------1 HI-U-RBA-------------512
SPACE-SEC--------------1
VOLUME
VOLSER------------PRIM14 PHYREC-SIZE----------512 HI-A-RBA-----------25088 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK-----------49 HI-U-RBA-------------512 EXTENT-TYPE--------X'00'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'01500001' LOW-RBA----------------0 TRACKS-----------------1
HIGH-CCHH----X'01500001' HIGH-RBA-----------25087
0 PATH ------- VSAMAIX.BIX.PATH2
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX2
DATA-----VSAMAIX.BIX.AIX2.DATA
INDEX----VSAMAIX.BIX.AIX2.INDEX
DATA-----VSAMAIX.BIX.KSDS.DATA
INDEX----VSAMAIX.BIX.KSDS.INDEX
ATTRIBUTES
UPDATE
0PATH ---------- VSAMAIX.BIX.PATH2
IN-CAT --- USERCAT.SYSCAT
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2004.017
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
AIX------VSAMAIX.BIX.AIX2
DATA-----VSAMAIX.BIX.AIX2.DATA
INDEX----VSAMAIX.BIX.AIX2.INDEX
DATA-----VSAMAIX.BIX.KSDS.DATA
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 18
0 INDEX----VSAMAIX.BIX.KSDS.INDEX
ATTRIBUTES
UPDATE
1IDCAMS SYSTEM SERVICES TIME: 10:48:35 2004-01-17 PAGE 19
0 THE NUMBER OF ENTRIES PROCESSED WAS:
AIX -------------------2
ALIAS -----------------0
CLUSTER ---------------1
DATA ------------------3
GDG -------------------0
INDEX -----------------3
NONVSAM ---------------0
PAGESPACE -------------0
PATH ------------------4
SPACE -----------------0
USERCATALOG -----------0
TAPELIBRARY -----------0
TAPEVOLUME ------------0
TOTAL ----------------13
0 THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
DELETE VSAMAIX.BIX.*
0IDC0550I ENTRY (R) VSAMAIX.BIX.PATH1 DELETED
0IDC0550I ENTRY (D) VSAMAIX.BIX.AIX1.DATA DELETED
0IDC0550I ENTRY (I) VSAMAIX.BIX.AIX1.INDEX DELETED
0IDC0550I ENTRY (G) VSAMAIX.BIX.AIX1 DELETED
0IDC0550I ENTRY (R) VSAMAIX.BIX.PATH2 DELETED
0IDC0550I ENTRY (D) VSAMAIX.BIX.AIX2.DATA DELETED
0IDC0550I ENTRY (I) VSAMAIX.BIX.AIX2.INDEX DELETED
0IDC0550I ENTRY (G) VSAMAIX.BIX.AIX2 DELETED
0IDC0550I ENTRY (D) VSAMAIX.BIX.KSDS.DATA DELETED
0IDC0550I ENTRY (I) VSAMAIX.BIX.KSDS.INDEX DELETED
0IDC0550I ENTRY (C) VSAMAIX.BIX.KSDS DELETED
0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
0
0IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
//GILBERTB JOB (ACCT#),BLDIX4,
// NOTIFY=&SYSUID,
// CLASS=A,MSGCLASS=X,COND=(0,NE)
//**********************************************************
//* *
//* SAMPLE COBOL PROGRAM TO CREATE AN AIX FOR A KSDS *
//* *
//**********************************************************
//COB3 EXEC PGM=IGYCRCTL
CBL NOMAP,NOOFFSET,NOXREF,NONAME,NOSEQ
IDENTIFICATION DIVISION.
PROGRAM-ID. BLDIX4.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CLUSTER-IN ASSIGN VS-KSDS
ORGANIZATION IS INDEXED
RECORD KEY IS IN-KEY.
SELECT AIX-OUT ASSIGN VS-AIX,
ORGANIZATION IS INDEXED
RECORD KEY IS OUT-KEY.
SELECT SORT-FILE ASSIGN UT-SORTWK1.
DATA DIVISION.
FILE SECTION.
FD CLUSTER-IN.
01 INREC.
05 IN-1-30 PIC X(30).
05 IN-KEY PIC X(9).
05 IN-40-80 PIC X(41).
FD AIX-OUT.
01 OUTREC.
05 OUT-PREFIX.
01 10 OUT-FLAG PIC X.
09 10 OUT-PTRL PIC X.
0001 10 OUT-PTRC PIC S9(4) BINARY.
1E 10 OUT-KEYL PIC X.
05 OUT-KEY PIC X(30).
05 OUT-PTR PIC X(9).
SD SORT-FILE.
01 SORTREC.
05 SORT-KEY PIC X(30).
05 SORT-PTR PIC X(9).
WORKING-STORAGE SECTION.
77 EOF PIC X.
PROCEDURE DIVISION.
OPEN INPUT CLUSTER-IN, OUTPUT AIX-OUT.
SORT SORT-FILE
ASCENDING KEY SORT-KEY
INPUT PROCEDURE SORT-PROC-IN
OUTPUT PROCEDURE SORT-PROC-OUT.
CLOSE CLUSTER-IN, AIX-OUT.
STOP RUN.
SORT-PROC-IN.
MOVE 'N' TO EOF.
PERFORM UNTIL EOF = 'Y'
READ CLUSTER-IN
AT END
MOVE 'Y' TO EOF
NOT AT END
MOVE IN-1-30 TO SORT-KEY
MOVE IN-KEY TO SORT-PTR
RELEASE SORTREC
END-READ
END-PERFORM.
SORT-PROC-OUT.
MOVE 'N' TO EOF.
MOVE X'01' TO OUT-FLAG
MOVE X'09' TO OUT-PTRL
MOVE 1 TO OUT-PTRC
MOVE X'1E' TO OUT-KEYL
PERFORM UNTIL EOF = 'Y'
RETURN SORT-FILE
AT END
MOVE 'Y' TO EOF
NOT AT END
MOVE SORT-KEY TO OUT-KEY
MOVE SORT-PTR TO OUT-PTR
WRITE OUTREC
END-RETURN
END-PERFORM.
/*
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=VIO,SPACE=(TRK,2)
//SYSUT3 DD UNIT=VIO,SPACE=(TRK,2)
//SYSUT2 DD UNIT=VIO,SPACE=(TRK,2)
//SYSUT4 DD UNIT=VIO,SPACE=(TRK,2)
//SYSUT5 DD UNIT=VIO,SPACE=(TRK,2)
//SYSUT6 DD UNIT=VIO,SPACE=(TRK,2)
//SYSUT7 DD UNIT=VIO,SPACE=(TRK,2)
//SYSLIN DD UNIT=VIO,SPACE=(TRK,1),DISP=(,PASS)
//*
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD DUMMY
DELETE VSAMAIX.BIX.*
SET MAXCC=0
//*
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF CL(NAME(VSAMAIX.BIX.KSDS) RECORDS(100 50) RECSZ(80 80) KEYS(9 30) +
NRUS)
IF MAXCC > 4 THEN CANCEL ;
DEF AIX(NAME(VSAMAIX.BIX.AIX) REL(VSAMAIX.BIX.KSDS) -
KEYS(30 0) RECSZ(53 53) RECORDS(100 50) UNQK NUPG)
IF MAXCC > 4 THEN CANCEL ;
/*-+----1----+----2----+----3----+----4----+----5----+----6----+----7
REPRO IFILE(SYSIN) ODS(VSAMAIX.BIX.KSDS) COUNT(3)
B33333333333333333333333333333A11111111 C222222222222222222
B22222222222222222222222222222A22222222 C111111111111111111
B11111111111111111111111111111A33333333 C333333333333333333
DEF PATH(NAME(VSAMAIX.BIX.PATH) PENT(VSAMAIX.BIX.AIX))
IF MAXCC > 4 THEN CANCEL ;
/*
//*
//GO EXEC PGM=LOADER,PARM=NOPRINT
//SYSLIN DD DSN=*.COB3.SYSLIN,DISP=(OLD,PASS)
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
//SYSLOUT DD SYSOUT=*
//*
//KSDS DD DSN=VSAMAIX.BIX.KSDS,DISP=SHR
//AIX DD DSN=VSAMAIX.BIX.AIX,DISP=SHR
//SORTWK01 DD SPACE=(CYL,1)
//SYSOUT DD SYSOUT=*
//*
//LISTCAT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
PRINT IDS(VSAMAIX.BIX.KSDS) CHAR
PRINT IDS(VSAMAIX.BIX.PATH) CHAR
PRINT IDS(VSAMAIX.BIX.AIX) DUMP
LISTC ENT(VSAMAIX.BIX.KSDS VSAMAIX.BIX.AIX VSAMAIX.BIX.PATH) ALL
DELETE VSAMAIX.BIX.*
/*
//**********************************************************************
//* *
//* NONUNIQUEKEY OVERFLOW *
//* *
//* IDC1646I 1 EXCESS PRIME KEY VALUES FOR AIX KEY C1 *
//* *
//**********************************************************************
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD DUMMY
DELETE VSAMAIX.BIX.*
SET MAXCC=0
//*
//IEBDG EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=VSAMAIX.BIX.FLAT,DISP=(,CATLG),RECFM=FB,LRECL=3
//SYSIN DD *
DSD OUTPUT=(SYSUT2)
FD NAME=FIELD1,LENGTH=2,FORMAT=BI,INDEX=1
CREATE QUANTITY=32767,NAME=(FIELD1),FILL='A'
END
/*
//BIXKSDS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF CL(NAME(VSAMAIX.BIX.KSDS) TRACKS(10,5) RECSZ(3,3) KEY(2,0) NRUS)
IF MAXCC > 0 THEN CANCEL ;
REPRO IDS(VSAMAIX.BIX.FLAT) ODS(VSAMAIX.BIX.KSDS)
IF MAXCC > 0 THEN CANCEL ;
DEF AIX(NAME(VSAMAIX.BIX.AIX) REL(VSAMAIX.BIX.KSDS) -
RECSZ(4086 66000) KEYS(1 2) TRACKS(1 1) NUNQK)
IF MAXCC > 0 THEN CANCEL ;
BLDINDEX IDS(VSAMAIX.BIX.KSDS) ODS(VSAMAIX.BIX.AIX) NOSORTCALL
IF MAXCC > 4 THEN CANCEL ;
LISTC ENT(VSAMAIX.BIX.KSDS VSAMAIX.BIX.AIX ) ALL
PRINT IDS(VSAMAIX.BIX.KSDS) DUMP COUNT(20)
PRINT IDS(VSAMAIX.BIX.AIX) DUMP
DELETE VSAMAIX.BIX.*
/*
//*
//* SECOND PART: ESDS
//*
//IEBDG2 EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=VSAMAIX.BIX.FLAT,DISP=(,CATLG),RECFM=FB,LRECL=7
//SYSIN DD *
DSD OUTPUT=(SYSUT2)
FD NAME=FIELD1,LENGTH=4,FORMAT=ZD,INDEX=1
CREATE QUANTITY=9999,NAME=(FIELD1),FILL='A'
END
/*
//BIXESDS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF CL(NAME(VSAMAIX.BIX.ESDS) TRACKS(10 5) RECSZ(8 8) NIXD NRUS)
IF MAXCC > 0 THEN CANCEL ;
REPRO IDS(VSAMAIX.BIX.FLAT) ODS(VSAMAIX.BIX.ESDS)
IF MAXCC > 0 THEN CANCEL ;
DEF AIX(NAME(VSAMAIX.BIX.AIX) REL(VSAMAIX.BIX.ESDS) -
RECSZ(4086 240000) KEYS(3 4) TRACKS(5 5) NUNQK)
IF MAXCC > 0 THEN CANCEL ;
BLDINDEX IDS(VSAMAIX.BIX.ESDS) ODS(VSAMAIX.BIX.AIX) NOSORTCALL
IF MAXCC > 4 THEN CANCEL ;
LISTC ENT(VSAMAIX.BIX.ESDS VSAMAIX.BIX.AIX ) ALL
PRINT IDS(VSAMAIX.BIX.ESDS) DUMP COUNT(20)
PRINT IDS(VSAMAIX.BIX.AIX) DUMP
DELETE VSAMAIX.BIX.*
/*
PRINT IDS(VSAMAIX.BIX.AIX) DUMP -LISTING OF DATA SET -VSAMAIX.BIX.AIX 0KEY OF RECORD - C1C1C1 000000 0004270F 03C1C1C1 00000000 00000007 0000000E 00000015 0000001C 00000023 000020 0000002A 00000031 00000038 0000003F 00000046 0000004D 00000054 0000005B 000040 00000062 00000069 00000070 00000077 0000007E 00000085 0000008C 00000093 . . . . . . . 009C00 0001111F 00011126 0001112D 00011134 0001113B 00011142 00011149 00011150 009C20 00011157 0001115E 00011165 0001116C 00011173 0001117A 00011181 00011188 009C40 0001118F 0IDC0005I NUMBER OF RECORDS PROCESSED WAS 1 0IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0