Previous Topic: Display an Indexed Table EntryNext Topic: Display Values of Indexes

COBOL Advanced Demo Session › Option 05: How to Work with Indexed Table Items › Correct an Uninitialized Table Item Dynamically

Correct an Uninitialized Table Item Dynamically

To dynamically correct this error, modify main storage so the field contains a packed decimal zero. This is the hexadecimal value: 000C. Do this by overtyping the value displayed.

  1. Tab once to go to the hexadecimal display area.
  2. Move the cursor to the final 0, overtype it with c, and press Enter. 
          CA InterTest for CICS V9.1   - MAIN STORAGE UTILITY - Termid = U031      
                                                                                
Starting at Address =2080A626         Structure Display Format                  
   04 DISTRICT-POP                  | ?000.                      |  
.
.
.            
                                                                                
                                                                                
 ------------------------------------------------------------------------------ 
 PF1 Help       2            3 End        4 Return     5            6 Dump      
 PF7 Backward   8 Forward    9 Caps Off  10           11 Redisplay 12 Structure 
 CORE='DISTRICT-POP(STATE-X, COUNTY-X, DISTRICT-X)'                             
 CAIN0452 FIELD DOES NOT CONTAIN A VALID PACKED DECIMAL (COMP-3) VALUE

    CA InterTest for CICS dynamically modifies the value in main storage for DISTRICT‑POP (STATE‑X, COUNTY‑X, DISTRICT‑X), and displays the new value.

    The previous error message no longer displays. You could now resume execution from the breakpoint because you dynamically corrected the error.

    Before you do, first look at the CORE command displayed above the message line:

    CORE='DISTRICT‑POP(STATE‑X, COUNTY‑X, DISTRICT‑X)'

    CA InterTest for CICS formatted this command when you used the d and the cursor to display the table item. Using the d and the cursor meant you did not have to type the complex name. Whenever you can, let CA InterTest for CICS do the work for you.