| View previous topic :: View next topic |
| Author |
Message |
chandra
Beginner
Joined: 26 Sep 2003
Posts: 130
Topics: 36
|
 Posted: Tue Feb 03, 2009 5:04 pm Post subject: Validate Month end is sunday in COBOL |
 |
|
Hi All,
I want to validate the month end is Sunday or not using COBOL. If month end is Sunday I need to display it is invalid date else valid date.
Input
20090430
20090531
20090630
etc
Output
20090430 valid date
20090531 invalid date
20090630 valid date
etc
Thank in advance
_________________
Regards,
Chandra |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Tue Feb 03, 2009 6:25 pm Post subject: |
|
|
chandra,
untested code
| Code: |
01 WS-INP-DATE PIC 9(8).
01 WS-DIVIDE-ANSWER PIC S9(08) COMP.
01 WS-INTEGER PIC S9(08) COMP.
01 WS-REMAINDER PIC S9(04) COMP.
COMPUTE WS-INTEGER = FUNCTION INTEGER-OF-DATE(WS-INP-DATE)
DIVIDE WS-INTEGER BY 7 GIVING WS-DIVIDE-ANSWER
REMAINDER WS-REMAINDER
ADD 1 TO WS-REMAINDER
IF WS-REMAINDER = 1
DISPLAY 'INVALID DATE : ' WS-INP-DATE
ELSE
DISPLAY 'VALID DATE : ' WS-INP-DATE
END-IF
|
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
chandra
Beginner
Joined: 26 Sep 2003
Posts: 130
Topics: 36
|
| Posted: Wed Feb 04, 2009 12:04 pm Post subject: |
|
|
Thank you very much Kolusu, I will test and let you know is it working or not.
_________________
Regards,
Chandra |
|
| Back to top |
|
|
chandra
Beginner
Joined: 26 Sep 2003
Posts: 130
Topics: 36
|
| Posted: Wed Feb 04, 2009 5:29 pm Post subject: |
|
|
Hi Kolusu,
Thanks once again.
The above code is working fine.
_________________
Regards,
Chandra |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
