How to obtain the current date in cobol

padmalaya89 · Posted: Mon Jul 31, 2006 10:16 am

how can you obtain the current date in cobol thanks oin advance

guptae · Posted: Mon Jul 31, 2006 10:50 am

Hi,

Accept identifier from date

SBMF390 · New User Joined: 27 Jul 2006 Posts: 9

You can get the current date by

MOVE FUNCTION CURRENT-DATE(1:8) TO CURR-DATE.

crrindia · Posted: Wed Aug 02, 2006 7:22 pm

Hi I would like to add one more point. I tried with so many options to display 4 digit year in my batch job. But I couldn't get. For that finally I got with the following code. What might be the reason we couldn't get without using the following logic.

WORKING-STORAGE SECTION.
01 CE-SYSTEM-DATE PIC X(08) VALUE SPACES.
01 CE-CURR-DATE PIC X(10) VALUE SPACES.

PROCEDURE DIVISION.
CALL 'IGZEDT4' USING BY REFERENCE CE-SYSTEM-DATE.
STRING CE-SYSTEM-DATE(5:2) '-'
CE-SYSTEM-DATE(7:2) '-'
CE-SYSTEM-DATE(1:4)
DELIMITED BY SIZE INTO CE-CURR-DATE.

DISPLAY 'CURRENT DATE IS:' CE-CURR-DATE.

Thanks!
Rathna.

stly · New User Joined: 25 Jul 2005 Posts: 93

i think it will be easy if u code like this

EXEC SQL
SET :WS-CUR-TS = CURRENT DATE
END-EXEC.

and then the manipulations u require

crrindia · Posted: Thu Aug 03, 2006 6:29 pm

We are not using SQL. I want without using SQL.

Thanks!
Rathna.

vijayamadhuri · Active User Joined: 06 Apr 2005 Posts: 180

use the misdate subroutine

crrindia · Posted: Tue Aug 08, 2006 1:51 pm

Hi VIjayamadhuri, can you please let me know WHAT is MISDATE subroutine? B'cos I nere heard this word. Please elaborate for us.

Thanks!
Rathna.