Hi,
I have compiled a store procedure "FDWP001" using the following JCL. the job ended with Max CC 4. Using datastudio I ran the SP with required input. The status of the SP executed was successful. But the parameters tab is showing SQLCODE -927.

The DB2 version is 8 and I compiled the job in z/os environment that has neither CICS or IMS..

927 THE LANGUAGE INTERFACE (LI)
WAS CALLED WHEN THE
CONNECTING ENVIRONMENT WAS
NOT ESTABLISHED. THE PROGRAM
SHOULD BE INVOKED UNDER THE
DSN COMMAND


Can someone help us in correcting the JCL below?

JCL used for Compile:

//BDPL001 JOB SPCOMP,NOTIFY=&SYSUID,MSGLEVEL=(1,1),
// MSGCLASS=M,REGION=0M,
// CLASS=A
//JOBLIB DD DSN=UDBV810.SDSNLOAD,DISP=SHR
//************************************************** *******
//*COBOL DB2 JCL
//* DB2 PRECOMPILE
//************************************************** *******
//DB2PC EXEC PGM=DSNHPC,
// PARM='HOST(IBMCOB),APOST,APOSTSQL,STDSQL(NO),SOURC E',
// REGION=4096K
//DBRMLIB DD DSN=CITI.ATJDDBA.LIB.DBRM(FDWP001),
// DISP=SHR
//STEPLIB DD DISP=SHR,DSN=UDBV810.SDSNLOAD
// DD DISP=SHR,DSN=UDBV810.SDSNEXIT
//SYSIN DD DSN=CITI.ATJDDBA.LIB.SOURCE(FDWP001),DISP=SHR
//SYSCIN DD DSN=&&SYSCIN,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(800,(500,500)),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=4000)
//SYSLIB DD DSN=CITI.FDWDDBA.LIB.DCLGEN,DISP=SHR
// DD DSN=CITI.FDWDDBA.LIB.COPY,DISP=SHR
//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
//************************************************** *******
//* COMPILE THE COBOL PROGRAM IF THE PRECOMPILE
//* RETURN CODE IS 4 OR LESS
//************************************************** *******
//COB2 EXEC PGM=IGYCRCTL,REGION=2048K,COND=(4,LT),TIME=,
// PARM='APOST,LIB,MAP,NOSEQ,RENT,DYNAM,MAP,XREF,TRUN C(BIN),
// SSR,LC(70),X(SHORT),FLAG(I,I),OFFSET'
//STEPLIB DD DISP=SHR,DSN=UDBV810.SDSNLOAD
// DD DISP=SHR,DSN=IGY.SIGYCOMP
//SYSLIB DD DSN=CITI.FDWDDBA.LIB.COPY,DISP=SHR
// DD DSN=CITI.FDWDDBA.LIB.DCLGEN,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//SYSLIN DD DSN=&LOADSET,DISP=(MOD,PASS),
// UNIT=SYSDA,SPACE=(TRK,(10,5))
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT5 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT6 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT7 DD UNIT=SYSDA,SPACE=(460,(350,100))
//************************************************** *******
//* LINKEDIT IF THE COMPILE
//* RETURN CODE IS 4 OR LESS
//************************************************** *******
//LKED EXEC PGM=IEWL,REGION=2048K,
// PARM='MAP,XREF,AMODE=31,RMODE=ANY',
// COND=(4,LT,COB2)
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=UDBV810.SDSNLOAD,DISP=SHR
// DD DISP=SHR,DSN=ISP.SISPLOAD
//SYSLMOD DD DSN=IBMUSER.LIB.LOAD(FDWP001),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,
// SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//*INCLUDE SYSLIB(DSNRLI,DSNTIAR)
//*INCLUDE SYSLIB(DSNALI)
//SYSIN DD *
INCLUDE SYSLIB(DSNRLI,DSNTIAR)
/*
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB DD DISP=SHR,DSN=CITI.ATJDDBA.LIB.DBRM(FDWP001)
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(CDD1)
BIND PLAN(FDWP001) MEMBER(FDWP001) +
QUALIFIER(ATJDDBA) +
PKLIST(FDWDPGM.*) +
OWNER(ATJDDBA) ACT(R) ISO(CS) RETAIN
END
/*


Thanks,
Balaji N Krishna