/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDADSL                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = DEB SAVE LIST.                              */ 00250004
 /*                                                                  */ 00300004
 /*   FUNCTION = ALL DEB'S SUCCESSFULLY CHAINED AND ADDED TO THE DEB */ 00350004
 /*              TABLE ARE RECORDED IN THIS LIST. ADDITIONAL LIST    */ 00400004
 /*              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 - RESPECIFY IDADSL BASED.              */ 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 IDADSL BASED,             /* DEB SAVE LIST                 */ 00500004
          2 DSLSUBPL FIXED (8),     /* SUBPOOL NUMBER OF THIS DSL    */ 00550004
          2 DSLLENTH FIXED (24),    /* LENGTH IN BYTES OF THIS DSL   */ 00600004
          2 DSLID CHAR (8),         /* BLOCK IDENTIFIER              */ 00650004
          2 DSLNXPTR PTR (31),      /* POINTER TO NEXT DSL OR 0 IF      00700004
                                       LAST DSL IN CHAIN.            */ 00750004
          2 DSLACTEN FIXED (15),    /* NUMBER OF ACTIVE ENTRIES      */ 00800004
          2 * FIXED (15),           /* RESERVED                      */ 00850004
          2 DSLENTRY (16),          /* DEB ENTRIES                   */ 00900004
            3 DSLFLG BIT (8),       /* FLAGS                         */ 00950004
              4 * BIT (7),          /* RESERVED                      */ 01000004
              4 DSLFDDEB BIT (1),   /* BIT ON INDICATES DUMMY DEB    */ 01050004
            3 DSLDEBAD PTR (24)     /* ADDRESS OF DEB                */ 01100004
    ;                                                                   01150004
    DCL IDADSLID CHAR (8) CONSTANT (' IDADSL '); /* CHAR CONSTANT       01200004
                                       FOR DSLID                     */ 01250004