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