| IBM MAINFRAME HELP FORUMS for COBOL, JCL, CICS, DB2, IMS etc...
Help & Support Forums for IBM Mainframe computers Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7, CA-11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, VSAM, ISPF, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
|
| View previous topic :: View next topic |
| Author |
Message |
chennai
Joined: 12 Jun 2008
Posts: 14
Location: chennai
|
| Posted: Tue Jul 01, 2008 1:00 pm Post subject: Day to check with Date |
|
|
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
Joined: 23 Nov 2006
Posts: 8037
Location: 221 B Baker St
|
| Posted: Tue Jul 01, 2008 7:48 pm Post subject: |
|
|
Hello,
Is DB2 available to this program?
Does you organization have a callable calendar function? |
|
| Back to top |
|
Bill O'Boyle
Joined: 14 Jan 2008
Posts: 296
Location: Orlando, FL, USA
|
| Posted: Tue Jul 01, 2008 11:55 pm Post subject: |
|
|
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
Joined: 12 Jun 2008
Posts: 14
Location: chennai
|
| Posted: Wed Jul 02, 2008 9:57 am Post subject: |
|
|
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.
Joined: 22 Apr 2006
Posts: 1962
Location: Phoenix, AZ
|
| Posted: Wed Jul 02, 2008 10:55 am Post subject: |
|
|
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
Joined: 12 Jun 2008
Posts: 14
Location: chennai
|
| Posted: Wed Jul 02, 2008 11:07 am Post subject: |
|
|
Hi Bill,
the logic is prefect...Thanks alot... |
|
| Back to top |
|
| |
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM
|