COBOL Advanced Demo Session › Option 05: How to Work with Indexed Table Items

Option 05: How to Work with Indexed Table Items

This section of the demo session shows you a fast and easy way to inspect and modify the contents of indexed data items.

Note: Before you begin this section, complete the steps outlined in Demo Preliminaries (unless you did so earlier in this session). The CA InterTest Demo Session Options Menu should be displayed.

1. Select option 05, and press Enter.

   The demo program displays a screen that describes what occurs in this part of the demo session.

       **********************************************************************      
       ****                                                              ****      
       ****                  CA InterTest Demo Session                   ****      
       ****                    Work with Table Items                     ****      
       ****                                                              ****      
       **********************************************************************      
                                                                                   
       CA InterTest makes it easy to display values for indexed, subscripted       
       and qualified data areas. A table defined in  WORKING‑STORAGE has not       
       been fully initialized. Here is what will happen:                           
                                                                                   
       1. CA InterTest halts the program at an automatic breakpoint when it        
          detects an uninitialized table item.                                    
       2. You display the table item and correct the contents on the CORE          
          display. You also display the contents of the indexes to                
          determine which table entry caused the error.                           
       3. COBDEMO successfully completes execution.                               
                                                                                   
                                                                                   
                                                                                   
       When this section of the demo continues, you will return to the             
       Options Menu.                                                              
                                     
                                                 
                 Press ENTER to continue or CLEAR to terminate.
   

2. Press Enter.

   The demo program resumes execution.

   The next screen displayed is an automatic breakpoint screen. CA InterTest for CICS halted the demo program because it detected a data exception in the highlighted ADD instruction.

      CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED BREAKPOINT       
   COMMAND ===>                                                                    
   Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                           Search=                                 
   ------------------------------------------------------------------------------- 
    _____ DISTRICT-POP(STATE-X COUNTY-X D | ?000.                                  
    _____ STATE-X                         | ....                                   
    _____ COUNTY-X                        | ....                                   
    _____ DISTRICT-X                      | ....                                   
   ---------+--------------------------------------------------------------------- 
    _ 000655     SET COUNTY-X TO 3.                                                
    _ 000656     SET DISTRICT-X TO 5.                                              
    A    ==>     ADD +1 TO DISTRICT-POP (STATE-X, COUNTY-X, DISTRICT-X).           
        ==>                                                                        
        ==> ASRA ABEND (0C7) detected and prevented. Caused by invalid decimal     
        ==> arithmetic data format.                                                
        ==>                                                                        
        ==>      Press PF1 for a detailed description.                             
        ==>                                                                        
    _ 000658     MOVE SPACES TO TASK-TEXT OF TASK-STRUCTURE.                       
    _ 000659     MOVE ALL '*' TO TASK-TEXT OF TASK-STRUCTURE-2.                    
    _ 000660     GO TO SEND-MAP00.                                                 
    _ 000661 INITIALIZE-TABLE.                                                     
    _ 000662     MOVE SUB-1 TO STATE-NUMBER (SUB-1),                    
   

   If you recall, this is the same type of error detected and corrected in the basic demo session. To continue execution, you need to find the data item causing the ASRA and dynamically modify it .

   Looking at the highlighted breakpoint statement, you might suspect the variable is at fault; it probably was not initialized correctly. The variable in this case is an indexed table entry.