+DFS047A - UNABLE TO OBTAIN AUTHORIZATION FOR DATA BASE RC20

IMS DB database, DL/I commands etc

Moderator: Moderator Group

Post Reply
rajinijay
Member
Posts: 1
Joined: Mon Jan 22, 2018 9:05 am

+DFS047A - UNABLE TO OBTAIN AUTHORIZATION FOR DATA BASE RC20

Post by rajinijay » Mon Jan 22, 2018 11:33 am

Hi,

When I run this JCL I am getting this error.
Could you pls help me to fix it

//COBIARUN JOB (20,FB3),'OLS0002',CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),
// NOTIFY=OLS0002,TIME=(1440),REGION=0M
// JCLLIB ORDER=IMS1210.PROCLIB
//STEP01 EXEC PGM=DFSRRC00,PARM=(DLI,COBIMS5,COMPPSB)
//DFSRESLB DD DSN=IMS1210.SDFSRESL,DISP=SHR
//STEPLIB DD DSN=IMS1210.SDFSRESL,DISP=SHR
// DD DSN=OLS0002.AUSER.PGMLIB,DISP=SHR
//IMS DD DSN=IMS1210.PSBLIB,DISP=SHR
// DD DSN=IMS1210.DBDLIB,DISP=SHR
//COMPDD DD DSN=OLS0002.AIMS.COMPDD,DISP=SHR
//COMPOFLW DD DSN=OLS0002.AIMS.COMPOFLW,DISP=SHR
//DFSVSAMP DD DUMMY
//IMSLOGR DD DUMMY
//IEFRDER DD DUMMY
//SYSPRINT DD SYSOUT=*
//*SYSUDUMP DD SYSOUT=*
//OUTPUT DD SYSOUT=A
//IMSERR DD SYSOUT=*


+DFS047A - UNABLE TO OBTAIN AUTHORIZATION FOR DATA BASE COMPDBD . REASON CODE = 20.

Post Reply