Subject: | |
From: | |
Reply To: | Roger J. Dyckman |
Date: | Wed, 4 Mar 1998 16:53:07 -0800 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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)
|
|
|