How to validate month end is Saturday in COBOL?

[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

Code: Select all

20140430 
20140531 
20140630 

Output

Code: Select all

20140430 valid date 
20140531 invalid date 
20140630 valid date 

How can I achieve this?

[William Collins]

Have a look at what intrinsic FUNCTIONs are available.

[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

[Rohit Datta]

Thanksfor the help Anuj! Long live!

[Anuj Dhawan]

The problem is, you think you have time. - Budha

Long live!

Great!