Friday, September 21, 2007

How to get date in CICS

S8100-GET-DATE SECTION.

EXEC CICS ASKTIME
ABSTIME (W-ABSTIME)
NOHANDLE
END-EXEC.

EXEC CICS FORMATTIME
ABSTIME (W-ABSTIME)
DAYOFMONTH (W-DAY)
MONTHOFYEAR(W-MONTH)
YEAR (W-YEAR)
NOHANDLE
END-EXEC.


MOVE W-DAY TO W-NUM-DAY.
MOVE W-MONTH TO W-NUM-MONTH.
MOVE W-YEAR TO W-NUM-YEAR.

MOVE ZEROES TO W-CURRENT-DATE.
MOVE W-NUM-DAY TO W-CURRENT-DAY.
MOVE W-NUM-MONTH TO W-CURRENT-MONTH.
MOVE W-NUM-YEAR TO W-CURRENT-YYYY.



S8100-GET-DATE-EXIT.
EXIT.

05 W-ABSTIME PIC S9(15) COMP-3.
05 W-DAY PIC S9(08) COMP.
05 W-MONTH PIC S9(08) COMP.
05 W-YEAR PIC S9(08) COMP.

05 W-CURRENT-DATE.

10 W-CURRENT-YYYY.
15 W-CURRENT-CENTURY PIC X(02).
15 W-CURRENT-YEAR PIC X(02).

10 W-CURRENT-MONTH PIC X(02).
10 W-CURRENT-DAY PIC X(02).

05 W-NUMERIC-DATE.
10 W-NUM-YEAR PIC 9(04).
10 W-NUM-MONTH PIC 9(02).
10 W-NUM-DAY PIC 9(02).

1 comment:

  1. hi!,I like your writing so much! percentage we keep in touch more about your post on AOL?
    I require a specialist in this area to resolve my problem.
    May be that's you! Taking a look forward to look you.

    Visit my blog; walking calorie calculator

    ReplyDelete