Previous Topic: Display the Data in TASKNUMNext Topic: Set a Breakpoint in Subroutine CSBIN25

COBOL Advanced Demo Session › Option 07: How to Test a Composite Module › Correct the Data in TASKNUM

Correct the Data in TASKNUM

As you can see, TASKNUM does not contain a packed decimal value. TASKNUM in the COBOL version contains binary zeros rather than a packed decimal value; for COBOL II and COBOL/370 programs, TASKNUM contains other, incorrect values.

You can correct the error by overtyping the incorrect value with a correct value.

  1. Tab to the top line and move the cursor to the Hexadecimal value of TASKNUM.
  2. Overtype the current value; set it to a packed decimal zero by tying zero over the "?" and erase the remaining data (erase EOF).
  3. Press Enter. 
           CA InterTest for CICS V9.1   - MAIN STORAGE UTILITY - Termid = U031      
                                                                                
Starting at Address =  101DA8  Disp   Structure Display Format                  
TASKNUM                         1A0 | ?00000.                    |              
TSTEXT                          1A3 | .. THIS IS A               |              
                                    |  MESSAGE                   |              
                                    | 12/25/99....               |              
                                    | ............               |              
                                    | ............               |              
                                    | ............               |              
                                    | .                          |              
TSQLEN                          1EC | +0003866624.               |              
MSGNAME                         1F0 |  0000000000.               |              
MSGLEN                          1F4 |  00000.                    |              
RECRBA                          1F6 | ......                     |              
RECPONT                         1FC |  0000000000.               |              
                                                                                
                                                                                
                                                                                
 ------------------------------------------------------------------------------ 
 PF1 Help       2            3 End        4 Return     5            6 Dump      
 PF7 Backward   8 Forward    9 Caps Off  10           11 Redisplay 12 Structure 
 CORE='R13.TASKNUM'                                                             
 CAIN4713 R13 not found - have assumed its register value

    CA InterTest for CICS redisplays the screen, changing your entries to uppercase.

    Now TASKNUM contains a packed decimal zero. You have corrected the error that triggered the automatic breakpoint.

  4. Press Clear.

    CA InterTest for CICS redisplays the previous Source Listing Breakpoint screen. However, the explanation of the abend no longer displays.