*%GO TO ACBEXTXX;                                                       00050040
* /*                                                                */  00100040
* /*     CHANGE LEVEL = 0                                   @ZA34940*/  00150040
* /*     DATE OF LAST CHANGE = 14  NOV  78  ( 78*318 )      @ZA34940*/  00200040
* /*                                                                */  00250040
* /******************************************************************/  00300040
* /*                                                                */  00350040
* /*     ACB VSAM EXTENSION                                         */  00400040
* /*                                                                */  00450040
* /*     THE EXTENSION DESCRIBES ADDITIONAL VSAM CONTROL            */  00500040
* /*     DATA. THE EXTENSION IS CALLED UNCONDITIONALLY              */  00550040
* /*     BY IFGACB AND IS APPENDED TO THE ACB COMMON AREA.          */  00600040
* /*                                                                */  00650040
* /*     IN ADDITION, IFGACBVS INVOKES THE VTAM EXTENSION,          */  00700040
* /*     ISTACBEX, UNDER THE FOLLOWING CONDITIONS:                  */  00750040
* /*                                                                */  00800040
* /*        PLS:  THE MODULE CONTAINING AN INCLUDE FOR IFGACB       */  00850040
* /*              SETS THE MACRO VARIABLE 'ACBRPLXL' TO 'VTAM'      */  00900040
* /*              PRIOR TO ISSUING THE INCLUDE.                     */  00950040
* /*        BAL:  THE AM=VTAM PARAMETER IS CODED ON THE MACRO       */  01000040
* /*              CALL.                                             */  01050040
* /*                                                                */  01100040
* /*                                                                */  01150040
* /******************************************************************/  01200040
* /*                                                                */  01250040
* /*                  PL/S VSAM ACB EXTENSION                       */  01300040
* /*                                                                */  01350040
*%ACBEXTXX:;                                                            01400040
* /*                                                                */  01450040
*     %IF ACBRPLXL ^= 'VTAM'                /* IS IT VTAM           */  01500040
*         %THEN %GOTO VSAMACB;              /* NO, BYPASS           */  01550040
*         %INCLUDE SYSLIB(ISTACBEX);        /* YES, GET EXTENSION   */  01600040
*     %GOTO ACBEXEND;                       /* EXIT                 */  01650040
*%VSAMACB: ;                                                            01700040
*         2 * CHAR(0);                      /* GENERATE END OF ACB  */  01750040
*     %GOTO ACBEXEND;                       /* EXIT*/                   01800040
* /*                                                                */  01850040
* /*                  ASSEMBLER VSAM ACB EXTENSION                      01900040
*                                                                       01950040
         MACRO                                                          02000040
         IFGACBVS &AM=                                                  02050040
         AIF   ('&AM' NE 'VTAM').ENDACBX    IS IT VTAM                  02100040
         ISTACBEX                       YES, GET VTAM EXTENSION         02150040
*                                                                       02200040
.ENDACBX ANOP                                                           02250040
         MEND                                                           02300040
*              END OF VSAM ACB EXTENSION                            */  02350040
*%ACBEXEND: ;                                                           02400040
*                                                                       02450040