******************************************************************** * EZ-DB 5.5 PTF CE409112 August 2005 * * * * KEYWORDS : CA-IDMS R16 OVERRIDE STARTUP DATE * * * * EZ-DB Release 5.5 Tape C40901 * * CA-IDMS R16 Only. * * * * NOTES : This PTF is the CA-IDMS R16 version of the * * original PTF CE801220/CE907097 used for Release * * 12 and Release 14 systems. * * * * DESCRIPTION: This PTF allows CA-IDMS users to override the * * startup date/time of Central Versions and batch * * local mode and CV jobs including BCF jobs. * * * * With this PTF applied, you may control the * * startup date/time by either including the job * * name in the EZTest batch CTLTAB, or by including * * the applicable override statement(s) in the CV * * or batch run-time JCL. eg, //EZyymmdd DD DUMMY * * and //EZThhmm DD DUMMY. * * * * For example, you may start a CV with a date and * * time of December 31, 1999, 23:55 or any other * * date and time of your choice. Note: The earliest * * valid date is January 1, 1900 and the latest * * valid date is September 17, 2042. * * * * NOTES: * * 1. This PTF requires implementation of the * * SVC Hook component of EZ-Test Date. * * * * 2. Before starting a CV with a different date, it * * is recommended that you first initialise the * * Journals and Log file. * * * * 3. To implement this feature for CV, you must * * re-link and zap the applicable IDMS start-up * * module. Sample link-edit JCL and zaps are * * included below. * * * * The load library containing the zapped start-up * * module must be included in the STEPLIB and * * CDMSLIB concatenation of any CV that requires * * this feature, AHEAD of any other library which * * contains the original start-up module. * * * * 4. To implement this feature for BCF, you must * * re-link and zap the applicable operating system * * dependent module (RHDCOMVS or RHDCOESA). Sample * * link-edit JCL and zaps are included below. * * * * The load library containing the zapped module * * must be included in the BCF jobs STEPLIB * * concatenation AHEAD of any other library which * * contains the original operating system module. * * * * 5. With this zap applied, all STCK requests issued * * by the TIME routine are replaced by SVC calls * * which are intercepted by the EZTest SVC hook * * if active. If the SVC hook is not installed, or * * no applicable CTLTAB entry or JCL override * * statements are present, the job will execute * * normally with no date/time adjustment taking * * place. * * * * Tapes : EZ-DB C40901 * * * ******************************************************************** * * * LINK-EDIT INSTRUCTIONS: * * (1) Change IDMSDC to the name of your CA-IDMS startup * * module. * * (2) Change CAIDMS.LOADLIB to the name of the library * * containing your existing CA-IDMS startup module * * and/or RHDCOMVS. * * (3) Change COGITO.LOADLIB to the name of the library * * to contain the new startup module and/or RHDCOMVS * * module. This library must be included in the STEPLIB* * and CDMSLIB of any CV which requires this feature. * * * * NOTES: * * This PTF contains ZAPS for RHDCOMVS and the CA-IDMS * * startup module. As an alternative, you may prefer to* * just re-link and zap the RHDCOMVS module as * * described below, and then regenerate your applicable* * startup modules (to include the zapped RHDCOMVS) * * using your existing JCL. * * * //***************************************************************** //* Sample Link-edit Operating System Dependent Module * //***************************************************************** //OMVSLNK EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(256K,64K)', // REGION=1024K //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&WRKD,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //IDMSLIB DD DISP=SHR,DSN=CAIDMS.LOADLIB <---contains RHDCOMVS //SYSLMOD DD DISP=SHR,DSN=COGITO.LOADLIB <---runtime library. //SYSLIN DD * INCLUDE IDMSLIB(RHDCOMVS) EXPAND TIMING(256) MODE RMODE(24),AMODE(24) ENTRY STARTUP NAME RHDCOMVS(R) //***************************************************************** //* Sample Link-edit IDMS Start-up * //***************************************************************** //IDMSLNK EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(256K,64K)', // REGION=1024K //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&WRKD,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG) //IDMSLIB DD DISP=SHR,DSN=CAIDMS.LOADLIB <---contains IDMSDC //SYSLMOD DD DISP=SHR,DSN=COGITO.LOADLIB <---runtime library. //SYSLIN DD * INCLUDE IDMSLIB(IDMSDC) <--- change IDMSDC to the name of EXPAND TIMING(256) your startup module. MODE RMODE(24),AMODE(24) ENTRY STARTUP NAME IDMSDC(R) <--- change IDMSDC to the name of /* your startup module. ******************************************************************** * CE409112 IDMS R16 * ******************************************************************** NAME RHDCOMVS TIMING VER 000108 B205,D000 STCK 0(R13) VER 00010C 4770,C0E2 BNZ C0E2 VER 000D50 0000,0000 VER 000D54 0000,0000 VER 000D58 0000,0000 VER 000D5C 0000 VER 000D5E 0000 VER 000D60 0000 VER 000D62 0000,0000 VER 000D66 0000,0000 VER 000D6A 0000,0000 VER 000D6E 0000 VER 000D70 0000,0000 * REP 000108 47F0,CC60 B PATCH * REP 000D50 4110,0004 PATCH LA R1,4(0,0) REP 000D54 4100,D000 LA R0,0(0,R13) REP 000D58 50F0,CC30 ST R15,SAVR15 REP 000D5C 0A0B SVC 11 REP 000D5E 12FF LTR R15,R15 REP 000D60 05F0 BALR R15,0 * USING *,R15 REP 000D62 58F0,F00E L R15,SAVR15 REP 000D66 4770,C0E2 BNZ C0E2 REP 000D6A 47F0,C020 B INLINE REP 000D6E 0000 REP 000D70 0000,0000 SAVR15 DC A(0) * NAME IDMSDC TIMING <-- Change IDMSDC to your IDMS startup name VER 000108 B205,D000 STCK 0(R13) VER 00010C 4770,C0E2 BNZ C0E2 VER 000D50 0000,0000 VER 000D54 0000,0000 VER 000D58 0000,0000 VER 000D5C 0000 VER 000D5E 0000 VER 000D60 0000 VER 000D62 0000,0000 VER 000D66 0000,0000 VER 000D6A 0000,0000 VER 000D6E 0000 VER 000D70 0000,0000 * REP 000108 47F0,CC60 B PATCH * REP 000D50 4110,0004 PATCH LA R1,4(0,0) REP 000D54 4100,D000 LA R0,0(0,R13) REP 000D58 50F0,CC30 ST R15,SAVR15 REP 000D5C 0A0B SVC 11 REP 000D5E 12FF LTR R15,R15 REP 000D60 05F0 BALR R15,0 * USING *,R15 REP 000D62 58F0,F00E L R15,SAVR15 REP 000D66 4770,C0E2 BNZ C0E2 REP 000D6A 47F0,C020 B INLINE REP 000D6E 0000 REP 000D70 0000,0000 SAVR15 DC A(0) * NAME COXAPTCH COXAZAPS VER 000378 0000,0000,0000,0000 REP 000378 C3C5,F4F0,F9F1,F1F2 CE409112