> As I'm new i Cobol can somebody produce a short example showing how to
> convert an ACCEPT date (ACCEPT fdate FROM DATE) to YYYYMMDD format ?
> I've seen that one must use the function INTEGER-OF-DATE then
> DATE-OF-INTERGER . Right ?
ACCEPT FROM DATE returns the current date as does FUNCTION
CURRENT-DATE.
FUNCTION INTEGER-OF-DATE and FUNCTION DATE-OF-INTEGER can be used to
handle conversions between dates (possibly different from the current
date).
The last DISPLAY in the program below is the date information for
tomorrow.
The documentation on the date-handling intrinsic functions is in the
VAX COBOL and DEC COBOL Reference Manuals Chapter 7 (Intrinsic
Functions).
970325
199703250735164400000
19970326
IDENTIFICATION DIVISION.
PROGRAM-ID. C3219.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATE1.
02 DATE1-YYMMDD PIC 9(6).
01 DATE2.
02 DATE2-YYYYMMDD PIC 9(8).
02 DATE2-HHMMSSHH PIC 9(8).
02 FILLER PIC X(5).
01 DAYS3 PIC 9(6).
PROCEDURE DIVISION.
P0. ACCEPT DATE1-YYMMDD FROM DATE.
MOVE FUNCTION CURRENT-DATE TO DATE2.
DISPLAY " " DATE1.
DISPLAY DATE2.
MOVE FUNCTION INTEGER-OF-DATE(DATE2-YYYYMMDD) TO DAYS3.
ADD 1 TO DAYS3.
DISPLAY FUNCTION DATE-OF-INTEGER(DAYS3).
STOP RUN.
|