View previous topic :: View next topic
|
Author |
Message |
chennai
New User
Joined: 12 Jun 2008 Posts: 26 Location: chennai
|
|
|
|
Hi all,
I have a requirement that I need to identify whether the day is a saturday/sunday for the a particular given date.
ex:
I/P:- from the input file if I get 23-12-2006
O/P:-
SATURDAY
let me know if any concerns
thanks |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Is DB2 available to this program?
Does you organization have a callable calendar function? |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
Give this a try (for FUNCTION usage, requires a minimum version/release of COBOL/370) -
Code: |
03 WS-NBR-DAYS PIC 9(08).
03 WS-DAY-OF-WK PIC 9(01).
03 WS-JUNK PIC 9(08).
03 WS-GREG-DATE PIC 9(08).
03 WS-INPUT-DATE PIC X(10) VALUE '23-12-2006'.
MOVE WS-INPUT-DATE (7:) TO WS-GREG-DATE (1:4).
MOVE WS-INPUT-DATE (4:) TO WS-GREG-DATE (5:2).
MOVE WS-INPUT-DATE (1:) TO WS-GREG-DATE (7:).
COMPUTE WS-NBR-OF-DAYS = (FUNCTION INTEGER-OF-DATE
(WS-GREG-DATE)).
DIVIDE WS-NBR-OF-DAYS BY 7
GIVING WS-JUNK
REMAINDER WS-DAY-OF-WK.
IF WS-DAY-OF-WK = ZERO
MOVE 7 TO WS-DAY-OF-WK
END-IF.
|
Afterwards, WS-DAY-OF-WK will contain a value of 1 (Monday) through 7 (Sunday).
Regards,
Bill |
|
Back to top |
|
|
chennai
New User
Joined: 12 Jun 2008 Posts: 26 Location: chennai
|
|
|
|
Thanks Bill,
I will try this logic and let you know ...Thanks again...dick ...DB2 is not present in this program just cobol... |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Hi,
You might like to check a sample program "DAY FINDER" on this website.
Here is a link for the list of programs, seach for "DAY FINDER (Return SUN/MON upto 9999/12/31 )"
ibmmainframes.com/programs.php |
|
Back to top |
|
|
chennai
New User
Joined: 12 Jun 2008 Posts: 26 Location: chennai
|
|
|
|
Hi Bill,
the logic is prefect...Thanks alot... |
|
Back to top |
|
|
|