Previous Topic: Option 06: How to Detect a Storage ViolationNext Topic: Inspect the FREEMAN Statement

COBOL Advanced Demo Session › Option 06: How to Detect a Storage Violation › Prevent a Storage Violation

Prevent a Storage Violation

Displayed next is a breakpoint screen. CA InterTest for CICS halted the demo program at an automatic breakpoint. CA InterTest for CICS prevented the storage violation that would have resulted if the highlighted MOVE statement had been executed. CA InterTest for CICS also inserted an A next to the statement to indicate an automatic breakpoint.

   CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED BREAKPOINT       
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
------------------------------------------------------------------------------- 
 _____ NEW-DATA                        | 00000000 00000000 00000000 00000000    
 _____ STG-AREA1                       | 00000000 00000000 00000000 00000000    
---------+--------------------------------------------------------------------- 
   000968**** NOW MOVE NEW DATA INTO ACQUIRED AREA                              
   000969*                                                                      
 A    ==>     MOVE NEW-DATA TO STG-AREA1.                                       
     ==>                                                                        
     ==> an attempt to change an area that does not belong to this task.        
     ==> Possible system damage has been prevented.                             
     ==>                                                                        
     ==>      Press PF1 for a detailed description.                             
     ==>                                                                        
 _ 000971     GO TO SEND-MAP00.                                                 
 _ 000972 WHICH-ONE.

The ability of CA InterTest for CICS to prevent storage violations is one of the
ost important reasons to monitor programs. Storage violations are notorious CICS errors that can do the following:.

  1. Bring down your CICS system.
  2. Cause a program to produce erroneous data.
  3. Cause one program to corrupt the data of another program. In this case, tracking down the problem without CA InterTest for CICS is almost impossible because the error is not in the affected program.

By stopping the program before the storage violation can occur, CA InterTest for CICS protects your system and helps you diagnose and correct the error.

In this example, the statement that would have caused the storage violation is: MOVE NEW‑DATA TO STG‑AREA1. This statement moves data from NEW‑DATA to STG‑AREA1. Perhaps the program does not own the area of storage defined as STG‑AREA1, so the program cannot move data to that field.