View previous topic :: View next topic
|
Author |
Message |
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...... |
|
Back to top |
|
|
UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
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 |
|
Back to top |
|
|
|