COBOL Advanced Demo Session › Demo Preliminaries › Composite Support

Composite Support

Composite support lets you use CA InterTest for CICS to test and debug composite modules effectively. A composite module is a load module, defined to CICS as a program, which consists of separately compiled or assembled parts brought together when the module is link‑edited. In the demo session, the part of the composite module that receives control from CICS is referred to as the main program; the remaining programs are referred to as subroutines. The main program and subroutines can be written in the same or different languages.

Composite support lets you test and debug a subroutine, such as an external procedure, as if it were a separate program with full symbolic support. This means you can set breakpoints and other monitoring options individually for any subroutine. CA InterTest for CICS generates automatic breakpoints in the subroutine when it detects an error that would otherwise cause the program to abend.

To demonstrate this feature, you set composite support for a composite module, to which the demo program links. The composite module you use is COBDEML.

The composite module has two called subroutines that you want CA InterTest for CICS to monitor—one written in COBOL, the other in Assembler. The subroutine names are CSBIN25 and ASBIN25.

1. We left off at the Program Monitoring Menu. Press PF4 until the Source Listing Display is redisplayed.
2. Tab to the Program field.
3. Overtype the name of the demo program (for example, COBDEMO) with the name of the composite module (for example, COBDEML).
4. Press Enter.

      CA InterTest for CICS V9.1   - PROTSYM FILE  SOURCE LISTING DISPLAY          
   COMMAND ===>                                                                    
   Program= COBDEML  Option #       Stmt #                             Margin= 01  
                                           Search=                                 
   ------------------------------------------------------------------------------- 
         YEARWINDOW(1900)                                                          
         ZWB                                                                       
      000001 ID DIVISION.                                                          
      000002 PROGRAM-ID. COBDEML.                                                  
      000003 ENVIRONMENT DIVISION.                                                 
      000004 DATA DIVISION.                                                        
    _ 000005 WORKING-STORAGE SECTION.                                              
    _ 000006 77  NUM-CHOICES             PIC S9(4) COMP  VALUE +2.                 
    _ 000007 COPY DFHAID.                                                          
      000008*                                                                      
      000009*               @BANNER_START@                                         
      000010*               Licensed Materials - Property of IBM                   
      000011*                                                                      
      000012*               "Restricted Materials of IBM"                          
      000013*                                                                      
      000014*               5655-147                                               
      000015*                                                                      
      000016*               (C) Copyright IBM Corp. 1985                           
      000017*                                                                     
   

   CA InterTest for CICS displays the source listing for the composite module.

5. Type COMPOSITE on the command line and press Enter.

               CA InterTest MONITORING COMMAND BUILDER - COMPOSITE SUPPORT       23
                        Define composite support for COBDEML                       
                                                                                   
      Link-name  Monitor-name  Offset  Length  Language            Comments        
                                                                                   
    _ COBDEML      COBDEML         20     6DC  IBMCOB 3.2                          
    _ ASBIN25      ASBIN25        700     17C  HLASM  5.0                          
    _ CSBIN25      CSBIN25        880     5C4  IBMCOB 3.2                          
                                                                                   
                                                                                   
                                                                                   
                                                                                   
                                                                                   
    Add, remove, or change monitor names as needed, and press PF5                  
    CAIN2602 BOTTOM of data                                                        
    PF1 Help       2            3 End        4 Return     5 Process    6           
    PF7 Backward   8 Forward    9           10           11           12          
   

6. Press PF3 to return to the COBDEML program listing. However, if you want to activate composite program monitoring for the COBDEML program, press PF5.