/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDAHEB                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = HEADER ELEMENT BLOCK.                       */ 00250004
 /*                                                                  */ 00300004
 /*   FUNCTION = THE HEB CONTAINS UP TO 16 ACTIVE CORE BLOCK HEADERS */ 00350004
 /*              USED TO REFLECT GOTTEN CORE FOR VSAM CONTROL BLOCKS.*/ 00400003
 /*              ADDITIONAL HEB(S) ARE CHAINED AS REQUIRED.          */ 00450004
 /*                                                                  */ 00500004
 /*   CONTROL BLOCK STRUCTURE = THE HEB IS POINTED TO BY THE BIB     */ 00550004
 /*                             (BIBHEBPT). THE FIRST FREE HEADER    */ 00600004
 /*                             ELEMENT IS POINTED TO BY (BIBHEBFQ). */ 00650004
 /*                                                                  */ 00660004
 /*   INCLUDED MACROS = NONE                                         */ 00670004
 /*                                                                  */ 00680004
 /*   METHOD OF ACCESS = PL/S - RESPECIFY IDAHEB AND HEBHDREL BASED. */ 00690004
 /*                                                                  */ 00692004
 /*   CREATED BY: VSAM OPEN MODULE IDA0192M.                         */ 00694004
 /*                                                                  */ 00696004
 /*   STATUS = VS2 RELEASE 4                                 @Z40ESSR*/ 00698004
 /*                                                                  */ 00698404
 /*   DATE OF LAST CHANGE = 04/11/75                         @Z40ESSR*/ 00698804
 /*                                                                  */ 00699204
 /********************************************************************/ 00699604
 DCL HEBNEL CONSTANT(16) FIXED(31); /* NUMBER OF ELEMENTS IN A HEB   */ 01012003
 DCL 1 HEBHDREL BASED BDY(WORD),    /* HEADER ELEMENT                */ 01050003
       2 HEBFREMN,                  /* FREEMAIN INFORMATION          */ 01100003
         3 HEBSP    FIXED(8),       /* SUBPOOL OF BLOCK              */ 01150003
         3 HEBLN    FIXED(24),      /* LENGTH OF BLOCK               */ 01200003
         3 HEBBLKPT PTR(31),        /* POINTER TO CORE BLOCK         */ 01250003
       2 HEBFLAGS BIT(8),           /* FLAGS                         */ 01300003
         3 HEBJSTCB BIT(1),         /* CORE IS OWNED BY JOBSTEP TCB  */ 01400003
         3 HEBKEY5  BIT(1),         /* STORAGE IS IN KEY 5 - VS2     */ 01402003
         3 HEBGSRKT BIT(1),         /* STOR IN GSR KEY - VS2 @Z40ESSR*/ 01404004
                                    /* NOTE - IF NOT KEY 5 OR GSR KEY   01406004
                                       GET CORE IN KEY 0     @Z40ESSR*/ 01408004
         3 HEBIOSUP BIT(1),         /* O/C/E SPECIAL REQUEST BLK -VS2*/ 01412003
         3 HEBRTFLG BIT(1),         /* RECOVERY/TERM FREED CORE - VS2*/ 01414003
       2 HEBAVSP  FIXED(24),        /* AMOUNT OF AVAILABLE CORE      */ 01450003
       2 HEBELCHN PTR(31),          /* PTR TO NEXT HDR ELEMENT       */ 01500003
       2 HEBNBYTE PTR(31),          /* PTR TO NEXT AVAIL BYT @Z40ESSR*/ 01550004
       2 * CHAR(4),                                        /*@Z40ESSR*/ 01600004
         3 HEBGSRK FIXED(8),        /*GSR KEY IF HEBGSRKT ON @Z40ESSR*/ 01650004
         3 *       FIXED(24);       /* UNUSED                @Z40ESSR*/ 01700004
 DCL 1 IDAHEB BASED BDY(WORD),      /* HEADER ELEMENT BLOCK  @Z40ESSR*/ 01750004
       2 HEBID    CHAR(1),          /* CONTROL BLOCK ID      @Z40ESSR*/ 01800004
       2 *        CHAR(1),          /* RESERVED - NOT USED   @Z40ESSR*/ 01850004
       2 HEBLEN   FIXED(15),        /* LENGTH OF HEB         @Z40ESSR*/ 01900004
       2 HEBNHEB  PTR (31),         /* POINTER TO NEXT HEB OR ZERO   */ 01950004
       2 *        CHAR(2),          /* UNUSED                @Z40ESSR*/ 02000004
       2 HEBCNT   FIXED(15),        /* NUMBER OF HEADER ELEMENTS     */ 02050004
       2 HEBHDELS(HEBNEL) CHAR(LENGTH(HEBHDREL));/* HDR ELEM @Z40ESSR*/ 02100004