*/********************************************************************/ 00050004
*/*                                                                  */ 00100004
*/*   MACRO NAME = IDAAIR                                            */ 00150004
*/*                                                                  */ 00200004
*/*   DESCRIPTIVE NAME =ALTERNATE INDEX RECORD                       */ 00250004
*/*                                                                  */ 00300004
*/*   FUNCTION = DESCRIBES THE ALTERNATE INDEX RECORD HEADER         */ 00350004
*/*                                                                  */ 00400004
*/*   INCLUDED MACROS = NONE                                         */ 00470004
*/*                                                                  */ 00480004
*/*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY                */ 00490004
*/*                                                                  */ 00492004
*/*   CREATED BY = RECORD MANAGEMENT MODULE IDA019RU                 */ 00494004
*/*                                                                  */ 00496004
*/*   STATUS = VS/1 RELEASE 4  (CHANGE FLAG @X04SVXX)                */ 00498004
*/*                                                                  */ 00498404
*/*   DATE OF LAST CHANGE = 9 AUG 74                                 */ 00498804
*/*                                                                  */ 00499204
*/********************************************************************/ 00499604
    DCL                                                                 00500004
      1 IDAAIX BASED,               /* ALTERNATE INDEX RECORD        */ 01000004
       2 AIXFG BIT(8),              /* FLAG FIELD                    */ 01500004
        3 * BIT(7),                 /* RESERVED                      */ 02000004
        3 AIXPKP BIT(1),            /* 0= RBA POINTERS 1=PRIME KEY      02500004
                                       POINTERS                      */ 03000004
       2 AIXPL FIXED(8),            /* LENGTH OF THE POINTER         */ 03500004
       2 AIXPC FIXED(15),           /* NUMBER OF POINTERS            */ 04000004
       2 AIXKL FIXED(8),            /* LENGTH OF AIX KEY             */ 04500004
       2 AIXKY CHAR(*);             /* AIX KEY                       */ 05000004
    DCL AIXPCMAX CONSTANT(32767)FIXED(15);/* MAXIMUM AIXPC VALUE     */ 05500004