IBM Mainframe Forum

[RC=0]

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

[dick scherrer]

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.