/********************************************************************/ 00110004
 /*                                                                  */ 00120004
 /*   MACRO NAME = IDACLWRK                                          */ 00130004
 /*                                                                  */ 00140004
 /*   DESCRIPTIVE NAME = VSAM CLOSE AND T-CLOSE ACB WORK AREA.       */ 00142004
 /*                                                                  */ 00144004
 /*   FUNCTION = THE ACB WORK AREA IS USED FOR INTERNAL COMMUNICATION*/ 00146004
 /*              WITHIN THE CLOSE MODULES AND THE T-CLOSE MODULES.   */ 00148004
 /*                                                                  */ 00148404
 /*   CONTROL BLOCK STRUCTURE = THE IDACLWRK IS POINTED TO BY        */ 00150404
 /*                             REGISTER 4 (RCORE).                  */ 00152404
 /*                                                                  */ 00152604
 /*   INCLUDED MACROS = NONE                                         */ 00154604
 /*                                                                  */ 00156604
 /*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY.               */ 00158604
 /*                                                                  */ 00162604
 /*   CREATED BY: VSAM CLOSE MODULE IDA0200T.                        */ 00164604
 /*               VSAM T-CLOSE MODULE IDA0231T.                      */ 00165004
 /*                                                                  */ 00166604
 /*   STATUS = VS1 RELEASE 4, VS2 RELEASE 3.                         */ 00176604
 /*                                                                  */ 00178604
 /*   DATE OF LAST CHANGE = 22 NOVEMBER 74                   @Z30SSRL*/ 00180603
 /*                                                                  */ 00182604
 /********************************************************************/ 00183004
    DCL                                                                 00183304
      1 IDACLWRK BASED(RCORE),      /* ACB WORK AREA                 */ 00193304
       2 CLWID CHAR(8),             /* CLOSE ACB WK AREA ID  @Z30SSRL*/ 00195303
       2 CLWCOMWK PTR(31),          /* ADDRESS OF COMMON WORK AREA   */ 00200004
       2 CLWAMBPT PTR(31),          /* CURRENT AMB POINTER           */ 00210004
       2 CLWSFI CHAR(12),           /* SUB FUNCTION INFORMATION AREA */ 00220004
       2 CLWBNOFL BIT(1),           /* INDICATE NO BUFFER FLUSH      */ 00250004
       2 CLWCNOUP BIT(1),           /* INDICATE NO CATALOG UPDATE    */ 00300004
       2 CLWNWRIT BIT(1),           /* INDICATE NO WRTBFR            */ 00350004
       2 CLWPATH BIT(1),            /* INDICATE PATH PROCESSING      */ 00400004
       2 CLWSPHCL BIT(1),           /* INDICATE CLOSE ENTIRE SPHERE  */ 00450004
       2 CLWDUMMY BIT(1),           /* INDICATE DUMMY DATA SET       */ 00500004
       2 CLWOUTPT BIT(1),           /* INDICATE BASE DATA SET OPENNED   00600004
                                       FOR OUTPUT                    */ 00650004
       2 CLWPARCL BIT(1),           /* INDICATE PARTIAL CLOSE        */ 00700004
       2 CLWPRMCL BIT(1),           /* INDICATE PRIMARY CLOSE        */ 00750004
       2 CLWSECCL BIT(1),           /* INDICATE SECONDARY CLOSE      */ 00800004
       2 CLWGMAIN BIT(1),           /* IND MODULE WORK AREA BUILT    */ 00850004
       2 CLWTERM  BIT(1);           /* INDICATE TERMINATING ERROR IN    00900004
                                       IDA0200B                      */ 00910004