Source Listing Facility › Testing Activities › Display and Search Through Nested Programs

Display and Search Through Nested Programs

CA InterTest for CICS provides support for COBOL nested programs.

COBOL nested programs let non‑unique paragraph and data names to be defined across nested programs. Therefore, CA InterTest for CICS supports qualified names for COBOL programs. A qualified name consists of a one‑ to 30‑byte COBOL program name, a colon, and a one‑ to 30‑byte paragraph or data name.

Example

program1:datanam1 is a qualified name. Qualified names ensure that the correct version of datanam1, which you define in multiple programs, is displayed. Qualified names are supported by the Source Listing facility, the Breakpoint facility, CNTL commands and menus, and by the Indirect Commands facility.

When CA InterTest for CICS displays the source code for a nested program, the Nested= field appears below the Program= field. The Nested= field is 30 bytes long, and indicates the name of the nested program for the currently displayed source code. If you are using the Source Listing facility to display a COBOL nested program and you press PF8 to scroll through the entire source code of the program, the Nested= field changes each time the source code for a different nested program is displayed.

The names of all nested programs within a specific COBOL program are listed at the end of the Procedure Name Cross Reference section (Option # 7).

     CA InterTest for CICS V9.1 - PROTDEM FILE SOURCE LISTING DISPLAY
COMMAND ===>                                                                    
Program= ACME2000 Option #       Stmt #                             Margin= 01  
 Nested=                                Search=                                 
OPTS 1 Proc div  2 Work-stor 3 Link sect 4 D-map      5 Clst/Pmap More:   + 
     6 Data xref 7 Proc xref 8 Err msgs  9 Srch fwd  10 Srch bwd            PFKS 1 Help      2           3 End        4 Profile    5 Monitor    6 Menu      
     7 Backward  8 Forward   9           10           11           12 Status   
---------+------------------------------------------------------------------
 _ DEFINED      PROCEDURE NAMES         REFERENCES                              
 _   122 3000REGISTERHANDLER          P107                                    
 _   131 4000FORCEABEND               P108                                    
 _   139 5000HANDLEROUTINE            D129                                    
 _   152 9000RETURN                    P109                                    
 _   168 9999GOBACK                                                            
 _   227 9999GOBACK                    P221                                    
 DEFINED   CROSSREFERENCE OF PROGRAMS     REFERENCES                           
EXTERNAL   ACME200A . . . . . . . . . . . 120                                  
     171   ACME200N . . . . . . . . . . . 229 114                              
       2   ACME2000 . . . . . . . . . . . 230                                  
EXTERNAL   ACME2001 . . . . . . . . . . . 117                                  
EXTERNAL   DFHEI1 . . . . . . . . . . . . 127 137 147 160 166                  
NESTED PROGRAM MAP                                                              
PROGRAM ATTRIBUTE CODES (RIGHTMOST COLUMN) HAVE THE FOLLOWING MEANINGS:

The Nested= field also indicates the nested program to which Option # 1, 2, 3, and 13 apply, and the nested program that CA InterTest for CICS searches first for any data name or paragraph name that you specify in the Search= field. If a paragraph name or data name is not found in the specified nested program, CA InterTest for CICS then searches the main program.

Example

If Option # 2 and Nested=program2 are specified, the Working Storage section for nested program program2 appears. Also, if Nested=program3 and Search=datanam1are specified, nested program program3 is searched first for datanam1; if datanam1 is not found, the main program is searched for datanam1.