How to find the Day of the week?
Posted: Sat Mar 29, 2014 1:11 am
In COBOL, given an input date, how can I find the Day of week? What logic can be used. Please advise.
Code: Select all
IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-IN-DATE PIC 9(8).
01 WS-IN-DATE-FUNC PIC 9(8).
01 WS-DAY-OF-WEEK PIC S9(08).
01 WS-QUOTIENT PIC S9(04).
01 WS-REMAINDER PIC S9(04).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Enter the date(YYYYMMDD):"
ACCEPT WS-IN-DATE.
DISPLAY "Entered date is: "WS-IN-DATE.
COMPUTE WS-DAY-OF-WEEK = FUNCTION INTEGER-OF-DATE(WS-IN-DATE)
DIVIDE WS-DAY-OF-WEEK BY 7 GIVING WS-QUOTIENT
REMAINDER WS-REMAINDER
EVALUATE WS-REMAINDER
when 0
DISPLAY WS-IN-DATE " is Sunday"
when 1
DISPLAY WS-IN-DATE " is Monday"
when 2
DISPLAY WS-IN-DATE " is Tuesday"
when 3
DISPLAY WS-IN-DATE " is Wednesday"
when 4
DISPLAY WS-IN-DATE " is Thursday"
when 5
DISPLAY WS-IN-DATE " is Friday"
when 6
DISPLAY WS-IN-DATE " is Saturday"
END-EVALUATE.
STOP RUN.