IBM Mainframe Forum

Posted: **Thu Jan 22, 2009 4:56 pm**

Hello,

I am a student of an IBM Academic Initiative System Z Course, and I am getting this error when I try to compile a COBOL-DB2 program.

DSNT210I - BIND AUTHORIZATION ERROR
USING MYUSER AUTHORITY
PLAN = PRECOB1
PRIVILEGE = BIND
DSNT201I - BIND FOR PLAN PRECOB1 NOT SUCCESSFUL

Any ideas?

Thank you so much!

Select all

//MYUSER JOB (01,01),'COBOL-DB2',
// CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*---------------------------------------------------------------------
//* PRECOMPILATION
//*---------------------------------------------------------------------
//PC EXEC PGM=DSNHPC,PARM='HOST(IBMCOB),APOST,SOURCE',REGION=4096K
//DBRMLIB DD DSN=MYUSER.DBRM(PRECOB1),DISP=SHR
//STEPLIB DD DSN=DB2.V8R1.DSNB.SDSNEXIT,DISP=SHR
// DD DSN=DB2.V8R1.SDSNLOAD,DISP=SHR
//SYSIN DD DSN=MYUSER.DB2(PRECOB1),DISP=SHR
//SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(800,(500,500))
//SYSLIB DD DSN=MYUSER.DCLGEN,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),UNIT=VIO
/*
//*---------------------------------------------------------------------
//* COMPILATION
//*---------------------------------------------------------------------
//COB EXEC PGM=IGYCRCTL,COND=(4,LT,PC),REGION=4M,
// PARM=('SIZE(4000K),BUFSIZE(32760),LIST,LIB,MAP,OBJECT',
// 'DATA(31),XREF,RENT')
//STEPLIB DD DSN=COBOL.V3R3.SIGYCOMP,DISP=SHR
//SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(800,(500,500))
//SYSLIB DD DSN=MYUSER.DCLGEN,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT3 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT4 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT5 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT6 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//SYSUT7 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA
//*---------------------------------------------------------------------
//* LINK-EDIT
//*---------------------------------------------------------------------
//LKED EXEC PGM=IEWL,COND=((4,LT,COB),(4,LT,PC)),PARM='XREF'
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=DB2.V8R1.SDSNLOAD,DISP=SHR
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//SYSLMOD DD DSN=MYUSER.IBMVAL.LOAD(PRECOB1),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(1024,(50,50)),UNIT=SYSDA
/*
//*---------------------------------------------------------------------
//* BIND
//*---------------------------------------------------------------------
//BIND EXEC PGM=IKJEFT01,COND=(4,LT),REGION=4096K
//STEPLIB DD DSN=DB2.V8R1.SDSNLOAD,DISP=SHR
// DD DSN=DB2.V8R1.DSNB.SDSNEXIT,DISP=SHR
// DD DSN=DB2.V8R1.DSNB.SRCLIB.DATA,DISP=SHR
// DD DSN=DB2.V8R1.DSNB.RUNLIB.LOAD,DISP=SHR
//DBRMLIB DD DSN=MYUSER.DBRM,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
GRANT BIND,EXECUTE ON PLAN PRECOB1 TO PUBLIC;
/*
//SYSTSIN DD *
DSN SYSTEM (DSNB)
BIND MEMBER (PRECOB1) -
PLAN (PRECOB1) -
LIBRARY ('MYUSER.DBRM') -
RELEASE (COMMIT) -
VALIDATE (BIND) -
ACTION (REPLACE) -
OWNER (MYUSER)
END

Posted: **Fri Jan 23, 2009 12:47 am**

Hello,

Suggest you talk with your instructor, dba, or security admin to ensure you have the correct jcl, control statements, and db2 permissions to do this.

IBM Mainframe Forum

BIND AUTHORIZATION ERROR

BIND AUTHORIZATION ERROR

Re: BIND AUTHORIZATION ERROR