PL/I Advanced Demo Session › Option 05: How to Test a Composite Module › Re-execute the Demo Program

Re-execute the Demo Program

Now you can re-execute the demo program.

1. Press PF4.

   The Primary Option Menu appears.

2. Select option X Exit to exit to CICS.
3. Clear the screen and type the transaction ID demp, and press Enter.
4. Press PF2 for the Options Menu.

   Within the Options Menu, choose Option 05 (Composite Support) and press Enter.

5. Press Enter again at the explanation screen.

   CA InterTest for CICS displays the automatic breakpoint where you initially halted. However, now the breakpoint occurs at the actual statement in ASBIN25 that triggered the abend, not at the CALL to ASBIN25.

   Note: The name in the Program field is ASBIN25. When control passes to ASBIN25, CA InterTest for CICS begins monitoring that program because you set composite support.

   CA InterTest for CICS Release 9.1.00   - PROTSYM FILE  ABEND DETECTED BREAKPOINT         
   COMMAND ===>                                                                    
   Program= ASBIN25  Option #       Stmt #        Displacement=        Margin= 01  
                                           Search=                                 
   ----------+-------------------------------------------------------------------- 
        Loc  Object Code    Addr1 Addr2  Stmt        Source Statement              
    _ 0000E2                              365 CONTINUE DS    0H                    
    A 0000E2 FA20 D1A0 2143 001A0 00143   ==>          AP    TASKNUM,=P'1'      
        ==>                                                                     
        ==> ASRA ABEND (0C7) detected and prevented. Caused by invalid decimal  
        ==> arithmetic data format.                                             
        ==>                                                                     
        ==>      Press PF1 for a detailed description.                          
        ==>                                                                     
    _ 0000E8 F920 D1A0 2144 001A0 00144   367          CP    TASKNUM,=P'2'         
    _ 0000EE 4720 20FC            000FC   368          BH    RETCICS               
    _ 0000F2 F920 D1A0 2143 001A0 00143   369          CP    TASKNUM,=P'1'         
    _ 0000F8 4780 214E            0014E   370          BE    RETURN                
    _ 0000FC                              372 RETCICS  DS    0H                    
                                          373 *        EXEC CICS RETURN            
    _ 0000FC 4110 D068            00068   374          DFHECALL =X'0E080000080000  
                                          384 *                                    
    _ 000118                              385          LTORG                       
    _ 000118 00000000                     386                =V(DFHEAI0)          
   

   Setting composite support enables CA InterTest for CICS to identify and display the statement in the subroutine where the error occurred.

   The error occurred because of improperly formatted data in TASKNUM. The AP instruction tries to move a packed decimal 1 to TASKNUM. TASKNUM is defined as a packed decimal field, but it contains binary zeros instead of a valid packed decimal value. This is the same type of error you corrected in the basic demo session.