Previous Topic: Determine the Cause of the ErrorNext Topic: COBOL Control Program Execution

COBOL Basic Demo Session › Dynamically Change the Value in TASKNUM

Dynamically Change the Value in TASKNUM

Now that we have identified and confirmed the cause of the problem, we can fix it.

  1. Type in m (modify) to the left of TASKNUM in the Keep window, as shown in the following screen.
  2. Press Enter. 
       CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED BREAKPOINT       
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
------------------------------------------------------------------------------- 
 _____ TASKNUM                         | ?00000.                                
---------+--------------------------------------------------------------------- 
 _ 000477 CONTINUE-TASK.                                                        
   000478**** TASKNUM *NOTE* FIELD MUST BE INITIALIZED                          
 A    ==>     ADD +1 TO TASKNUM.                                                
.
.
.

    CA InterTest for CICS generates a fill‑in‑the‑blanks MOVE statement, as shown in the following screen.

  3. Type in zeros in the MOVE field, as shown next, and press Enter.

    Note: You do not have to know the type of data (binary, packed, and so on) or the length of TASKNUM. The CA InterTest COBOL‑like MOVE statement automatically takes care of that for you.

       CA InterTest for CICS V9.1   - PROTSYM FILE  ABEND DETECTED BREAKPOINT      
COMMAND ===>                                                                    
Program= COBDEMO  Option #       Stmt #                             Margin= 01  
                                        Search=                                 
------------------------------------------------------------------------------- 
 _____ TASKNUM                         | ?00000.                                
---------+--------------------------------------------------------------------- 
                                                                                
MOVE zeros____________________________________________________________           
                                                                                
 to                                                                             
                                                                                
     TASKNUM                                                                    
                                                                                
Overtype Underscores with a Data-Name, Figurative Constant,                     
Alphanumeric Literal, or Numeric Literal

    CA InterTest for CICS executes the MOVE statement. As a result, TASKNUM now contains a packed decimal zero. CA InterTest also displays a main storage display that shows the new value of TASKNUM, as shown in the following screen.

           CA InterTest for CICS V9.1   - MAIN STORAGE UTILITY - Termid = U002     
                                                                                
Starting at Address =2080A138         Structure Display Format                  
 02 TASKNUM                         |  00000.                    |              
 02 TASKNUM-CHAR                    | ...                        |              
 02 TASK-TEXT                       |                            |              
  03 TASK-ID-NO                     |  000.                      |              
  03 FILLER                         |                            |              
  03 TASK-MESG                      | THIS IS A ME               |           
                                    | SSAGE                      |             
  03 FILLER                         |                            |             
  03 TASK-DATE                      |                            |              
   04 TASK-MM                       | 12                         |              
   04 TASK-SL1                      | /                          |              
   04 TASK-DD                       | 25                         |              
   04 TASK-SL2                      | /                          |              
   04 TASK-YY                       | 99                         |              
                                                                                
                                                                                
 ------------------------------------------------------------------------------ 
 PF1 Help       2            3 End        4 Return     5            6 Dump      
 PF7 Backward   8 Forward    9 Caps Off  10           11 Redisplay 12 Structure 
 CORE=MOVE ZEROS TO TASKNUM                                                     
 CAIN0201 RECEIVING FIELD has been changed as shown

    You can change the contents of a field simply by overtyping the desired bytes in the Keep window or on the main storage display. Overtyping is, of course, faster than using a CA InterTest‑generated MOVE statement. However, with the MOVE statement you do not have to know the internal representation of the data. CA InterTest automatically takes care of the details for you.

    Now we will return to the program listing so we can continue to test COBDEMO.

  4. Press Clear.

    CA InterTest for CICS redisplays the breakpoint screen without the explanation of the abend. Note the new value of TASKNUM in the Keep window.

    Note: You also can correct this bug using indirect commands, which are described in Using Indirect Commands in the chapter "Advanced Monitoring Features."