| Author |
Message |
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  |
|
| Back to top |
|
 |
References
|
 Posted: Mon Jun 21, 2004 10:13 am Post subject: Re: current date & time |
|
|
|
|
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 |
|
| Back to top |
|
|
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 |
|
| Back to top |
|
|
|
|
