how to get century from date in cics

Arun bv · New User Joined: 29 Dec 2010 Posts: 41 Location: Mumbai

we can use below lines to get date

EXEC CICS ASKTIME
ABSTIME (WS-ABSTIME)
END-EXEC.

EXEC CICS FORMATTIME
ABSTIME(WS-ABSTIME)
MMDDYY(WS-DATE)
TIME(WS-TIME)
END-EXEC.

but i need date of Format: CCYYMMDD

so i need century...

can anyone tell me how to get century.

Bill O'Boyle · Posted: Thu Mar 31, 2011 6:56 pm

This is easily answered.

Review Keyword "YYYYMMDD" (a/k/a "CCYYMMDD") for the "FORMATTIME" API and all will be forgiven....

You can fool with this via "CECI".

Make sure "WS-DATE" is PIC X(10) if you use the DATESEP Keyword.

Bill

Robert Sample · Posted: Thu Mar 31, 2011 6:59 pm

RTFM.
CICS Application Programming Reference manual, link at the top of the page, section 1.87 on FORMATTIME

Arun bv · New User Joined: 29 Dec 2010 Posts: 41 Location: Mumbai

you mean to say

EXEC CICS FORMATTIME
ABSTIME(WS-ABSTIME)
YYYYMMDD(WS-DATE)
TIME(WS-TIME)
END-EXEC

use it in the command and take first two YY of "YYYY" ,,,and that will give century

Robert Sample · Posted: Thu Mar 31, 2011 7:03 pm

You should move over to A Forum for Mainframe Beginners and Students since your questions demonstrate you need to be there. This forum is for professionals -- ones who can read manuals and don't need confirmation when told an answer.

enrico-sorichetti · Posted: Thu Mar 31, 2011 7:10 pm

nothing that You could not have found by Yourself
looking at the cics manuals here

or lazier googling for EXEC CICS FORMATTIME
which would have taken You here

Arun bv · New User Joined: 29 Dec 2010 Posts: 41 Location: Mumbai

thanks to all replies and comments....