/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDACSL                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = CORE SAVE LIST.                             */ 00250004
 /*                                                                  */ 00300004
 /*   FUNCTION = IDACSL DEFINES THE STRUCTURE OF THE CORE SAVE LIST. */ 00350004
 /*              ALL SUCCESSFUL GETMAINS FOR VIRTUAL STORAGE WHICH   */ 00400004
 /*              ARE NOT NORMALLY FREED DURING OPEN TERMINATION ARE  */ 00450004
 /*              RECORED IN THIS LIST.  ADDITIONAL LISTS ARE CHAINED */ 00500003
 /*              AS REQUIRED.                                        */ 00510004
 /*                                                                  */ 00520004
 /*   CONTROL BLOCK STRUCTURE = POINTED TO BY THE OPEN ACB WORK AREA.*/ 00530004
 /*                                                                  */ 00540004
 /*   INCLUDED MACROS = NONE                                         */ 00542004
 /*                                                                  */ 00544004
 /*   METHOD OF ACCESS = PL/S - RESPECIFY IDACSL AND CSLENTRY BASED. */ 00546004
 /*                                                                  */ 00548004
 /*   CREATED BY: VSAM OPEN MODULE IDA0192M.                         */ 00548404
 /*                                                                  */ 00548804
 /*   STATUS = VS2 RELEASE 4                                 @Z40ESSR*/ 00549204
 /*                                                                  */ 00549604
 /*   DATE OF LAST CHANGE = 01/31/75                         @Z40ESSR*/ 00549704
 /*                                                                  */ 00549804
 /********************************************************************/ 00549904
    DCL 1 IDACSL BASED,             /* CORE SAVE LIST                */ 00550004
          2 CSLR0,                  /* USED TO LOAD FREEMAIN REG 0   */ 00560004
            3 CSLSUBPL FIXED (8),   /* SUBPOOL NUMBER OF THIS CSL    */ 00600004
            3 CSLLENTH FIXED (24),  /* LENGTH IN BYTES OF THIS CSL   */ 00650004
          2 CSLID    CHAR (8),      /* BLOCK IDENTIFIER              */ 00700004
          2 CSLNXPTR PTR (31),      /* PTR TO NEXT CSL OR 0 IF LAST     00750004
                                       CSL IN CHAIN                  */ 00800004
          2 CSLACTEN FIXED (15),    /* NUMBER OF ACTIVE ENTRIES      */ 00850004
          2 CSLGSRK FIXED(8),       /* GSR KEY - VS2         @Z40ESSR*/ 00900004
          2 *       FIXED(8),       /*  NOT USED             @Z40ESSR*/ 00910004
          2 CSLNTRYS (32) CHAR(12); /* CORE ENTRIES                  */ 00950004
    DCL 1 CSLENTRY BASED,           /* CORE SAVE LIST ENTRY          */ 01010004
          2 CSLFREMN,               /* FEEEMAIN INFORMATION          */ 01020004
            3 CSLPOOLN FIXED (8),   /* SUBPOOL NUMBER OF GOTTEN CORE */ 01050004
            3 CSLCORLN FIXED (24),  /* LENGTH OF BLOCK OF GOTTEN CORE*/ 01100004
            3 CSLCORPT PTR (31),    /* PTR TO BLOCK OF GOTTEN CORE   */ 01110004
          2 CSLFLAGS BIT(8),        /* FLAGS                         */ 01112003
            3 CSLKEY5  BIT(1),      /* CORE IS IN KEY 5 - VS2        */ 01114003
            3 CSLGSRKT  BIT(1),      /* CORE IN GSR KEY- VS2 @Z40ESSR*/ 01116004
                                   /* ELSE CORE IN KEY 0-VS2 @Z40ESSR*/ 01118004
            3 CSLJSTCB BIT(1),      /* CORE IS OWNED BY JOBSTEP TCB  */ 01122003
          2 CSLANCPT PTR(24);       /* PTR TO ADDR OF HEB HDR ELEM FOR  01160003
                                       THIS BLK OF CORE OR ZERO      */ 01170004
    DCL IDACSLID CHAR (8) CONSTANT (' IDACSL '); /* CHAR CONSTANT       01200004
                                       FOR CSLID                     */ 01250004