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

PL/I Advanced Demo Session › Option 05: How to Test a Composite Module › Correct the Data in TASKNUM

Correct the Data in TASKNUM

As you can see, TASKNUM contains binary zeros rather than a packed decimal value. 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 question mark in the value portion for TASKNUM.
  2. Overtype the current value with all zeros.
  3. Press Enter. 
    CA InterTest for CICS Release 9.1.00   - MAIN STORAGE UTILITY - Termid = U030        
                                                                                
Starting at Address =  101DA8  Disp   Structure Display Format                  
TASKNUM                         1A0 | ?00000.                    |              
TSTEXT                          1A3 | ............               |              
                                    | ............               |              
                                    | ............               |              
                                    | ............               |              
                                    | ............               |              
                                    | ............               |              
                                    | .                          |              
TSQLEN                          1EC | +0006553600.               |              
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 appears.