Topic
No replies
RVXY_Shajeel_Khan
RVXY_Shajeel_Khan
30 Posts
ACCEPTED ANSWER

Pinned topic Unable to copy the RACF data base to SYSUT1

‏2012-07-27T13:31:03Z |
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