/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDAESL                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = ENQUEUE SAVE LIST.                          */ 00250004
 /*                                                                  */ 00300004
 /*   FUNCTION = IDAESL CONTAINS A LIST OF ALL ENQUEUES COMPLETED    */ 00350004
 /*              SUCCESSFULLY DURING OPEN PROCESSING. ADDITIONAL     */ 00400004
 /*              LISTS ARE CHAINED AS REQUIRED.                      */ 00450004
 /*                                                                  */ 00460004
 /*   CONTROL BLOCK STRUCTURE = POINTED TO THE OPEN ACB WORK AREA.   */ 00470004
 /*                                                                  */ 00480004
 /*   INCLUDED MACROS = NONE                                         */ 00490004
 /*                                                                  */ 00492004
 /*   METHOD OF ACCESS = PL/S - RESPECIFY IDAESL BASED.              */ 00494004
 /*                                                                  */ 00496004
 /*   CREATED BY: VSAM OPEN MODULE IDA0192A.                         */ 00498004
 /*                                                                  */ 00498404
 /*   STATUS = VS/1 RELEASE 4, VS2 RELEASE 3.                        */ 00498804
 /*                                                                  */ 00499204
 /*   DATE OF LAST CHANGE = 2 AUGUST 74                              */ 00499604
 /*                                                                  */ 00499704
 /********************************************************************/ 00499804
    DCL 1 IDAESL BASED BDY(WORD),   /* ENQUEUE SAVE LIST             */ 00500004
          2 ESLSUBPL FIXED (8),     /* SUBPOOL NUMBER OF THIS ESL    */ 00550004
          2 ESLLENTH FIXED (24),    /* LENGTH IN BYTES OF THIS ESL   */ 00600004
          2 ESLID CHAR (8),         /* BLOCK IDENTIFIER              */ 00650004
          2 ESLNXPTR PTR (31),      /* PTR TO NEXT ESL OR 0 IF LAST     00700004
                                       ESL IN CHAIN                  */ 00750004
          2 ESLACTEN FIXED (15),    /* NUMBER OF ACTIVE ENTRIES      */ 00800004
          2 * FIXED (15),           /* RESERVED                      */ 00850004
          2 ESLENTRY (16),          /* ENQUEUE ENTRIES              */  00900003
            3 ESLENQOP CHAR(1),     /* ENQUEUE OPTION FOR THIS ENTRY */ 00950003
            3 ESLRNAME,             /* ENQUEUE RNAME FOR THIS ENTRY  */ 00960003
              4 ESLCINBR CHAR(3),   /* CI NUMBER FOR THIS ENTRY      */ 01050003
              4 ESLACBAD CHAR(4),   /* POINTER TO ACB FOR THIS ENTRY */ 01060003
              4 ESLIO CHAR(1)       /* I OR O                        */ 01100003
    ;                                                                   01150004
    DCL IDAESLID CHAR (8) CONSTANT (' IDAESL '); /* CHAR CONSTANT       01200004
                                       FOR ESLID                     */ 01250004