diwakar_rao
New User
Joined: 04 Mar 2007
Posts: 14
Location: Chennai
|
|
|
|
I am getting compile error while i prepare the jcl attached below for compile jcl for Cobol Db2 Pg. Kindly help me out in sorting this issue
1)PRECOMPILE , COMPILE JCL
==================================
| Code: |
//Z000064C JOB 002,CLASS=E,MSGCLASS=D,REGION=0M,NOTIFY=&SYSUID
//*********************************************************
//* DB2 PRECOMPILE
//*********************************************************
//DB2PC EXEC PGM=DSNHPC,REGION=0M,
// PARM='HOST(IBMCOB),XREF,SOURCE,FLAG(I),APOST,APOSTSQL'
//STEPLIB DD DISP=SHR,DSN=DEV.SMTW.LOAD.PGM
//SYSLIB DD DISP=SHR,DSN=DEV.SMTW.SOURCE.SQL
//DBRMLIB DD DSN=DEV.SMTW.SOURCE.DBRM(CHDB2PG1),DISP=SHR
//SYSCIN DD DSN=&&DSNHOUT,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(800,(500,500))
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSIN DD DISP=SHR,DSN=DEV.SMTW.SOURCE.COB(CHDB2PG1)
//***********************************************************
//** COMPILE **
//***********************************************************
//COMPILE EXEC PGM=IGYCRCTL,
// PARM='LIB,XREF,SOURCE,TRUNC(BIN),DATA(24),
// LIST,OBJECT,SQL'
//*
//STEPLIB DD DSN=IGY.SIGYCOMP,DISP=SHR
//*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSLIB DD DSN=DEV.SMTW.SOURCE.DBRM,DISP=SHR
// DD DSN=DEV.SMTW.SOURCE.SQL,DISP=SHR
//SYSIN DD DSN=&&DSNHOUT,
// DISP=(OLD,DELETE,DELETE)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSLIN DD DSN=&&OBJECT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
/* |
In COMPILE step it shows the following error
IGYDS0211-U DSNH006I FILE "DBRMLIB " COULD NOT BE OPENED
===========================================================================================
2) PRECOMPILE , COMPILE , BIND , LINKEDIT
===============================================
| Code: |
//Z000064C JOB 002,CLASS=E,MSGCLASS=D,REGION=0M,NOTIFY=&SYSUID
//*********************************************************
//* DB2 PRECOMPILE
//*********************************************************
//DB2PC EXEC PGM=DSNHPC,REGION=0M,
// PARM='HOST(IBMCOB),XREF,SOURCE,FLAG(I),APOST,APOSTSQL'
//STEPLIB DD DISP=SHR,DSN=DEV.SMTW.LOAD.PGM
//SYSLIB DD DISP=SHR,DSN=DEV.SMTW.SOURCE.SQL
//DBRMLIB DD DSN=DEV.SMTW.SOURCE.DBRM(CHDB2PG1),DISP=SHR
//SYSCIN DD DSN=&&DSNHOUT,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(800,(500,500))
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSIN DD DISP=SHR,DSN=DEV.SMTW.SOURCE.COB(CHDB2PG1)
//***********************************************************
//** COMPILE **
//***********************************************************
//COMPILE EXEC IGYWCL,
// PARM.COBOL='LIB,XREF,SOURCE,TRUNC(BIN),DATA(24),
// LIST,OBJECT,SQL',
// PARM.LKED='LIST,AMODE(24),RMODE=24,REUSE'
//COBOL.SYSIN DD DSN=&&DSNHOUT,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,20))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,20))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,20))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,20))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(10,20))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(10,20))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(10,20))
//LKED.SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=DEV.SMTW.LOAD.PGM,DISP=SHR
//LKED.SYSLMOD DD DSN=&&OBJSET,UNIT=SYSDA,DCB=BLKSIZE=3200,
// SPACE=(CYL,(5,5),RLSE),DISP=(,PASS)
//SYSPRINT DD SYSOUT=*
//*********************************************************************
//*** BIND *
//*********************************************************************
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=20
//DBRMLIB DD DISP=SHR,DSN=DEV.SMTW.SOURCE.DBRM(CHDB2PG1)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBOB)
BIND PLAN(CHDB2PG1) -
MEMBER(CHDB2PG1) -
LIBRARY('DEV.SMTW.SOURCE.DBRM') -
RELEASE(COMMIT) -
ACTION(REPLACE) -
QUALIFIER(DSN8710) -
VALIDATE(BIND) -
ISOLATION(CS)
END
//********************************************************************
//** LINKEDIT *
//********************************************************************
//LKED EXEC PGM=IEWL,
// COND=(4,LT)
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=DEV.SMTW.LOAD.PGM,DISP=SHR
//SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE)
//SYSLMOD DD DSN=DEV.SMTW.LOAD.PGM(CHDB2PG1),DISP=SHR
//SYSPRINT DD SYSOUT=* |
In COMPILE step it shows the following error
IGYDS0211-U DSNH006I FILE "DBRMLIB " COULD NOT BE OPENED |
|
