Automated Testing

Automated Testing

Automated Testing

Build an automated testing process to enable continuous integration of your hybrid cloud applications including z/OS

 View Only
Back to discussions
Expand all | Collapse all

Unable to configure RACF on RDz UT

  • 1.  Unable to configure RACF on RDz UT

    Posted Thu September 22, 2011 02:31 PM
    Hi

    I’m following IBM Rational Developer for System z: Unit Test Configuration Guide (8.01) for setting up RDz UT on my machine. I’ve successfully configured until TCP/IP. The next step was to add RACF security. There’s a JCL provided that needs to be submitted. When I submitted the JCL, I was getting errors. I have attached both the JCL and the output of the JCL with this mail.

    Here's the JCL:

    //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 //* // SET VOLSER=SYSUT1 * SHOULD BE ON NON-ADCD DISK // SET SIZE=20 //* //* LOGICAL COPY OF RACF DATABASE //* //COPY EXEC PGM=IRRUT400,PARM=’LOCKINPUT,FREESPACE(20)’ //SYSPRINT DD SYSOUT=* //INDD1 DD DISP=SHR,DSN=SYS1.RACFDS //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) //* //UNLOCK EXEC PGM=IRRUT400,PARM=’UNLOCKINPUT’,COND=EVEN //SYSPRINT DD SYSOUT=* //INDD1 DD DISP=SHR,DSN=SYS1.RACFDS //* //* CREATE A RACF DATA BASE NAME TABLE (ICHRDSNT) //* BASED UPON SYS1.SAMPLIB(RACTABLE) //* //TABLE EXEC HLASMCL,COND=(0,NE) //C.SYSIN DD * ICHRDSNT CSECT DC AL1(1) INDICATES ONE RACF DATA SET DC CL44’USER.RACF’ PRIMARY RACF DS NAME DC CL44’’ BACKUP RACF DS NAME DC AL1(255) NUMBER OF RESIDENT DATA BLOCKS DC X’00’ NO UPDATES DUPLICATED ON BACKUP DS END //L.SYSLMOD DD DISP=SHR,DSN=USER.LINKLIB //L.SYSIN DD * NAME ICHRDSNT(R) //*


    And here's the JCL's output:

    ********************************* TOP OF DATA ********************************** J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N 16.57.12 JOB00338 ---- WEDNESDAY, 21 SEP 2011 ---- 16.57.12 JOB00338  IRR010I  USERID IBMUSER  IS ASSIGNED TO THIS JOB. 16.57.12 JOB00338  ICH70001I IBMUSER  LAST ACCESS AT 15:27:51 ON WEDNESDAY, SEPT 16.57.12 JOB00338 $HASP373 IBMUSERE STARTED - INIT 1    - CLASS A - SYS SYS1 16.57.12 JOB00338  IEF403I IBMUSERE - STARTED - TIME=16.57.12 16.57.13 JOB00338  IEF404I IBMUSERE - ENDED - TIME=16.57.13 16.57.13 JOB00338  $HASP395 IBMUSERE ENDED ------ JES2 JOB STATISTICS ------ 21 SEP 2011 JOB EXECUTION DATE 41 CARDS READ 135 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 8 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 DISK                      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), COMMAND INPUT ===>                                            SCROLL ===> CSR 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 15:27:51 ON WEDNESDAY, SEPTEMBER 21, 2011 IEF236I ALLOC. FOR IBMUSERE COPY IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 0A82 ALLOCATED TO INDD1 IGD100I 0AB2 ALLOCATED TO DDNAME OUTDD1   DATACLAS (        ) IEF142I IBMUSERE COPY - STEP WAS EXECUTED - COND CODE 0016 IEF285I   IBMUSER.IBMUSERE.JOB00338.D0000103.?         SYSOUT IEF285I   SYS1.RACFDS                                  KEPT IEF285I   VOL SER NOS= SBSYS1. IEF285I   USER.RACF                                    CATALOGED IEF285I   VOL SER NOS= SYSUT1. IEF373I STEP/COPY    /START 2011264.1657 IEF374I STEP/COPY    /STOP  2011264.1657 CPU    0MIN 00.02SEC SRB    0MIN 00.00S IEF236I ALLOC. FOR IBMUSERE UNLOCK IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 0A82 ALLOCATED TO INDD1 IEF142I IBMUSERE UNLOCK - STEP WAS EXECUTED - COND CODE 0016 IEF285I   IBMUSER.IBMUSERE.JOB00338.D0000104.?         SYSOUT IEF285I   SYS1.RACFDS                                  KEPT IEF285I   VOL SER NOS= SBSYS1. IEF373I STEP/UNLOCK  /START 2011264.1657 IEF374I STEP/UNLOCK  /STOP  2011264.1657 CPU    0MIN 00.02SEC SRB    0MIN 00.00S IEF202I IBMUSERE C TABLE - STEP WAS NOT RUN BECAUSE OF CONDITION CODES IEF272I IBMUSERE C TABLE - STEP WAS NOT EXECUTED. IEF373I STEP/C       /START 2011264.1657 IEF374I STEP/C       /STOP  2011264.1657 CPU    0MIN 00.00SEC SRB    0MIN 00.00S IEF202I IBMUSERE L TABLE - STEP WAS NOT RUN BECAUSE OF CONDITION CODES IEF272I IBMUSERE L TABLE - STEP WAS NOT EXECUTED. IEF373I STEP/L       /START 2011264.1657 IEF374I STEP/L       /STOP  2011264.1657 CPU    0MIN 00.00SEC SRB    0MIN 00.00S IEF375I  JOB/IBMUSERE/START 2011264.1657 IEF376I  JOB/IBMUSERE/STOP  2011264.1657 CPU    0MIN 00.04SEC SRB    0MIN 00.00S IRR65020I Specified Options: IRR65031I No locking parameter was specified. Processing will terminate after th IRR65032I One of the following parameters is required: LOCKINPUT, NOLOCKINPUT, o IRR65020I Specified Options: IRR65031I No locking parameter was specified. Processing will terminate after th IRR65032I One of the following parameters is required: LOCKINPUT, NOLOCKINPUT, o ******************************** BOTTOM OF DATA ********************************

    Can you please help in determining the problem?

    Thanks,
    Juzer
    SystemAdmin


  • 2.  Re: Unable to configure RACF on RDz UT

    Posted Mon September 26, 2011 12:22 AM
    It looks like quote characters were lost (or wrongly converted) when copying the JCL to z/OS. At least they appear to be missing in the job log output. It may be that the code that looks like a quote is not the same character that you would get when typing a quote on the keyboard, so try just overtyping all the single quote characters.

    There should be single quotes around the PARM='LOCKINPUT,FREESPACE(20)' and PARM='UNLOCKINPUT'.

    There are also quotes in the assembler source, so be sure to check that too.

    -Doug
    SystemAdmin


Related Content