use of DATE-COMPILE and TITTLE in IDENTIFICATION DIVISION.

AJAYKHANDELWAL · New User Joined: 23 Sep 2006 Posts: 1

HEY GUYS CAN ANYONE PASS ME A SAMPLE PRG USING DATE-COMPILE AND TITTLE COMMAND IN IDENTIFICATION DIVISION WITH ITS ITS ACCEPTED OUTPUT. I READ IT IN MAINFRAME HANDBOOK THAT IT DISPLAYS DATE OF COMPILATION AND THE MVS NAME AND RELEASE...I TRIED BUT COULD NOT GET ANY THING OUT OF IT SO IF ANY ONE CAN GUIDE ME HOW IT WRKS......

UmeySan · Posted: Mon Sep 25, 2006 5:46 pm

Hi !

I only use the WhenCompiled option to display the ProgrammReleaseVersion in the RunTimeProtokoll.

01 COMP-DATUM PIC X(16).

ProtokolLine

...05 FILLER PIC X(25) VALUE 'PROGRAMMVERSION : '.
...05 IZ02DD PIC X(08).

MOVE WHEN-COMPILED TO COMP-DATUM

MOVE COMP-DATUM TO IZ02DD
MOVE COMP-DATUM (4:2) TO IZ02DD (1:2)
MOVE COMP-DATUM (1:2) TO IZ02DD (4:2)
MOVE COMP-DATUM (9:8) TO IZ03UM (1:8)

Regards, UmeySan