/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDASSL                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = SWAP SAVE LIST.                             */ 00250004
 /*                                                                  */ 00300004
 /*   FUNCTION = IDASSL CONTAINS A LIST OF CONTROL BLOCKS TO BE      */ 00350004
 /*              CHAINED AFTER OPEN IS GUARANTEED TO OPEN. ADDITIONAL*/ 00400004
 /*              LISTS ARE CHAINED AS REQUIRED.                      */ 00450004
 /*                                                                  */ 00460004
 /*   CONTROL BLOCK STRUCTURE = POINTED TO BY THE OPEN ACB WORK AREA.*/ 00470004
 /*                                                                  */ 00480004
 /*   INCLUDED MACROS = NONE                                         */ 00490004
 /*                                                                  */ 00492004
 /*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY                */ 00494004
 /*                                                                  */ 00496004
 /*   CREATED BY: VSAM OPEN MODULE IDA0192A.                         */ 00498004
 /*                                                                  */ 00498404
 /*   STATUS = VS1 RELEASE 4, VS2 RELEASE 3.                         */ 00498804
 /*                                                                  */ 00499204
 /*   DATE OF LAST CHANGE = 2 AUGUST 74                              */ 00499604
 /*                                                                  */ 00499704
 /********************************************************************/ 00499804
    DCL 1 IDASSL BASED,             /* SWAP SAVE LISTS               */ 00500004
          2 SSLSUBPL FIXED (8),     /* SUBPOOL NUMBER OF THIS SSL    */ 00550004
          2 SSLLENTH FIXED (24),    /* LENGTH OF THIS LIST           */ 00600004
          2 SSLID CHAR (8),         /* BLOCK IDENTIFER               */ 00650004
          2 SSLNXPTR PTR (31),      /* PTR TO NEXT SSL OR 0 IF END      00700004
                                       OF CHAIN                      */ 00750004
          2 SSLACEN FIXED (15),     /* NUMBER OF ACTIVE ENTRIES      */ 00800004
          2 * FIXED (15),           /* RESERVED                      */ 00850004
          2 SSLENTRY (16),          /* SWAP SAVE ENTRY               */ 00900004
            3 SSLSWPTR PTR (31),    /* PTR TO SWAP WORD              */ 00950004
            3 SSLSWAP FIXED (31)    /* SWAP CONTENTS                 */ 01000004
    ;                                                                   01050004
    DCL IDASSLID CHAR (8) CONSTANT (' IDASSL '); /* CHAR CONSTANT       01100004
                                       FOR SSLID                     */ 01150004