Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
use of DATE-COMPILE and TITTLE in IDENTIFICATION DIVISION.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
AJAYKHANDELWAL

New User


Joined: 23 Sep 2006
Posts: 1

PostPosted: Sat Sep 23, 2006 12:36 pm    Post subject: use of DATE-COMPILE and TITTLE in IDENTIFICATION DIVISION.
Reply with quote

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

UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 757
Location: Germany

PostPosted: Mon Sep 25, 2006 5:46 pm    Post subject:
Reply with quote

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

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us