How to display system current date on screen

sasidhar.choragudi · New User Joined: 26 Jun 2006 Posts: 3 Location: Hyderabad

want to get system date?

in working-storage section i wrote like this
77 ws-date pic x(12)

and i wrote a statement in procedure division for that
display ws-date from date

then i am getting 990227. but the year is not showing correctly . for this how to write a programme please

sasi

William Thompson · Posted: Tue Feb 27, 2007 11:21 pm

Did you put the system date in ws-date?

sachin_star3 · New User Joined: 30 Sep 2006 Posts: 78 Location: pune

ID-DIVISION.
PROGRAME-ID. XXX.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WS-DATE PIC X(12).
PROCEDURE DIVISION.
ACCEPT WS-DATE FROM DATE
DISPLAY WS-DATE
STOP-RUN.
========================
THIS YOU GET RESULT
FROM- SACHIN BORASE
IBM PUNE

sasidhar.choragudi · New User Joined: 26 Jun 2006 Posts: 3 Location: Hyderabad

OK THANK YOU BOSS, BUT I AM GETTING THAT DATE

AS FOLLOWS 99 02 28 THAT IS YY MM DD. THAT TOO NOT 2007 BELOW 2000 ONLY IT IS SHOWING. HOW TO SOLVE THIS PROBLEM WITH SIMPLE CODE

sasidhar.choragudi · New User Joined: 26 Jun 2006 Posts: 3 Location: Hyderabad

WHEN I WROTE THAT PROGRAME LIKE THIS
D-DIVISION.
PROGRAME-ID. TTT.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WS-DATE PIC X(12).
PROCEDURE DIVISION.
ACCEPT WS-DATE FROM DATE
DISPLAY WS-DATE
STOP-RUN.

I AM GETTING DATE AS FOLLOWS 990228 WHICH REPRESENTS YYMMDD. THAT TOO YEAR IS NOT CORRECT. IT IS SHOWING BELOW 2K. NOT AFTER 2K. HOW TO SOLVE

agkshirsagar · Posted: Wed Feb 28, 2007 7:55 pm

Which version of cobol are you using?
I am using IBM ENTERPRISE COBOL FOR Z/OS AND OS/390 3.2.0.
It is not giving any problem.

William Thompson · Posted: Wed Feb 28, 2007 9:30 pm