Re: [COBOL400-L] accept date format in cobol400

[cobol400-l@xxxxxxxxxxxx]

Hi.

ADD 20000000 to CUR-DATE(PIC s9(8)) after accept!


Mvh.

Geir Kildal
TietoEnator AS
Tlf . . : (+47) 611 73805
Mob. : (+47) 90 10 13 16
eMail: geir.kildal@xxxxxxxxxxxxxxx




cobol400-l@xxxxxxxxxxxx 
Sent by: cobol400-l-bounces@xxxxxxxxxxxx
12.04.2005 11:33
Please respond to
COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>


To
"Cobol400-L@Midrange. Com (E-mail)" <cobol400-l@xxxxxxxxxxxx>
cc

Subject
[COBOL400-L] accept date format in cobol400







Hi!!!

     here's my code

01  CUR-DATE. 
      02  dateyymmdd            PIC X(6).


ACCEPT CUR-DATE FROM DATE.


here my problem  DATE HAS THE IMPLICIT PICTURE X(6)
so i cant retreive the YYYYMMDD, which is required not the YYMMDD format

is there a way to retrieve the YYYYMMDD format? or is there a way to 
convert
YYMMDD to YYYYMMDD only using cobol400 


THANX!!!! 
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing 
list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.