/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDAPSL                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = PAGE SAVE LIST.                             */ 00250004
 /*                                                                  */ 00300004
 /*   FUNCTION = THE PSL CONTAINS A VARABLE NUMBER OF ENTRIES. ALL   */ 00350004
 /*              SUCCESSFUL FIXED STORAGE FOR AN OPEN IS REFLECTED   */ 00400004
 /*              IN THIS LIST. THERE IS A MAXIMUM OF 1 LIST PER ESDS */ 00450004
 /*              OR KSDS.                                            */ 00500004
 /*                                                                  */ 00550004
 /*   CONTROL BLOCK STRUCTURE = POINTED TO BY THE OPEN ACB WORK AREA.*/ 00560004
 /*                                                                  */ 00570004
 /*   INCLUDED MACROS = NONE                                         */ 00580004
 /*                                                                  */ 00590004
 /*   METHOD OF ACCESS = PL/S - RESPECIFY IDAPSL BASED.              */ 00592004
 /*                                                                  */ 00594004
 /*   CREATED BY: VSAM OPEN MODULE IDA0192A.                         */ 00596004
 /*                                                                  */ 00598004
 /*   STATUS = VS1 RELEASE 4, VS2 RELEASE 3.                         */ 00598404
 /*                                                                  */ 00598804
 /*   DATE OF LAST CHANGE = 1 AUGUST 74                              */ 00599204
 /*                                                                  */ 00599604
 /********************************************************************/ 00599704
    DCL 1 IDAPSL BASED,             /* PAGE SAVE LIST                */ 00600004
          2 PSLSUBPL FIXED (8),     /* SUBPOOL NUMBER OF THIS PSL    */ 00650004
          2 PSLLENTH FIXED (24),    /* LENGTH IN BYTES OF THIS PSL   */ 00700004
          2 PSLID CHAR (8),         /* BLOCK IDENTIFIER              */ 00750004
          2 PSLNXPTR PTR (31),      /* POINTER TO NEXT PSL OR 0 IF      00800004
                                       LAST PSL IN CHAIN             */ 00850004
          2 PSLENTRY (*),           /* PAGE SAVE ENTRY               */ 00900004
            3 PSLSTAD PTR (31),     /* STARTING ADDR OF FIXED AREA   */ 00950004
            3 PSLFLG BIT (8),       /* FLAGS                         */ 01000004
              4 PSLFLGLT BIT (1),   /* BIT ON INDICATES LAST ENTRY   */ 01050004
              4 * BIT (7),          /* RESERVED                      */ 01100004
            3 PSLENDAD PTR (24)     /* END ADDR+1 OF FIXED AREA      */ 01150004
    ;                                                                   01200004
    DCL IDAPSLID CHAR (8) CONSTANT (' IDAPSL '); /* CHAR CONSTANT       01250004
                                       FOR PSLID                     */ 01300004