You will need $control post85 and TZ variable set (otherwise ... all the
world is the east coast)

Roger


Shirley A MacLaughlin wrote in message
<[log in to unmask]>...
>On Tuesday, March 03, 1998 6:15 PM, Johnson Stephen
> [SMTP:[log in to unmask]] wrote:
>> 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
>> !#$&%$#
>
>
>
>An example in cobol -
>
> 87.673      MOVE FUNCTION CURRENT-DATE TO CURRENT-DATE-AND-TIME.
>
>with working storage
>
> 27.31   01  CURRENT-DATE-AND-TIME VALUE SPACES.
> 27.32       05 CURRENT-FULL-DATE.
> 27.33          10  CURR-DATE-YEAR          PIC 9999.
> 27.34          10  CURR-DATE-MON           PIC 99.
> 27.35          10  CURR-DATE-DD            PIC 99.
> 27.36       05 CURRENT-TIME.
> 27.361         10  CURRENT-TIME-OF-DAY.
> 27.37              15  CURR-TIME-HOUR      PIC 99.
> 27.38              15  CURR-TIME-MIN       PIC 99.
> 27.39              15  CURR-TIME-SEC       PIC 99.
> 27.391         10  CURR-TIME-100-SEC       PIC 99.
> 27.392      05 CURRENT-TIME-DIFFERENCE.
> 27.393         10  CURR-TIME-DIFF-CODE     PIC X.
> 27.394         10  CURR-TIME-DIFF-HOUR     PIC 99.
> 27.395         10  CURR-TIME-DIFF-MIN      PIC 99.
> 27.4
>
>
>Shirl (Crossley Carpet Mills, Truro, NS)