Change the Value in TASKNUM Dynamically

PL/I Basic Demo Session › Change the Value in TASKNUM Dynamically

Change the Value in TASKNUM Dynamically

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

Type m (modify) to the left of TASKNUM in the Keep window.

Press Enter.

CA InterTest for CICS Release 9.1.00 - PROTSYM FILE ABEND DETECTED BREAKPOINT COMMAND ===> Program= PLIDEMO Option # Stmt # Margin= 01 Search= ------------------------------------------------------------------------------- m____ TASKNUM | ?00000. ---------+--------------------------------------------------------------------- _ 636.1 CONTINUE_TASK: _ 637.1 MAPNUM = '00'; A ==>.1 1 TASKNUM = TASKNUM + 1; ==> . . .

CA InterTest for CICS generates a fill‑in‑the‑blanks MOVE statement, as illustrated in the following figure. The generated MOVE statement is equivalent to the PL/I assignment statement:

TASKNUM = _________________

Type 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 for CICS MOVE statement automatically takes care of that for you.

CA InterTest for CICS Release 9.1.00 - PROTSYM FILE ABEND DETECTED BREAKPOINT COMMAND ===> Program= PLIDEMO 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 for CICS also displays a main storage display that shows the new value of TASKNUM, as shown in the following screen.

CA InterTest for CICS Release 9.1.00 - MAIN STORAGE UTILITY - Termid = U006 Starting at Address =20804231 Structure Display Format 02 TASKNUM | 00000. | 02 TS_TEXT | ............ | | ............ | | ........ | ------------------------------------------------------------------------------ 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 by overtyping the desired bytes in the Keep window or on the main storage display. Overtyping is faster than using a CA InterTest for CICS‑generated MOVE statement. However, with the MOVE statement you do not have to know the internal representation of the data. CA InterTest for CICS automatically takes care of the details for you.

Now we return to the program listing so that we can continue to test PLIDEMO.

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."