Intertest CICS r 11 does not stop at any breakpoints in any COBOL 6.2 programs.

Products

• InterTest - CICS

Issue/Introduction

The programmer cannot set ANY breakpoints in any COBOL 6.2 programs. After the client sets an unconditional  breakpoint on any statement in any COBOL 6.2 program the breakpoint (U)  does not show next to the source code. When you do an inquiry of the program to display the breakpoints the offsets for all the breakpoints are zero. For example the breakpoints below that were set on paragraph name 0000-MAIN and  #1 both point to offset zero. 

CNTL=INQ   report shows the two breakpoints for program COBDEMO are zero. When you execute program COBDEMO the breakpoints are not honored due to the invalid offset of zero.

COBDEMO     For userid .ANY                                            
           Symbolic file is PROTSYM                                 
             Abend Intercept ABI=ON                                   
                                        
           UBP   offset=  +00000         at='0000-MAIN'               
                 from=E022 to=E022  

                                 
           UBP   offset=  +00000         at=#1                        
                 from=E022 to=E022                                    
           SLB   terminal is E022 - Source Listing Breakpoints are on.
                 Listing window:       Titles.                        
                 AutoKeep Display is ON                               

 

Environment

Z/OS

CICS

Cause

The client COBOL 6.2 compile output contains the following warning message

IGYCB7306-W   Unable to open SYSMDECK for reading. The clients COBOL 6.2 compile PROC shows the SYSMDECK DD is pointing to SYSOUT=* as shown below

//SYSMDECK  DD SYSOUT=* 

Intertest CICS requires the COBOL COMPILE parameter LIST to function properly. The compiler uses SYSMDECK to intersperse the verbs into the LIST output. The SYSMDECK should point to a work DD like SYSUTn.

Resolution

Change the SYSMDECK DD

from
//SYSMDECK  DD SYSOUT=*

to 
/SYSMDECK DD UNIT=SYSDA,SPACE=(CYL,(1,2)) 
 
Intertest CICS ships with a COBOL 5.1 and above compile PROC which is located in PDS HLQ.CAVHPROC(CABACOB5)

//SYSUT14  DD UNIT=SYSDA,SPACE=(CYL,(1,2))  
//SYSUT15  DD UNIT=SYSDA,SPACE=(CYL,(1,2))

//SYSMDECK DD UNIT=SYSDA,SPACE=(CYL,(1,2))