/********************************************************************/ 00050003
 /*                                                                  */ 00100003
 /*   MACRO NAME = IDAIDXCB                                          */ 00150003
 /*                                                                  */ 00200003
 /*   DESCRIPTIVE NAME = IDENTIFICATION CONSTANTS FOR CONTROL BLOCKS.*/ 00250003
 /*                                                                  */ 00300003
 /*   FUNCTION = THE CONSTANTS IDENTIFY EACH TYPE OF CONTROL BLOCKS. */ 00350003
 /*                                                                  */ 00400003
 /*   CONTROL BLOCK STRUCTURE = NONE                                 */ 00450003
 /*                                                                  */ 00500003
 /*   INCLUDED MACROS = NONE                                         */ 00550003
 /*                                                                  */ 00600003
 /*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY                */ 00650003
 /*                                                                  */ 00700003
 /*   CREATED BY: N/A                                                */ 00750003
 /*                                                                  */ 00800003
 /*   STATUS = VS1 RELEASE 4   (CHANGE FLAG @X04SVXX)                */ 00850003
 /*            VS2 RELEASE 3   (CHANGE FLAG @Y30DSXX)                */ 00900003
 /*                                                                  */ 00950003
 /*   DATE OF LAST CHANGE = 5 AUGUST 74                              */ 01000003
 /*                                                                  */ 01050003
 /********************************************************************/ 01100003
   DCL (IDXAMB CONSTANT('01000000'B),      /* ID FOR AMB             */ 01150003
        IDXAMBL CONSTANT('01010000'B),     /* ID FOR AMBL            */ 01200003
        IDXAMDSB CONSTANT('01100000'B),    /* ID FOR AMDSB           */ 01250003
        IDXARDB CONSTANT('01100001'B),     /* ID FOR ARDB            */ 01300003
        IDXBIB CONSTANT('00010000'B),      /* ID FOR BIB     @X04SVRP*/ 01350003
        IDXBSPH CONSTANT('01110010'B),     /* ID FOR BSPH    @X04SVRP*/ 01400003
        IDXBUFC CONSTANT('01110000'B),     /* ID FOR BUFC    @X04SVRP*/ 01450003
        IDXBUFDR CONSTANT('01110000'B),    /* ID FOR BUFDR           */ 01500003
        IDXCMB CONSTANT('00010001'B),      /* ID FOR CMB     @X04SVRP*/ 01550003
        IDXCPA CONSTANT('01110001'B),      /* ID FOR CPA             */ 01600003
        IDXDEB CONSTANT('00001111'B),      /* ID FOR DEB             */ 01650003
        IDXDIWA CONSTANT('01000001'B),     /* ID FOR DIWA            */ 01700003
        IDXEDB CONSTANT('10010000'B),      /* ID FOR EDB             */ 01750003
        IDXHEB CONSTANT('00010011'B),      /* ID FOR HEB     @X04SVRP*/ 01800003
        IDXICWA CONSTANT('01000011'B),     /* ID FOR ICWA            */ 01850003
        IDXIMWA CONSTANT('01000010'B),     /* ID FOR IMWA            */ 01900003
        IDXLPMB CONSTANT('10010001'B),     /* ID FOR LPMB            */ 01950003
        IDXPLH CONSTANT('00110000'B),      /* ID FOR PLHDR           */ 02000003
        IDXUPT CONSTANT('01000101'B),      /* ID FOR UPT     @X04SVRP*/ 02050003
        IDXVAT CONSTANT('00010001'B),      /* ID FOR VAT     @X04SVRP*/ 02100003
        IDXVCRT CONSTANT('10000000'B),     /* ID FOR VCRT    @X04SVRP*/ 02150003
        IDXVIOT CONSTANT('00010110'B),     /* ID FOR VIOT    @X04SVRP*/ 02250003
        IDXVMT CONSTANT('00010010'B),      /* ID FOR VMT     @X04SVRP*/ 02300003
        IDXVSRT CONSTANT('00010101'B),     /* ID FOR VSRT    @X04SVRP*/ 02350003
        IDXWAX CONSTANT('01110011'B),      /* ID FOR WAX     @X04SVRP*/ 02400003
        IDXWSHD CONSTANT('01000100'B))     /* ID FOR WSHD    @X04SVRP*/ 02450003
                        BIT(8);                                         02500003