Stephen,

I believe you are referring to the CURRENT-DATE Function available with
COBOL '85.  Here's an example of code:

$Control POST85    <<This must be included/added to your code>>
 Identification Division.
 Program-Id.   test.
 Data Division.
 Working-Storage Section.
 01  Current-Date-Buffer.
     05  Current-Date-string      Pic X(10) Value All '0'.
*    05  Other-fields             Pic X(20) Value Spaces.
* The other-fields field above has additional fields that available after
* using the CURRENT-DATE function.  Refer to the COBOL manual for more....
 Procedure Division.
 0-s section.
     Move Function CURRENT-DATE to Current-Date-Buffer.
     Display Current-Date-string.
     stop run.

This will return to you a Y2K compatible date for your working pleasure.  I
don't have the COBOL manual in front of me to give the exact order,
information availble and field sizes.  Hope this helps.

tom renz
COTC Computer Consulting
[log in to unmask]

------------------------------------------------------------------------------
On Tue, 3 Mar 1998 17:15:14 you wrote:
>
>From:    Johnson Stephen <[log in to unmask]>
>Subject: CURRENT DATE INTRINSIC FOR Y2K
>
>SOMEONE GOT AN EXAMPLE TO YEILD 19980303  FROM INTRINSIC CURRENT-DATE ?
>
>HOW TO I GET  (YYYYMMDD) ?
>
>THANKS
>
>P.S.  DO NOT NEED ANY PROPAGANDA FROM THE MINISTER   EH EH EH EH EH
>!#$&%$#