Hi All,
We are setting up new environment on UT box for that i am running IBMUSERE job to copy the RACF data base to SYSUT1. The job is showing some error's;
********************************* TOP OF DATA ********************************** J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N 11.59.24 JOB00046 ---- FRIDAY, 27 JUL 2012 ---- 11.59.24 JOB00046 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB. 11.59.24 JOB00046 ICH70001I IBMUSER LAST ACCESS AT 10:04:18 ON FRIDAY, JULY 27 11.59.24 JOB00046 $HASP373 IBMUSERE STARTED - INIT 1 - CLASS A - SYS SYS1 11.59.24 JOB00046 IEF403I IBMUSERE - STARTED - TIME=11.59.24 11.59.24 JOB00046 IEF453I IBMUSERE - JOB FAILED - JCL ERROR - TIME=11.59.24 11.59.24 JOB00046 $HASP395 IBMUSERE ENDED ------ JES2 JOB STATISTICS ------ 27 JUL 2012 JOB EXECUTION DATE 41 CARDS READ 104 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 6 SYSOUT SPOOL KBYTES 0.00 MINUTES EXECUTION TIME 1 //IBMUSERE JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID //* //* CLONE ADCD RACF DATABASE AND USE CLONE AFTER IPL //* //* MUST RUN WHEN THERE IS NO RACF ACTIVITY //* UPON FAILURE, ENSURE THAT ICHRDSNT IS NOT IN USER.LINKLIB //* IEFC653I SUBSTITUTION JCL - CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=I 2 // SET VOLSER=SYSUT1 * SHOULD BE ON NON-ADCD DIS 3 // SET SIZE=20 //* //* LOGICAL COPY OF RACF DATABASE //* 4 //COPY EXEC PGM=IRRUT400,PARM='LOCKINPUT,FREESPACE(20)' 5 //SYSPRINT DD SYSOUT=* 6 //INDD1 DD DISP=SHR,DSN=SYS1.RACFDS 7 //OUTDD1 DD DISP=(NEW,CATLG),DSN=USER.RACF, * MUST BE IN MCAT // UNIT=SYSALLDA,VOL=SER=&VOLSER, // SPACE=(CYL,(&SIZE),,CONTIG),DCB=DSORG=PSU //* //* RE-ALLOW UPDATES TO ADCD RACF DATABASE (FOR BACKOUT PURPOSES) //* IEFC653I SUBSTITUTION JCL - DISP=(NEW,CATLG),DSN=USER.RACF,UNIT=SYSALL CONTIG),DCB=DSORG=PSU 8 //UNLOCK EXEC PGM=IRRUT400,PARM='UNLOCKINPUT',COND=EVEN 9 //SYSPRINT DD SYSOUT=* 10 //INDD1 DD DISP=SHR,DSN=SYS1.RACFDS //* //* CREATE A RACF DATA BASE NAME TABLE (ICHRDSNT) //* BASED UPON SYS1.SAMPLIB(RACTABLE) //* 11 //TABLE EXEC HLASMCL,COND=(0,NE) 12 XXASMACL PROC XX* XX******************************************************************** XX* XX* Licensed Materials - Property of IBM XX* XX* 5696-234 5694-A01 XX* XX* Copyright IBM Corporation 1992, 2008 All Rights Reserved. XX* XX* US Government Users Restricted Rights - Use, duplication XX* or disclosure restricted by GSA ADP Schedule Contract XX* with IBM Corp. XX* XX******************************************************************** XX* XX* ASMACL XX* XX* This procedure runs the High Level Assembler, link-edits the XX* newly assembled program. XX* XX******************************************************************** XX* 13 XXC EXEC PGM=ASMA90 XX* 14 XXSYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 15 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND), XX UNIT=SYSALLDA,BUFNO=1 16 XXSYSPRINT DD SYSOUT=* 17 XXSYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND), XX UNIT=SYSALLDA,DISP=(MOD,PASS), XX BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1 XX* 18 //C.SYSIN DD * 19 XXL EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,C) XX* 20 XXSYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) 21 XX DD DDNAME=SYSIN 22 //L.SYSLMOD DD DISP=SHR,DSN=USER.LINKLIB X/SYSLMOD DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)), X/ DSN=&&GOSET(GO) 23 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND), XX UNIT=SYSALLDA,BUFNO=1 24 XXSYSPRINT DD SYSOUT=* XX* 25 //L.SYSIN DD * //* STMT NO. MESSAGE 11 IEFC001I PROCEDURE HLASMCL WAS EXPANDED USING SYSTEM LIBRARY HLA.SASMS ICH70001I IBMUSER LAST ACCESS AT 10:04:18 ON FRIDAY, JULY 27, 2012 IEF212I IBMUSERE COPY INDD1 - DATA SET NOT FOUND IEF272I IBMUSERE COPY - STEP WAS NOT EXECUTED. IEF373I STEP/COPY /START 2012209.1159 IEF374I STEP/COPY /STOP 2012209.1159 CPU 0MIN 00.00SEC SRB 0MIN 00.00S IEF375I JOB/IBMUSERE/START 2012209.1159 IEF376I JOB/IBMUSERE/STOP 2012209.1159 CPU 0MIN 00.00SEC SRB 0MIN 00.00S ******************************** BOTTOM OF DATA ********************************
Please help us out in the following errors.
Thanks,
Shajeel Ahmed Khan
RVXY_Shajeel_Khan