COBOL/400 four position DATE
TWilly
Hello,
I'm involved with a Y2K conversion effort where the majority
of the code is COBOL.
It has been a while since I used COBOL, but I'm not writing
it I'm just converting the dates.
The problem I'm having is retrieving the System Date with a four
position year.
The technique used in this code currently is:
ACCEPT xxxx FROM DATE.
This delivers a six position field in the format yymmdd.
Can I get an eight position field in the format yyyymmdd?
TIA,
Tom Tubbs
Charles M. Wilt
In the ILE Cobol manual there is a reference to an IBM extension to the
ACCEPT varname FROM DATE statement.. Which provides a four digit year by
using the following.
ACCEPT varname FROM DATE YYYYMMDD.
Don't know if the standard AS/400 COBOL will accept this or not.
--
Charles Wilt
Miami Luken, Inc.
Springboro, OH. 45066
e-mail: charle...@worldnet.no.spam.att.net
--remove the .no.spam
TWilly <twi...@mindspring.com> wrote in article
<01bd5839$99abdf80$68381a26@117301>...
Robert Wieland
>In the ILE Cobol manual there is a reference to an IBM extension to the
>ACCEPT varname FROM DATE statement.. Which provides a four digit year by
>using the following.
>
>ACCEPT varname FROM DATE YYYYMMDD.
>
>Don't know if the standard AS/400 COBOL will accept this or not.
NO!
---
Deutscher Ring Bausparkasse AG
Bereich Informatik
Robert Wieland
Jessenstr. 4
22756 Hamburg
Telefon: 040 / 38018 170
Fax : 040 / 38018 185
Michael Schwarze
Charles M. Wilt schrieb:
>
> In the ILE Cobol manual there is a reference to an IBM extension to the
> ACCEPT varname FROM DATE statement.. Which provides a four digit year by
> using the following.
>
> ACCEPT varname FROM DATE YYYYMMDD.
>
> Don't know if the standard AS/400 COBOL will accept this or not.
>
In "normal" Cobol you could call a CL-PGM, which returns the system-date
in four digit notation.