current date & time

lakshmibala · New User Joined: 16 Jun 2004 Posts: 47

hi,

how to get the current date & time from the cics region .

explain it with the code.

i know that the function used is asktime and formattime but tell me how to implement

bye with regards,

laskhmi

thampirahul · New User Joined: 19 May 2004 Posts: 3

hai
exec cics asktime
end-exec.
exec cics formattime
mmddyy(ws-var)
end-exec.

You will get time in the working storage variable ws-var in the mentioned format

imvs · New User Joined: 12 May 2004 Posts: 33

01 ws-date-vars.
02 ws-abs-time pic s9(15) comp-3.
02 ws-mmddyyyy pic x(10).
02 ws-time pic x(8).

******* to get absolute time
EXEC CICS ASKTIME
ABSTIME(ws-abs-time)
END EXEC.
******* to get date and time in required format
EXEC CICS FORMATTIME
ABSTIME(ws-abs-time)
MMDDYYYY(ws-mmddyyyy)
DATESEP('-')
TIME(ws-time)
TIMESEP
END-EXEC