When compiling the Intertest CICS COBDEMO program the client receives error receives error message IEC130I SYSMDECK DD STATEMENT MISSING.

book

Article ID: 140219

calendar_today

Updated On:

Products

CA InterTest - CICS CA SymDump for CICS

Issue/Introduction

The client just completed the installation of Intertest and Symdump CICS into their CICS region​.​ The client ​will use the COBDEMO program to verify the installation of both products. The client is execting the JCL shipped with the product​ ​to compile and link the COBDEMO program. The JCL is located in HLQ.CAVHJCL(CABADMCJ).
The comple job fails with the following error messages

IEC130I SYSMDECK DD STATEMENT MISSING
SYSTEM COMPLETION CODE=C03
IGYSI5013-U  An error occurred while attempting to open file "SYSMDECK".  

Cause

The JCL is located in HLQ.CAVHJCL(CABADMCJ) is setup by default to compile programs for Enterprise COBOL 4.2 or below using PROC CABACOBP.

Since the client is Enterprise COBOL 5.1 the client must use  PROC CABACOB5.

Environment

Intertest and Symdump CICS

Z/OS

CICS

Resolution

For Enterprise COBOL 4.2 and below use PROC CABACOBP. For  Enterprise COBOL 5.1 and above  use PROC CABACOB5 when changing JCL member HLQ.CAVHJCL(CABADMCJ)​ to compile and link edit the COBDEMO IVP program. 

This is documented in the comments in the JCL

//**       10) IF YOU'RE COMPILING A COBOL V5 OR GREATER        **    
//**           PROGRAM THEN YOU WILL NEED TO CHANGE CABACOBP TO **      
//**           CABACOB5.

Both PROC​'S​ are located in HLQ.PROCLIB. For example PROC CABACOB5

 //**  PROCEDURE: CABACOB5                                        
//**                                                            
//**  FUNCTION : SAMPLE PROCEDURE TO PREPARE A COBOL V5+ PROGRAM **
//**             FOR USE WITH CA INTERTEST FOR CICS AND CA       **
//**             SYMDUMP FOR CICS.

COB​OL 5.1 ​and above the SYSLMOD load library must be a PDSE library.  


​COBOL 5.1 and above has several additional DD Statements including the SYSMDECK.


//SYSUT8   DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SYSUT9   DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SYSUT10  DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SYSUT11  DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SYSUT12  DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SYSUT13  DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SYSUT14  DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SYSUT15  DD UNIT=SYSDA,SPACE=(CYL,(1,2))


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