Topic
  • 2 replies
  • Latest Post - ‏2012-06-21T14:31:20Z by ToddBurchDB2
SystemAdmin
SystemAdmin
3105 Posts

Pinned topic ERROR RUNNING DB2 PROGRAM

‏2012-05-02T17:22:07Z |
Hello,

I am trying to run a DB2 job but facing an error message which am unable to resolve. Please find the Job output attached and JCL below.

Thanks,

Aamir


//IBMUSER JOB ,
// MSGCLASS=H,MSGLEVEL=(1,1),TIME=(,4),REGION=400M,COND=(16,LT)
// JCLLIB ORDER=(RDZ76.#CUST.PROCLIB)
//* STEPLIB DD DISP=SHR,DSN=DSN910.SDSNLOAD
//* DD DISP=SHR,DSN=DSN910.SDSNEXIT
//*
//P0000 EXEC PROC=ELAXFCOP,
// DBRMDSN=IBMUSER.DB2DBRM,
// DBRMMEM=QSAMDEMO
//COBPRE.SYSLIB DD DSN=IBMUSER.DB2.SYSLIB,DISP=SHR
//COBPRE.SYSIN DD DISP=SHR,
// DSN=IBMUSER.TEST.COBOL(QSAMDEMO)
//*
//*
//T0000 EXEC PROC=ELAXFCOT
//COBTRAN.SYSLIB DD DSN=DFH410.CICS.SDFHCOB,DISP=SHR
// DD DSN=DSN910.SDSNLOAD,DISP=SHR
//COBTRAN.SYSIN DD DISP=(OLD,DELETE),DSN=&&DSNHOUT
//*
//STP0000 EXEC PROC=ELAXFCOC,
// CICS=,
// DB2=,
// COMP=
//COBOL.SYSPRINT DD DISP=SHR,
// DSN=IBMUSER.TEST.LISTING(QSAMDEMO)
//COBOL.SYSDEBUG DD DISP=SHR,
// DSN=IBMUSER.TEST.SYSDEBUG(QSAMDEMO)
//COBOL.SYSLIN DD DISP=SHR,
// DSN=IBMUSER.TEST.OBJ(QSAMDEMO)
//COBOL.SYSLIB DD DISP=SHR,
// DSN=IBMUSER.TEST.COPYLIB
//COBOL.SYSXMLSD DD DUMMY
//COBOL.SYSIN DD DISP=(OLD,DELETE),DSN=&&SYSCIN
//******* ADDITIONAL JCL FOR COMPILE HERE ******
//LKED EXEC PROC=ELAXFLNK,
// PARM.LINK=('AMODE=24',
// 'RMODE=24',
// 'LIST',
// 'MAP')
//LINK.SYSLIB DD DSN=IBMUSER.TEST.OBJ,
// DISP=SHR
// DD DSN=CEE.SCEELKEX,
// DISP=SHR
// DD DSN=CEE.SCEELKED,
// DISP=SHR
// DD DSN=DFH410.CICS.SDFHLOAD,
// DISP=SHR
//LINK.OBJ0000 DD DISP=SHR,
// DSN=IBMUSER.TEST.OBJ(QSAMDEMO)
//LINK.SYSLIN DD *
INCLUDE OBJ0000
/*
//LINK.SYSLMOD DD DISP=SHR,
// DSN=IBMUSER.TEST.LOAD(QSAMDEMO)
//*
//******* ADDITIONAL JCLFOR LINK HERE ******
//BIND EXEC PGM=IKJEFT01
//STEPLIB DD DSN=DSN910.SDSNLOAD,DISP=SHR
// DD DSN=DSN910.SDSNEXIT,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//DBRMLIB DD DSN=IBMUSER.DB2DBRM,DISP=SHR
//*UNCOMMENT AND TAILOR THE FOLLOWING IF YOUR SYSTSIN STATEMENT**
//*CONTAINS BIND INSTRUCTIONS:
//SYSTSIN DD *
DSN SYSTEM(DSN910)
BIND PACKAGE(DSN910.IBMUSER)-
OWNER(IBMUSER) -
MEMBER(RDZDB2) -
LIBRARY('IBMUSER.DB2DBRM') -
ACTION(REP) -
VALIDATE(BIND)
BIND PLAN(MYNAMTBL) -
PKLIST(DSN910.IBMUSER.*)
END
//* OR
//*UNCOMMENT AND TAILOR THE FOLLOWING IF YOUR SYSTSIN STATEMENT**
//*POINTS TO A DATA SET CONTAINING BIND INSTRUCTIONS
//*SYSTSIN DD DSN=IBMUSER.DB2.BIND(RDZDB2),DISP=SHR
//*
/*
//

Attachments

Updated on 2012-06-21T14:31:20Z at 2012-06-21T14:31:20Z by ToddBurchDB2
  • dbaSteve
    dbaSteve
    56 Posts

    Re: ERROR RUNNING DB2 PROGRAM

    ‏2012-05-07T15:20:31Z  
    what is the error?
  • ToddBurchDB2
    ToddBurchDB2
    74 Posts

    Re: ERROR RUNNING DB2 PROGRAM

    ‏2012-06-21T14:31:20Z  
    Well, one error I see straight away is you are precompiling into a member called QSAMDEMO, but binding from a different DBRM.

    As dbaSteve said - we kinda need to know what the error is to be able to help you resolve it.

    Todd