//****************************************************************** //* CE409117 This is a complete replacement for DB2KLE37 supplied * //* on the C40901 install, to include z/OS releases. * //****************************************************************** //* DB2KLE37 * //* * //* This optional install job adds the standard EZTest SVC Hook * //* functionality to the LE370 COBOL Function CURRENT-DATE and * //* ACCEPT FROM DATE. * //* Under LE these functions uses StoreClock (STCK) to obtain * //* the current date/time, rather than issuing an SVC11 (Time) * //* call. As STCK is a machine instruction, it cannot be * //* intercepted. In order to include the EZTest functionality, * //* the LE module has to be modified to alter the STCK to call * //* SVC11. * //* * //* Follow the instructions in this job to relink the LE * //* module containing the STCK to expand it to inlude patch space * //* for this change. The resulting moduled is then zapped to * //* alter the STCK. * //* * //* Note that there are five sections for this job depending on * //* your release. The first is for users on LE370 V1.4 or lower, * //* the second is for users on LE370 V1.5 to 1.7, the third is * //* for users on LE370 V1.8, the fourth is for users on LE370 * //* V1.9 and the last is for z/OS 1.3 to 1.6. * //* Follow the instructions relevant to your release. * //* * //* USAGE * //* ===== * //* Once the changes have been made, the functionsc will be * //* aged exactly as described in the SVC Hook component of EZTest * //* 2000. The SVC Hook must therefore be installed in order for * //* aging to occur following the application of this change. * //* Any job that requires Function calls to return aged dates * //* must include the ez-db load library containing the modified * //* LE module within the job's STEPLIB or JOBLIB, and it must * //* be higher in the concatenation than the standard LE * //* runtime library. The control of the aged date returned is * //* controlled in exactly the same manner as described for the * //* SVC Hook component. * //* * //****************************************************************** //****************************************************************** //* * //* SECTION 1 - DB2KLE37 FOR LE370 VERSION 1.4 OR LOWER * //* * //****************************************************************** //****************************************************************** //* Relink CEEYDTS to add patch space. * //* Note that the resulting module is put in the ez-db Loadlibrary * //****************************************************************** //* //RELINK1 EXEC PGM=IEWL,PARM='MAP,LIST,LET,RENT,REFR,REUS' //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=le370.runtime,DISP=SHR * LE/370 Runtime Library //SYSLMOD DD DSN=EZ-DB.LOADLIB,DISP=SHR * ez-db Runtime Library //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) //SYSLIN DD * INCLUDE SYSLIB(CEEYDTS) EXPAND CEEYGMT(256) NAME CEEYDTS(R) //* //****************************************************************** //* Modify the new CEEYDTS module to change the STCK instruction. * //****************************************************************** //* //ZAP1 EXEC PGM=AMASPZAP,COND=(0,LT) //SYSLIB DD DSN=EZ-DB.LOADLIB,DISP=SHR * ez-db Runtime Library //SYSPRINT DD SYSOUT=* //SYSIN DD * NAME CEEYDTS CEEYGMT VER 0060 B205,D0B0 STCK 176(R13) VER 0260 0000,0000 VER 0264 0000,0000 VER 0268 0000 VER 026A 0000,0000 * REP 0060 47F0,B260 B PATCH+0 REP 0260 4110,0004 LA R1,4(0,0) REP 0264 4100,D0B0 LA R0,176(0,R13) REP 0268 0A0B SVC 11 REP 026A 47F0,B068 B INLINE * //* //****************************************************************** //****************************************************************** //* * //* SECTION 2 - DB2KLE37 FOR LE370 VERSION 1.5, 1.6 OR 1.7 * //* * //****************************************************************** //****************************************************************** //* Relink CEEPLPKA to add patch space. * //* Note that the resulting module is put in the ez-db Loadlibrary * //****************************************************************** //* //RELINK1 EXEC PGM=IEWL,PARM='MAP,LIST,LET,RENT,REFR,REUS' //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=le370.runtime,DISP=SHR * LE/370 Runtime Library //SYSLMOD DD DSN=EZ-DB.LOADLIB,DISP=SHR * ez-db Runtime Library //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) //SYSLIN DD * INCLUDE SYSLIB(CEEPLPKA) EXPAND CEEYGMT(256) NAME CEEPLPKA(R) //* //****************************************************************** //* Modify the new CEEPLPKA module to change the STCK instruction. * //****************************************************************** //* //ZAP1 EXEC PGM=AMASPZAP,COND=(0,LT) //SYSLIB DD DSN=EZ-DB.LOADLIB,DISP=SHR * ez-db Runtime Library //SYSPRINT DD SYSOUT=* //SYSIN DD * NAME CEEPLPKA CEEYGMT VER 0060 B205,D0B0 STCK 176(R13) VER 0260 0000,0000 VER 0264 0000,0000 VER 0268 0000 VER 026A 0000,0000 * REP 0060 47F0,B260 B PATCH+0 REP 0260 4110,0004 LA R1,4(0,0) REP 0264 4100,D0B0 LA R0,176(0,R13) REP 0268 0A0B SVC 11 REP 026A 47F0,B068 B INLINE * //* //****************************************************************** //****************************************************************** //* * //* SECTION 3 - DB2KLE37 FOR LE370 VERSION 1.8 * //* * //****************************************************************** //****************************************************************** //* Relink CEEPLPKA to add patch space. * //* Note that the resulting module is put in the ez-db Loadlibrary * //****************************************************************** //* //RELINK1 EXEC PGM=IEWL,PARM='MAP,LIST,LET,RENT,REFR,REUS' //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=le370.runtime,DISP=SHR * LE/370 Runtime Library //SYSLMOD DD DSN=EZ-DB.LOADLIB,DISP=SHR * ez-db Runtime Library //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) //SYSLIN DD * INCLUDE SYSLIB(CEEPLPKA) EXPAND CEEYGMT(256) NAME CEEPLPKA(R) //* //****************************************************************** //* Modify the new CEEPLPKA module to change the STCK instruction. * //****************************************************************** //* //ZAP1 EXEC PGM=AMASPZAP,COND=(0,LT) //SYSLIB DD DSN=EZ-DB.LOADLIB,DISP=SHR * ez-db Runtime Library //SYSPRINT DD SYSOUT=* //SYSIN DD * NAME CEEPLPKA CEEYGMT VER 0080 B205,D0B8 STCK 184(R13) VER 02A0 0000,0000 VER 02A4 0000,0000 VER 02A8 0000 VER 02AA 0000,0000 * REP 0080 47F0,B2A0 B PATCH+0 REP 02A0 4110,0004 LA R1,4(0,0) REP 02A4 4100,D0B8 LA R0,184(0,R13) REP 02A8 0A0B SVC 11 REP 02AA 47F0,B088 B INLINE * //* //****************************************************************** //****************************************************************** //* * //* SECTION 4 - DB2KLE37 FOR LE370 VERSION 1.9 OR HIGHER * //* * //****************************************************************** ******************************************************************** * Relink CEEPLPKA to add patch space. * * Note that the resulting module is put in the EZDB Loadlibrary * ******************************************************************** * //RELINK1 EXEC PGM=IEWL,PARM='MAP,LIST,LET,RENT,REFR,REUS' //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=le370.runtime,DISP=SHR * LE/370 Runtime Library //SYSLMOD DD DSN=ezdb.loadlib,DISP=SHR * EZDB Runtime Library //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) //SYSLIN DD * INCLUDE SYSLIB(CEEPLPKA) EXPAND CEEYGMT(256) NAME CEEPLPKA(R) //* ******************************************************************** * Modify the new CEEPLPKA module to change the STCK instruction. * ******************************************************************** * //ZAP1 EXEC PGM=AMASPZAP,COND=(0,LT) //SYSLIB DD DSN=ezdb.loadlib,DISP=SHR * EZDB Runtime Library //SYSPRINT DD SYSOUT=* //SYSIN DD * NAME CEEPLPKA CEEYGMT VER 00BC B205,D0B0 STCK 176(R13) VER 0340 0000,0000 VER 0344 0000,0000 VER 0348 0000 VER 034A 0000,0000 * REP 00BC 47F0,B340 B PATCH+0 REP 0340 4110,0004 LA R1,4(0,0) REP 0344 4100,D0B0 LA R0,176(0,R13) REP 0348 0A0B SVC 11 REP 034A 47F0,B0C4 B INLINE * //****************************************************************** //****************************************************************** //* * //* SECTION 5 - DB2KLE37 FOR Z/OS 1.3 TO 1.6 * //* * //****************************************************************** ******************************************************************** * Relink CEEPLPKA to add patch space. * * Note that the resulting module is put in the EZDB Loadlibrary * ******************************************************************** * //RELINK1 EXEC PGM=IEWL,PARM='MAP,LIST,LET,RENT,REFR,REUS' //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=le370.runtime,DISP=SHR * LE/370 Runtime Library //SYSLMOD DD DSN=ezdb.loadlib,DISP=SHR * EZDB Runtime Library //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) //SYSLIN DD * INCLUDE SYSLIB(CEEPLPKA) EXPAND CEEYGMT(256) NAME CEEPLPKA(R) //* ******************************************************************** * Modify the new CEEPLPKA module to change the STCK instruction. * ******************************************************************** * //ZAP1 EXEC PGM=AMASPZAP,COND=(0,LT) //SYSLIB DD DSN=ezdb.loadlib,DISP=SHR * EZDB Runtime Library //SYSPRINT DD SYSOUT=* //SYSIN DD * NAME CEEPLPKA CEEYGMT VER 00BC B205,D0B0 STCK 176(R13) VER 0348 0000,0000 VER 034C 0000,0000 VER 0350 0000 VER 0352 0000,0000 * REP 00BC 47F0,B348 B PATCH+0 REP 0348 4110,0004 LA R1,4(0,0) REP 034C 4100,D0B0 LA R0,176(0,R13) REP 0350 0A0B SVC 11 REP 0352 47F0,B0C4 B INLINE *