Page 1 of 1
How to validate month end is Saturday in COBOL?
Posted: Sun Nov 23, 2014 10:02 am
by Rohit Datta
Hi,
I need to validate if the month end is Saturday or not using COBOL, if month end is Saturday, I'd want to display invalid date else valid date. My inputs will be something like:
Input
Output
Code: Select all
20140430 valid date
20140531 invalid date
20140630 valid date
How can I achieve this?
Re: How to validate month end is Saturday in COBOL?
Posted: Sun Nov 23, 2014 2:35 pm
by William Collins
Have a look at what intrinsic FUNCTIONs are available.
Re: How to validate month end is Saturday in COBOL?
Posted: Tue Nov 25, 2014 2:19 pm
by Anuj Dhawan
Hi,
Try this:
Code: Select all
01 WS-IN-DATE PIC 9(8).
01 WS-ANS PIC S9(08) COMP.
01 WS-INT PIC S9(08) COMP.
01 WS-REMAINDER PIC S9(04) COMP.
COMPUTE WS-INT = FUNCTION INTEGER-OF-DATE(WS-IN-DATE)
DIVIDE WS-INT BY 7 GIVING WS-ANS
REMAINDER WS-REMAINDER
ADD 1 TO WS-REMAINDER
IF WS-REMAINDER = 7
DISPLAY 'INVALID DATE : ' WS-IN-DATE
ELSE
DISPLAY 'VALID DATE : ' WS-IN-DATE
END-IF
Re: How to validate month end is Saturday in COBOL?
Posted: Wed Dec 03, 2014 3:08 pm
by Rohit Datta
Thanksfor the help Anuj! Long live!
Re: How to validate month end is Saturday in COBOL?
Posted: Mon Dec 15, 2014 10:18 pm
by Anuj Dhawan
The Signature wrote:The problem is, you think you have time. - Budha
Rohit Datta wrote:Long live!
Great!
