Previous Topic: Option 05: How to Work with Indexed Table ItemsNext Topic: Correct an Uninitialized Table Item Dynamically

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

Display an Indexed Table Entry

You can quickly inspect and correct the value of the field DISTRICT‑POP (STATE‑X, COUNTY‑X, DISTRICT‑X) directly from this screen in the AutoKeep display at the top or by entering d and positioning the cursor under the field name within the code.

  1. Overtype the A to the left of the highlighted statement with d (for display).
  2. Place the cursor under any letter in DISTRICT‑POP, and press Enter. 
      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.                                              
 d    ==>     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),

    CA InterTest for CICS displays the current value of DISTRICT‑POP in a
    structured format.

    The error message on the bottom line in the following screen tells us this field does not contain a valid value, according to its definition. This is the error that triggered the automatic breakpoint.