|
|
| Author |
Message |
chennai
New User
Joined: 12 Jun 2008
Posts: 21
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 |
|
 |
References
|
|
 |
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 8761
Location: 221 B Baker St
|
|
|
|
Hello,
Is DB2 available to this program?
Does you organization have a callable calendar function? |
|
| Back to top |
|
|
Bill O'Boyle
Senior Member
Joined: 14 Jan 2008
Posts: 345
Location: Orlando, FL, 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: 21
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 D.
Global Moderator
Joined: 22 Apr 2006
Posts: 2233
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 )"
http://ibmmainframes.com/programs.php |
|
| Back to top |
|
|
chennai
New User
Joined: 12 Jun 2008
Posts: 21
Location: chennai
|
|
|
|
Hi Bill,
the logic is prefect...Thanks alot... |
|
| Back to top |
|
|
|
|
