abend a program

[vaishalisingh]

In Cobol, suppose i want that if a particular business logic does not fulfills a particular criteria, the program should abend.
how do we code that ?
eg- i have a emp-id which cannot have more then 4 characters, so if any emp-id comes with more then 4 characters the program should immediately abend..

[MrSpock]

Easy.

Call the common Language Environment routine CEE3ABD:

Code: Select all

       IDENTIFICATION DIVISION.                   
       PROGRAM-ID. ABEND.                         
                                                  
       ENVIRONMENT DIVISION.                      
       INPUT-OUTPUT SECTION.                      
                                                  
       DATA DIVISION.                             
       FILE SECTION.                              
                                                  
       WORKING-STORAGE SECTION.                   
       01  ABCODE PIC S9(9) BINARY.               
       01  TIMING PIC S9(9) BINARY.               
                                                  
       PROCEDURE DIVISION.                        
           MOVE ZEROS TO RETURN-CODE.             
           MOVE 904 TO ABCODE.                    
           MOVE 0 TO TIMING.                      
           CALL 'CEE3ABD' USING ABCODE,TIMING.    
           STOP RUN.                              

[Anuj Dhawan]

MrSpock has given you a correct solution for what you asked. But usually, abend is something one should avoid in practical scenario, you may MOVE some specific value to RC to show that

emp-id cannot have more then 4 characters

instead of casuing an abend.