*/********************************************************************/ 00050037
*/*                                                                  */ 00100037
*/*   MACRO NAME = IDAWAX                                            */ 00150037
*/*                                                                  */ 00200037
*/*   DESCRIPTIVE NAME = WORK AREA FOR PATH PROCESSING               */ 00250037
*/*                                                                  */ 00300037
*/*   FUNCTION = CONTAINS POINTERS AND INDICATORS REQUIRED FOR PATH  */ 00350037
*/*              PROCESSING                                          */ 00360037
*/*                                                                  */ 00400037
*/*   CONTROL BLOCK STRUCTURE = POINTED TO BY THE IDAPLH WHEN AIX IS */ 00450037
*/*              OPENED FOR PATH PROCESSING                          */ 00452037
*/*                                                                  */ 00460037
*/*   INCLUDED MACROS = NONE                                         */ 00470037
*/*                                                                  */ 00480037
*/*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY                */ 00490037
*/*                                                                  */ 00492037
*/*   CREATED BY = VSAM OPEN                                         */ 00494037
*/*                                                                  */ 00496037
*/*   STATUS = VS/1 RELEASE 4  (CHANGE FLAG @X04SVXX)                */ 00498037
*/*                                                                  */ 00498437
*/*   DATE OF LAST CHANGE = 13 AUG 74                                */ 00498837
*/*                                                                  */ 00499237
*/********************************************************************/ 00499637
    DCL                                                                 00500037
      1 IDAWAX BASED(PLHWAX),       /* WORK AREA FOR PATH PROCESSING */ 01000037
       2 WAXID FIXED(8),            /* ID FIELD                      */ 01500037
       2 WAXFLG1 FIXED(8),          /* FLAGS                         */ 02000037
        3 WAXSRAB BIT(1),           /* ONE INDICATES SRA BUILT       */ 02500037
        3 WAXPUG BIT(1),            /* AIX IS IN UPGRADE SET         */ 03000037
        3 WAXPS BIT(1),             /* LAST OPERATION WAS A PUT SEQ  */ 03500037
        3 WAXNOADV BIT(1),          /* DON'T ADVANCE WAXXPTR @ZA10591*/ 03700037
       2 WAXLEN FIXED(15),          /* LENGTH OF IDAWAX              */ 04000037
       2 WAXPL FIXED(15),           /* AIX RECORD PTR LENGTH         */ 04500037
       2 WAXXXXX2 FIXED(15),        /* UNUSED                        */ 05000037
       2 WAXIRPL PTR(31),           /* POINTER TO INNER RPL          */ 05500037
       2 WAXURPL PTR(31),           /* POINTER TO USERS RPL          */ 06000037
       2 WAXRCDA PTR(31),           /* POINTER TO AIX RECORD         */ 06500037
       2 WAXXPTR PTR(31),           /* POINTER TO CURRENT AIX PTR    */ 07000037
       2 WAXEPTR PTR(31),           /* POINTER BEYOND LAST AIX PTR   */ 07500037
       2 WAXBPLH PTR(31),           /* POINTER TO BASE PLH           */ 08000037
       2 WAXSRAA PTR(31),           /* POINTER TO SAVED RECORD AREA  */ 08500037
       2 WAXSRAL FIXED(31),         /* LENGTH OF SAVED RECORD AREA   */ 09000037
       2 WAXXXXX3 FIXED(31);        /* UNUSED                        */ 09500037