Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

current date & time

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
lakshmibala

New User


Joined: 16 Jun 2004
Posts: 47

PostPosted: Mon Jun 21, 2004 10:13 am    Post subject: current date & time
Reply with quote

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 icon_lol.gif
Back to top
View user's profile Send private message

thampirahul

New User


Joined: 19 May 2004
Posts: 3

PostPosted: Mon Jun 21, 2004 10:29 am    Post subject:
Reply with quote

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
View user's profile Send private message
imvs

New User


Joined: 12 May 2004
Posts: 33

PostPosted: Mon Jun 21, 2004 11:11 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts DSNACCOX (can it be run on 1 db/ts, t... SRICOBSAS DB2 3 Sat May 06, 2017 12:59 am
No new posts SMTP the current generation number of... Jyothi Kulunde JCL & VSAM 4 Thu May 04, 2017 4:08 pm
No new posts LISTIDR compiled date/time jerryte IBM Tools 3 Thu Apr 20, 2017 7:37 pm
No new posts Application not run by time HH:MM tri... jzhardy IBM Tools 1 Sun Apr 09, 2017 3:22 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us