/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDABIB                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = BASE INFORMATION BLOCK                      */ 00250004
 /*                                                                  */ 00260004
 /*   FUNCTION = THE BIB CONTAINS INFORMATION RELATING TO THE        */ 00270004
 /*              OPERATIONAL SPHERE.                                 */ 00280004
 /*                                                                  */ 00290004
 /*   CONTROL BLOCK STRUCTURE = POINTED TO BY THE AMBL (AMBLBIB).    */ 00292004
 /*                                                                  */ 00294004
 /*   INCLUDED MACROS = NONE                                         */ 00296004
 /*                                                                  */ 00298004
 /*   METHOD OF ACCESS = PL/S - RESPECIFY IDABIB BASED.              */ 00298404
 /*                                                                  */ 00298804
 /*   CREATED BY: VSAM OPEN MODULE IDA0192A.                         */ 00299204
 /*                                                                  */ 00299604
 /*   STATUS = VS1 RELEASE 4, VS2 RELEASE 3.                         */ 00299704
 /*                                                                  */ 00299804
 /*   DATE OF LAST CHANGE = 22 JANUARY 75                            */ 00299903
 /*                                                                  */ 00303204
 /********************************************************************/ 00305204
    DCL 1 IDABIB BASED BDY (WORD),  /* BASE INFORMATION BLOCK        */ 00306704
          2 BIBHDR,                 /* BIB HEADER SECTION            */ 00310004
            3 BIBID CHAR(1),        /* CONTROL BLOCK ID              */ 00320004
            3 BIBFLG1 BIT(8),       /* BIB FLAG BYTE                 */ 00330004
              4 BIBVIRT BIT(1),     /* VIRTUAL UCB'S IN SPHERE       */ 00332004
              4 BIBREST BIT(1),     /* RESTART PROCESSING SPHERE     */ 00332403
              4 BIBCKPT BIT(1),     /* CHECKPOINT PROCESSING SPHERE  */ 00332803
              4 * BIT(5),           /* UNUSED                        */ 00334003
            3 BIBLEN FIXED(15),     /* LENGTH OF BIB                 */ 00340004
          2 BIBFLG2 BIT(8),         /* FLAGS                         */ 00350004
          2 * CHAR(3),              /* NOT USED                      */ 00400004
          2 BIBUPT PTR(31),         /* ADDR OF UPGRADE TABLE         */ 00450004
          2 BIBVMT PTR(31),         /* ADDR OF VOLUME MOUNT TABLE    */ 00500004
          2 BIBDACB PTR(31),        /* ADDR OF DUMMY ACB             */ 00550004
          2 BIBPAMBL PTR(31),       /* ADDR OF PRIMARY AMBL          */ 00600004
          2 BIBSPHPT PTR(31),       /* PTR TO SPHERE BLOCK           */ 00610004
          2 BIBPRSPH PTR(31),       /* PTR TO PROTECTED SPHERE BLK   */ 00620004
          2 BIBHEBPT PTR(31),       /* PTR TO FIRST HEB              */ 00630004
          2 BIBHEBFQ PTR(31),       /* PTR FIRST FREE HEADER ELEMENT */ 00640004
          2 BIBVCRT PTR(31),        /* ADDR OF VSAM C/R TABLE        */ 00650004
          2 BIBWSHD PTR(31),        /* ADDR OF WORK SPACE HEADER BLK */ 00700004
          2 BIBCSL PTR(31),         /* IN VS2, PTR TO CSL CHAIN.     */ 00710003
          2 BIBPSAB PTR(31),        /* ADDRS OF PROT SPHERE AMBL BLK.*/ 00712003
          2 BIBVGTT PTR(31),        /* IN VS2, ADDRESS OF SPHERE VGTT*/ 00720003
          2 BIBRTNS,                /* PTR'S TO RECORD MGMT ROUTINES */ 00750004
            3 BIBINTRF PTR(31),     /* INTERFACE ROUTINE             */ 00800004
            3 BIBCEAPP PTR(31),     /* CHANNEL END APPENDAGE         */ 00850004
            3 BIBASYRT PTR(31),     /* ASYNCHRONOUS ROUTINES         */ 00900004
            3 BIBSIOAP PTR(31),     /* START I/O APPENDAGE           */ 01000003
          2 BIBJOBNM CHAR(8),       /* JOBNAME OF ISSUER OF OPEN     */ 01050003
          2 BIBSTPNM CHAR(8),       /* STEP NAME OF OPENER           */ 01150003
          2 BIBDDNM CHAR(8),        /* DDNAME OF OPENER              */ 01200003
          2 BIBASCB PTR(31);        /* ASCB ADDR OF ISSUER OF OPEN   */ 01250003