VSAM Alternate Index (AIX)

VSAM Alternate Index (AIX)

                  

This document presents advanced topics related to VSAM alternate indexes, and includes the following sections:

Overview

  1. The UPGRADE attribute
  2. The NONUNIQUEKEY attribute
  3. Building the Alternate Index
  4. Alternatives to IDCAMS BLDINDEX
  5. First Example: ESDS and NONUNIQUEKEY
  6. Second Example: KSDS and multiple AIXes
  7. Sample COBOL program to create an AIX for a KSDS

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 theAccess to Records through Alternate Indexes section of theDFSMS 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.

The UPGRADE attribute

The NONUNIQUEKEY attribute

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: IDC1646I nnnnn EXCESS PRIME RBA|KEY VALUES FOR AIX KEY kkkkkkkkkkkk

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.

Building the Alternate Index

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.

Alternatives to IDCAMS BLDINDEX

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:

First Example: ESDS and NONUNIQUEKEY

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

 

 

Second Example: KSDS and multiple AIXes

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 

 

 

Sample COBOL program to create an AIX for a KSDS

//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.*
/* 

 

 

Examples of NONUNIQUEKEY usage with large number of pointers

//**********************************************************************
//*                                                                    *
//*                    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