*%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