******************************************************************** * EZ-DB 5.5 PTF CE409114 March 2006 * * * * KEYWORDS : CA-IDMS R16 OVERRIDE STARTUP DATE QI75223 * * CE409112 CE409113 SP01 * * * * EZ-DB Release 5.5 Tape C40901 * * CA-IDMS R16 SP01 Only. * * * * NOTES : This PTF replaces CE409112 and CE409113, in * * light of CA PIB QI75223 for R16 SP01 only. * * * * CA have issued PIB QI75223, that details the * * zaps required. The zaps below are based on this * * PIB. The previous PTFs CE409112 and CE409113 * * do not change all occurences of STCK, and * * as such, CA have reported that CV can loop * * with products that manipulate the date/time * * calls. * * * * 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, 2007, 23:55 or any other * * date and time of your choice. Note: The earliest * * valid date is January 1, 2000 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, you must re-link and * * zap the applicable IDMS load modules (including * * the startup module), to change the existing * * STCK instructions to Time SVC calls, that * * EZ-Test can then intercept. * * * * 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 * * zaps are included below. * * * * The load library containing the zapped module * * must be included in the BCF job's 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 IDMS routines 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 INSTRUCTION: * * ====================== * * (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. * * //***************************************************************** //* 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 RHDCOS00(256) EXPAND TIMING(256) EXPAND WAITPOST(256) EXPAND SUBTASKS(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 RHDCOS00(256) EXPAND TIMING(256) EXPAND WAITPOST(256) EXPAND SUBTASKS(256) MODE RMODE(24),AMODE(24) ENTRY STARTUP NAME IDMSDC(R) <--- change IDMSDC to the name of /* your startup module. ******************************************************************** * * * ZAP INSTRUCTIONS: * * ================= * * (1) Change modname to the name of your CA-IDMS startup * * module or RHDCOMVS (see NOTES below). * * (2) Apply the zaps. It is recommended that * * you apply the zaps to copies of your startup module * * and RHDCOMVS, and then include the copies in your * * EZDB runtime library. * * * * NOTES: * * This PTF contains ZAPS for RHDCOMVS and the CA-IDMS * * startup module. You need to apply the appropriate * * zaps to both modules. You may prefer to just zap * * the RHDCOMVS module as described, and then * * regenerate your applicable startup modules * * (to include the zapped RHDCOMVS) using your * * existing JCL. * * * ******************************************************************** * CE409114 IDMS R16 * ******************************************************************** ** Zaps for CA-IDMS R16 SP01 ** ******************************************************************** * NAME modname RHDCOS00 <--- RHDCOMVS or startup module name * VER 000352 B205,B1A0 STCK 416(R11) * VER 001680 0000,0000,0000,0000,0000,0000,0000,0000 VER 001690 0000,0000,0000,0000,0000,0000,0000,0000 * REP 000352 47F0,BBE0 B PATCH (R11+3040) * REP 001680 4110,0004 PATCH LA R1,4(0,0) REP 001684 4100,B1A0 LA R0,416(0,R11) REP 001688 50F0,BBFC ST R15,SAVR15 REP 00168C 0A0B SVC 11 REP 00168E 12FF LTR R15,R15 REP 001690 05F0 BALR R15,0 * USING *,R15 REP 001692 58F0,F00A L R15,SAVR15 REP 001696 47F0,C2BA B INLINE REP 00169A 0000 REP 00169C 0000,0000 SAVR15 DC A(0) * NAME modname TIMING <--- RHDCOMVS or startup module name * VER 000108 B205,D000 STCK 0(R13) VER 00010C 4770,C0E2 BNZ C0E2 * VER 000222 5110,D018 TIME MIC,8(R13),LINKAGE=SYSTEM,ZONE=GMT VER 000226 D71B,1000,1000 VER 00022C 9283,1003 VER 000230 9200,1002 VER 000234 58E0,0010 VER 000238 58EE,0304 VER 00023C 58EE,0130 VER 000240 B218,E000 VER 000244 51E0,D008 VER 000248 D20F,E000,100C * VER 0002BC 5110,D018 TIME MIC,8(R13),LINKAGE=SYSTEM,ZONE=LT VER 0002C0 D71B,1000,1000 VER 0002C6 9203,1003 VER 0002CA 9200,1002 VER 0002CE 58E0,0010 VER 0002D2 58EE,0304 VER 0002D6 58EE,0130 VER 0002DA B218,E000 VER 0002DE 51E0,D008 VER 0002E2 D20F,E000,100C * * VER 000D50 0000,0000,0000,0000,0000,0000,0000,0000 VER 000D60 0000,0000,0000,0000,0000,0000,0000,0000 VER 000D70 0000,0000 * REP 000108 47F0,CC60 B PATCH * REP 000222 4110,0083 TIME MIC,8(R13),LINKAGE=SVC,ZONE=GMT REP 000226 4110,D008 REP 00022A 0A0B REP 00022C 4100,0001 LA R0,1 REP 000230 8900,0019 SLL R0,19 REP 000234 8910,0008 SLL R1,8 REP 000238 8810,000C SRL R1,12 REP 00023C 1610 OR R1,R0 REP 00023E 5010,D010 ST R1,16(R13) REP 000242 0700 NOP REP 000244 0700,0700 REP 000248 0700,0700,0700 * REP 0002BC 4110,0003 TIME MIC,8(R13),LINKAGE=SVC,ZONE=LT REP 0002C0 4100,D008 REP 0002C4 0A0B REP 0002C6 4100,0001 LA R0,1 REP 0002CA 8900,0019 SLL R0,19 REP 0002CE 8910,0008 SLL R1,8 REP 0002D2 8810,000C SRL R1,12 REP 0002D6 1610 OR R1,R0 REP 0002D8 5010,D010 ST R1,16(R13) REP 0002DC 0700 NOP REP 0002DE 0700,0700 REP 0002E2 0700,0700,0700 * 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 modname WAITPOST <--- RHDCOMVS or startup module name * VER 000060 9801,7080 LM R0,R1,128(R7) VER 000064 B205,7080 STCK 128(R7) VER 000068 98EF,7080 LM R14,R15,128(R7) * VER 00014C B205,7080 STCK 128(R7) VER 000150 0101 PR VER 000152 0000 VER 000154 0000,0000 * VER 004230 0000,0000,0000,0000,0000,0000,0000,0000 VER 004240 0000,0000,0000,0000,0000,0000,0000,0000 VER 004250 0000,0000,0000,0000,0000,0000,0000,0000 VER 004260 0000,0000,0000,0000,0000,0000,0000,0000 * REP 000060 41F0,0845 LA R15,X'845' REP 000064 89F0,0003 SLL R15,3 REP 000068 1AFC AR R15,R12 REP 00006A 07FF BR R15 --> P1 * REP 00014C 41F0,084B LA R15,X'84B' REP 000150 89F0,0003 SLL R15,3 REP 000154 1AFC AR R15,R12 REP 000156 07FF BR R15 --> P2 * REP 004230 D207,F024,7080 P1 MVC SAVR01(8),128(R7) REP 004236 4110,0004 LA R1,4(0,0) REP 00423A 4100,7080 LA R0,128(0,R7) REP 00423E 0A0B SVC 11 REP 004240 12FF LTR R15,R15 REP 004242 05F0 BALR R15,0 * USING *,R15 REP 004244 9801,F010 LM R0,R1,SAVR01 REP 004248 98EF,7080 LM R14,R15,128(R7) REP 00424C 1FF1 SLR R15,R1 REP 00424E 47F0,C066 B INLINE REP 004252 0000 REP 004254 0000,0000 SAVR01 XL8 REP 004258 0000,0000 * REP 004260 4110,0004 P2 LA R1,4(0,0) REP 004264 4100,7080 LA R0,128(0,R7) REP 004268 0A0B SVC 11 REP 00426A 12FF LTR R15,R15 REP 00426C 0101 PR * NAME modname SUBTASKS <--- RHDCOMVS or startup module name * VER 0002FE B205,7080 STCK 128(R7) * VER 000450 0000,0000,0000,0000,0000,0000,0000,0000 VER 000460 0000,0000,0000,0000,0000,0000,0000,0000 * REP 0002FE 47F0,C1AC B PATCH * REP 000450 4110,0004 PATCH LA R1,4(0,0) REP 000454 4100,7080 LA R0,128(0,R7) REP 000458 50F0,C1C8 ST R15,SAVR15 REP 00045C 0A0B SVC 11 REP 00045E 12FF LTR R15,R15 REP 000460 05F0 BALR R15,0 * USING *,R15 REP 000462 58F0,F00A L R15,SAVR15 REP 000466 47F0,C052 B INLINE REP 00046A 0000 REP 00046C 0000,0000 SAVR15 DC A(0) * NAME COXAPTCH COXAZAPS VER 000388 0000,0000,0000,0000 REP 000388 C3C5,F4F0,F9F1,F1F4 CE409114