How to get Date and Time in CICS

When you are working on CICS, we need to obtain Date and Time from CICS terminals. When a task is started, CICS will store these values in exec interface block fields like EIBDATE and EIBTIME.

When a task is started these fields will be updated with TIME and date.

Also Read | How to modify VSAM file length in CICS

• 

• 

• 

• 

Logic to get Date and Time in CICS.

The ASKTIME command will update DATE and TIME into EIBDATE and EIBTIME fields. Later we need to use FORMATTIME command to get Date and Time in format whatever way we want.

EXEC CICS
 ASKTIME [ ABSTIME(data-area) ]
 END-EXEC

ABSTIME command places DATE and TIME fields into local area.

Also Read | The best way to handle file sharing in CICS

How to get DAY-OF-WEEK using below code

This example shows how to obtain an absolute time and, using a FORMATTIME command, get the current day-of-week. ABSOLUTE-TIME is a 15-digit packed-decimal field (PIC S9(15) COMP-3), and DAY-OF-WEEK is a binary fullword (PIC S9(8) COMP).

0500-GET-DAY-OF-WEEK.  *  
EXEC CICS  ASKTIME ABSTIME(ABSOLUTE-TIME)  
END-EXEC.  
EXEC CICS  FORMATTIME ABSTIME(ABSOLUTE-TIME)  
DAYOFWEEK(DAY-OF-WEEK)  END-EXEC.