[COBOL400-L] accept date format in cobol400

[cobol400-l@xxxxxxxxxxxx]

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!!!!