There are four kinds of issues…
1). Method One: How to Write Time Logic
ASK TIME
You will get time in the format as mentioned by your admin. By mistake if you use this time, you may get incorrect result. Always use FORMATTIME to change date or time into your local format.
2). Method Two: How to Write Time Logic
You do not know, but during changing of local time , admin must reset the time.
CEMT PERFORM RESET
Then it syncs to local time
3). Method Three: How to Write Time Logic
Why ASKTIME and FORMATTIME you need
Time already there in EIBDATE and EIBTIME fields
You should know how to use above fields. Else, you will get incorrect time.
4). Method Four: How to Write Time Logic
You need to know why ASKTIME is being used in CICS programs.
The reason is to get timestamp for logging purpose.
Subscribe to our emailing list
Syntax for FORMATTIME and ASKTIME
CICS Date/Time Functions WORKING-STORAGE SECTION. 01 WS-TIME PIC S9(15) COMP-3 VALUE 0. 01 PRINT-DATE PIC X(08) VALUE ‘12/01/99’. 01 PRINT-TIME PIC X(08) VALUE ‘09:30:00’. … PROCEDURE DIVISION. … EXEC CICS ASKTIME ABSTIME(WS-TIME) END-EXEC … EXEC CICS FORMATTIME ABSTIME(WS-TIME) MMDDYY(PRINT-DATE) DATESEP(‘/’) END-EXEC … EXEC CICS FORMATTIME ABSTIME(WS-TIME) TIME(PRINT-TIME) TIMESEP(‘:’) END-EXEC ********** Other Formats Available (There are more!) ************** EXEC CICS FORMATTIME ABSTIME(WS-TIME) YYDDD(DATA-AREA) YY/DDD YYMMDD(DATA-AREA) YY/MM/DD DATESEP(‘-‘) YY-MM-DD ] * Following 4 receiving fields are defined as: PIC S9(08) COMP. DAYOFWEEK(DATA-AREA) Sun=0, Mon=1,… DAYOFMONTH(DATA-AREA) MONTHOFYEAR(DATA-AREA) Jan=1, Feb=2,… YEAR(DATA-AREA) 4 DIGIT YEAR!! END-EXEC
Related Posts
