/********************************************************************/ 01000003
 /*                                                                  */ 01003003
 /*   MACRO NAME = IGGMSAWA                                          */ 01006003
 /*                                                                  */ 01009003
 /*   DESCRIPTIVE NAME = SUBALLOCATE INTERFACE                       */ 01012003
 /*                                                                  */ 01015003
 /*   FUNCTION = SUBALLOCATE INTERFACE PARAMETER LIST                */ 01018003
 /*              AND WORKAREA MAPPING MACRO.                         */ 01021003
 /*                                                                  */ 01024003
 /*   INCLUDED MACROS = NONE                                         */ 01027003
 /*                                                                  */ 01030003
 /*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY                */ 01033003
 /*                                                                  */ 01036003
 /*   STATUS = VS/2 RELEASE 3   (CHANGE FLAG @Y30SSXX)               */ 01039003
 /*                                                                  */ 01042003
 /*   DATE OF LAST CHANGE = 17 JUL 74                                */ 01050003
 /*                                                                  */ 01350003
 /********************************************************************/ 01650003
    DECLARE                                                             07000003
      1 SALPARL BASED(CCAALPTR),    /* BASE IS IN IGGCCA             */ 08000003
        3 SALOPTNS PTR(8),          /* ALLOCATION OPTIONS            */ 09000003
        3 *        BIT(8),          /* RESERVED                      */ 15000003
        3 SALSOURC PTR(8),          /* RECORD SOURCE INDICATOR       */ 26000003
        3 SALDSCIN PTR(24) BDY(BYTE), /* OBJECT DATA SET CI NUMBER   */ 32000003
        3 SALPARMS CHAR(8),         /* ALLOCATION PARAMETERS         */ 35000003
          5 SALCALN  FIXED(15) BDY(BYTE), /* CONTROL AREA LENGTH     */ 36000003
          5 SALBLKLN FIXED(15) BDY(BYTE), /* RECORD BLOCK LENGTH     */ 37000003
          5 SALUNITS FIXED(15) BDY(BYTE), /* NUMBER OF UNITS REQUSTED*/ 38000003
          5 SALMXEXT PTR(8),        /* MAX NO. EXTENTS ALLOWED       */ 39000003
          5 *        PTR(8),        /* RESERVED FOR ALIGNMENT        */ 40000003
        3 SALRLIST PTR(32) BDY(BYTE), /* PTR TO RESPONSE LIST        */ 41000003
        3 SALVLIST PTR(32) BDY(BYTE), /* PTR TO USERLIST             */ 42000003
        3 SALAXWA  CHAR(490);       /* IGGPSALL WORK AREA            */ 43000003
 /********************************************************************/ 43050003
 /*         PRLIST - SUBALLOCATE PROCESSING RESPONSE LIST            */ 46000003
 /*                  ENTRIES PARALLEL USERLIST ENTRIES               */ 47000003
 /********************************************************************/ 47500003
    DECLARE                                                             49000003
      1 PRLIST BASED(SALRLIST),     /* BASE IS IN SALPARL            */ 50000003
        3 PRLLN PTR(8),             /* PRL VOL COUNT                 */ 51000003
        3 PRLENT (*) CHAR(2) BDY(BYTE), /* RESPONSE ENTRY            */ 52000003
          5 PRELENTF  FIXED(15) BDY(BYTE), /* SEQUENCE NO. OF DATA   */ 53000003
                                    /* SET DIRECTORY ENTRY           */ 53050003
            7 PRLPAR1 PTR(8),       /* RESPONSE PARAMENTER           */ 54000003
            7 PRLPAR2 PTR(8);       /* RESPONSE PARAMETER            */ 55000003
 /********************************************************************/ 56000003
 /*     CONSTANTS USED TO SET AND/OR TEST FIELDS DECLARED ABOVE      */ 59000003
 /********************************************************************/ 62000003
    DECLARE                         /* ALLOCATION OPTIONS - SALOPTNS */ 65000003
      SACYLOPT BIT(8) CONSTANT('C0'X), /* CYLINDER REQUEST           */ 68000003
      SATRKOPT BIT(8) CONSTANT('80'X), /* TRACK REQUEST              */ 71000003
      SARECOPT BIT(8) CONSTANT('40'X), /* RECORD REQUEST (RESERVED)  */ 74000003
      SACANOPT BIT(8) CONSTANT('00'X); /* CANDIDATE REQUEST          */ 77000003
    DECLARE                         /* RECORD SOURCE INDICATOR       */ 80000003
      SARABS   BIT(8) CONSTANT('01'X), /* FIRST VER IN USERLIST IS      83000003
                                          IN RAB 3                   */ 86000003
      SAVRLIST BIT(8) CONSTANT('02'X); /* FIRST VER IN USERLIST IS      89000003
                                          NOT IN RAB'S               */ 92000003