Problem:

A list of DD statements should be available for common use in different jobs. In addition the job needs to start a program, which contains embedded SQL. So the DB2 subsystem must be invoked by means of IKJEFT01.

Resolution:

If job and procedure are designed as below, the batch debug is operational.

//*

//DB2      EXEC EXECSQL

//SYSTSIN   DD *

  DSN SYSTEM(DB7)

  RUN PROGRAM(module)

  END

//

//EXECSQL  PROC

//             EXEC PGM=IKJEFT01

//SYSPRINT  DD SYSOUT=*

//SYSTSPRT  DD SYSOUT=*

//ZTKVSBE    DD DSN=ZTKVSBE.VSAM,DISP=SHR

//ZVKARBE    DD DSN=ZVKARBE.ALT00,DISP=SHR

//LISTE        DD DSN=ZFUMML.LISTE,DISP=SHR

//EXECSQL  PEND