COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
14-22
INTEGER-OF-DATE Function
Example 14-14. INTEGER-OF-DATE Function
Code:
?ENV COMMON
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTT.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. ABD.
OBJECT-COMPUTER. ABD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 D PICTURE 9 USAGE COMPUTATIONAL.
01 STD-DATE PICTURE 9(8) USAGE COMPUTATIONAL.
PROCEDURE DIVISION.
STARTT.
PERFORM VARYING STD-DATE FROM 19970618 BY 1
UNTIL STD-DATE > 19970624
DISPLAY STD-DATE
MOVE FUNCTION REM (FUNCTION INTEGER-OF-DATE (STD-DATE) 7)
TO D
IF D = 0 THEN DISPLAY " SUNDAY" ELSE
IF D = 1 THEN DISPLAY " MONDAY" ELSE
IF D = 2 THEN DISPLAY " TUESDAY" ELSE
IF D = 3 THEN DISPLAY " WEDNESDAY" ELSE
IF D = 4 THEN DISPLAY " THURSDAY" ELSE
IF D = 5 THEN DISPLAY " FRIDAY" ELSE
IF D = 6 THEN DISPLAY " SATURDAY" END-IF
END-IF
END-IF
END-IF
END-IF
END-IF
END-IF
END-PERFORM.
STOP RUN.
Output:
19970618
WEDNESDAY
19970619
THURSDAY
19970620
FRIDAY
19970621
SATURDAY
19970622
SUNDAY
19970623
MONDAY
19970624
TUESDAY