Date Simulator r 2.0 in not warping LE Dates in CICS 5.5 when statically calling LE program CEELOCT.

Products

• Date Simulator

Issue/Introduction

Date Simulator in not warping LE Dates in CICS 5.5  when statically calling LE program CEELOCT. The CICS EIBDATE is warping correctly and the latest cumulative fix level TF1D338 is being used.

 

Environment

Z/OS

CICS

Cause

The client was not specifying the LE store clock offsets when warping the CICS date using the Date Simulator SET command.

Resolution

In order to warp LE dates in CICS when statically calling LE program CEELOCT you must provide Date Simulator the offsets of the LE Store clock instructions.
The Store clock instructions are located in module CEEPLPKA in LE PDS CEE.SCEERUN. 

To find the store clock instructions in module CEEPLPKA you execute Date Simulator utility program STCKFNDX pointing to CEE.SCEERUN.

//STCKFNDX EXEC PGM=STCKFNDX                                            
//STEPLIB  DD   DISP=SHR,DSN=DATE SIMULATOR LOAD  
//SYSLIB  DD DISP=SHR,DSN=CEE.SCEERUN          
//OUTFILE DD SYSOUT=X                                                   
//SYSPRINT DD SYSOUT=*                                                  

In the report output you search on CEEYGMT. In the following example  module CEEPLPKA has three store clock offsets.

Possible STCKE in module CEEPLPKA, offset 001FB294, 
         section CEEYGMT, offset 0000009C           

Possible STCKE in module CEEPLPKA, offset 001FB470,
         section CEEYGMT, offset 00000278          

Possible STCKF in module CEEPLPKA, offset 001FB474, 
         section CEEYGMT, offset 0000027C    

From the three offsets above the following Date Simulator store clock command STCK is created and will be specified in the SET command when warping the CICS date. The leading ZERO from each offset was removed as shown below.

STCK(CEEPLPKA,01FB294,CEEPLPKA,01FB470,CEEPLPKA,01FB474)      

Next you execute the Date Simulator utility program WARPPARM to place the CICS region under Date Simulator control. In the example below the CLEAR command will removed any previous warping for CICS region CICSPD72. The SET COMMAND will place CICS region CICSPD72 running as a started task(STC) under Date Simulator control with a future date of 03/01/2025. The SHOW command will confirm the SET command was successfully executed. 

//WARPPARM EXEC PGM=WARPPARM                                         
//STEPLIB  DD DISP=SHR,DSN=DATE SIMULATOR.APFLOAD 
//SYSUDUMP DD   SYSOUT=X                                             
//SYSOUT   DD   SYSOUT=X                                             
//SYSIN    DD   *                                                    
CLEAR JOB CICSPD72                                                   
SET STC CICSPD72 CICSALL DATE 03/01/2025 -                           
STCK(CEEPLPKA,01FB294,CEEPLPKA,01FB470,CEEPLPKA,01FB474)       
SHOW                                                                 
/*                                                                   
//  

The SHOW report confirms the settings for my CICS region CICSPD72 and the STCK  -  store clock offsets are present.

SET STC CICSPD72 USERID *        JOBCLASS * START   TIME  18:02:23 DATE 03/01/2025 -        
CICSALL -                                                                                   
 STCK(CEEPLPKA,01FB294,CEEPLPKA,01FB470,CEEPLPKA,01FB474)  

Once the SET command has successfully executed you will start your CICS region. In your CICS startup messages you will see the Date Simulator messages that show the warp date being used and messages that show the offsets of the store clock instructions. For example    

18.09.11 JOB65266  WARP000I: TRANSCENTURY DATE SIMULATOR WILL WARP DATE TO 18:02:23 ON 03/01/2025 

18.09.17 JOB65266  WARP001I:  STCK TYPE INSTRUCTION PROPERLY HOOKED AT OFFSET 01FB294 OF PROGRAM CEEPLPKA (ADDRESS 3D1FA414)  
18.09.17 JOB65266  WARP001I:  STCK TYPE INSTRUCTION PROPERLY HOOKED AT OFFSET 01FB470 OF PROGRAM CEEPLPKA (ADDRESS 3D1FA5F0)  
18.09.17 JOB65266  WARP001I:  STCK TYPE INSTRUCTION PROPERLY HOOKED AT OFFSET 01FB474 OF PROGRAM CEEPLPKA (ADDRESS 3D1FA5F4)