+DFS047A - UNABLE TO OBTAIN AUTHORIZATION FOR DATA BASE RC20
Posted: 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.
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.