*%GO TO EXLEXTXX;                                                       00050040
* /*                                                                */  00100040
* /*     CHANGE LEVEL = 0                                   @ZA34940*/  00150040
* /*     DATE OF LAST CHANGE = 13  NOV   78 ( 78*317 )      @ZA34940*/  00200040
* /*                                                                */  00250040
* /******************************************************************/  00300040
* /*                                                                */  00350040
* /*     EXLST VSAM EXTENSION                                       */  00400040
* /*                                                                */  00450040
* /*     THE EXTENSION DESCRIBES ADDITIONAL VSAM CONTROL            */  00500040
* /*     DATA. THE EXTENSION IS CALLED UNCONDITIONALLY              */  00550040
* /*     BY IFGEXLST AND IS APPENDED TO THE EXLST COMMON AREA.      */  00600040
* /*                                                                */  00650040
* /*     IN ADDITION, IFGEXLVS INVOKES THE VTAM EXTENSION,          */  00700040
* /*     ISTEXLEX, UNDER THE FOLLOWING CONDITIONS:                  */  00750040
* /*                                                                */  00800040
* /*        PLS:  THE MODULE CONTAINING AN INCLUDE FOR IFGEXLST     */  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 EXLST EXTENSION                     */  01300040
* /*                                                                */  01350040
*%EXLEXTXX:;                                                            01400040
* /*                                                                */  01450040
*     %IF ACBRPLXL ^= 'VTAM'                /* IS IT VTAM           */  01500040
*         %THEN %GOTO VSAMEXL;              /* NO, BUYPASS          */  01550040
*         %INCLUDE SYSLIB(ISTEXLEX);        /* YES, GET EXTENSION   */  01600040
*     %GOTO EXLEXEND;                       /* EXIT                 */  01650040
*%VSAMEXL: ;                                                            01700040
*         2 * CHAR(0);                      /* GENERATE END OF EXLST*/  01750040
*     %GOTO EXLEXEND;                       /* EXIT*/                   01800040
*                                                                       01850040
* /*                  ASSEMBLER VSAM EXLST EXTENSION                    01900040
*                                                                       01950040
         MACRO                                                          02000040
         IFGEXLVS &AM=                                                  02050040
         AIF   ('&AM' NE 'VTAM').ENDEXLX    IS IT VTAM                  02100040
         ISTEXLEX                       YES, CALL VTAM EXTENSION        02150040
*                                                                       02200040
.ENDEXLX ANOP                                                           02250040
         MEND                                                           02300040
*              END OF VSAM EXLST EXTENSION                          */  02350040
*%EXLEXEND: ;                                                           02400040
*                                                                       02450040