/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDAVAT                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = VALID AMBL TABLE.                           */ 00250004
 /*                                                                  */ 00260004
 /*   FUNCTION = THE VAT CONTAINS THE ADDRESS OF EACH AMBL CREATED   */ 00270004
 /*              FOR A BASE KSDS.  THE VAT IS USED FOR VALIDITY CHECK*/ 00280004
 /*              OF AMBL'S.                                          */ 00290004
 /*                                                                  */ 00292004
 /*   CONTROL BLOCK STRUCTURE = POINTED TO BY THE JSCB (JSCBSHR).    */ 00294004
 /*                                                                  */ 00296004
 /*   INCLUDED MACROS = NONE                                         */ 00298004
 /*                                                                  */ 00298404
 /*   METHOD OF ACCESS = PL/S - RESPECIFY IDAVAT BASED.              */ 00298804
 /*                                                                  */ 00299204
 /*   CREATED BY: VSAM OPEN MODULE IDA0192F.                         */ 00299604
 /*                                                                  */ 00299704
 /*   STATUS = VS1 RELEASE 4, VS2 RELEASE 3.                         */ 00299804
 /*                                                                  */ 00299904
 /*   DATE OF LAST CHANGE = 1 AUGUST 74                              */ 00303204
 /*                                                                  */ 00305204
 /********************************************************************/ 00305604
    DCL 1 IDAVAT BASED BDY (DWORD), /* VALID AMBL TABLE              */ 00306704
          2 VATHDR,                 /* HEADER                        */ 00310004
            3 VATID CHAR(1),        /* CONTROL BLOCK ID              */ 00320004
            3 * CHAR(1),            /* RESERVED                      */ 00330004
            3 VATLEN FIXED(15),     /* LENGTH OF VAT                 */ 00340004
          2 VATNEXT PTR(31),        /* ADDRESS OF NEXT VAT           */ 00350004
          2 VATVSRT CHAR(8) BDY(DWORD), /* USED IN CDS INSTRUCTION   */ 00450004
            3 VATVUSE FIXED(31),    /* VSRT USE CNT                  */ 00452004
            3 VATVPTR PTR(31),      /* PTR TO VSRT                   */ 00456004
          2 VATPAMBL PTR(31),       /* ADR 1ST AMBL IN PRIMARY CHAIN */ 00458004
          2 VATVC FIXED(15),        /* USED BY AMBL FOR VALIDITY CHECK*/00460004
            3 VATVRT FIXED(8),      /* TABLE NUMBER                  */ 00500004
            3 VATENO FIXED(8),      /* NUMBER OF ENTRIES             */ 00510004
          2 * CHAR(2),              /* NOT USED                      */ 00520004
          2 VATNAE FIXED(31),       /* NUMBER OF ACTIVE ENTRIES      */ 00550004
          2 VATAMBL(16) PTR(31);    /* ADDRESSES OF VALID AMBL'S     */ 00600004