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)