ICHRDSNT comes with RACF as a MOD/LMOD entity only. There is no source
supplied. You can create a usermod with source to replace the MOD/LMOD.
You must use the same DISTLIB as the RACF-supplied MOD, which is AOSBN.
Otherwise you'll get a mismatch error. Here's what our DSNT usermod looks
like. Because this usermod will never be accepted, we don't need to
specify an actual DISTLIB for SRC. SMP/E knows how to assemble source, so
JCLIN does not need that step.
//SMPPTFIN DD DATA,DLM=$$
++USERMOD(RACF001) REWORK(2011175 ) .
++VER(Z038) FMID(HRF7780)
/*
THIS USERMOD INSTALLS THE RACF DATASET NAME TABLE
MODULE (ICHRDSNT) . SOURCE IN INCLUDED INLINE.
*/.
++JCLIN.
//ICHRDSNT EXEC LINKS,PARM='XREF,LIST,LET,NCAL,RENT'
//SYSLMOD DD DISP=SHR,DSN=SYS1.LINKLIB
//AOSBN DD DISP=SHR,DSN=SYS1.AOSBN
//SYSLIN DD *
INCLUDE AOSBN(ICHRDSNT)
NAME ICHRDSNT(R)
++SRC (ICHRDSNT) DISTLIB (DUMMY) .
...
$$
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[email protected]
From: venkat kulkarni <[email protected]>
To: [email protected],
Date: 02/03/2014 06:43 PM
Subject: RACF USERMOD APPLY
Sent by: IBM Mainframe Discussion List <[email protected]>
Hello,
I am getting issue while applying RACF USERMOD for changing RACF
NAME TABLE.
//USERMOD1 JOB ((660)),
// 'VENKAT',
// CLASS=A,
// MSGCLASS=A,
// TIME=1440,NOTIFY=&SYSUID
//*
//STEP1 EXEC PGM=GIMSMP,REGION=6M,
// TIME=120
//SMPCSI DD DSN=SMPE.GLOBAL.CSI,
// DISP=SHR
//SMPHOLD DD DUMMY
//SMPOUT DD SYSOUT=*
//SMPRPT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=2660,RECFM=FB)
//SMPCNTL DD *
SET BDY(GLOBAL) .
RECEIVE S(UM21001) .
SET BDY(MVST100) .
APPLY CHECK S(UM21001) REDO .
/*
//SMPPTFIN DD DATA,DLM='%%'
++USERMOD(UM21001) REWORK(2014034) .
++VER(Z038) FMID(HRF7790) PRE(CPPDSNT) .
++JCLIN .
//UM21001 JOB MVSSP121
//ICHRDSNT EXEC PGM=IEWL,
// PARM='LIST,LET,XREF,NCAL'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=3390,SPACE=(CYL,(1,1))
//SYSLMOD DD DSN=Z.LINKLIB,DISP=SHR
//SYSLIN DD *
INCLUDE SYSLMOD(ICHRDSNT)
ENTRY ICHRDSNT
NAME ICHRDSNT(R)
/*
++SRC(ICHRDSNT) DISTLIB(AORASRC) DISTMOD(ALINKLIB) .
ICHRDSNT CSECT
DC AL1(1) # PRIMARY RACF DATASETS
DC CL44'SYS1.RACFP' NAME OF PRIMARY
DC CL44'SYS1.RACFB' NAME OF BACKUP
DC AL1(255) # RESIDENT BLOCKS (ONE TRACK)
DC X'80' UPDATES DUPLICATED ON BACKUP D
END
%%
//
APPLY CHECK S(UM21001) REDO .
GIM40501E ** THE DISTLIB VALUE (ALINKLIB) SPECIFIED FOR MOD ICHRDSNT IN
SYSMOD
SP21001 DOES NOT MATCH THE DISTLIB VALUE (AOSBN) IN THE MOD
ENTRY
FOR ICHRDSNT.
GIM22601I APPLY PROCESSING FAILED FOR SYSMOD UM21001.
GIM20501I APPLY PROCESSING IS COMPLETE. THE HIGHEST RETURN CODE WAS 08.
I am not able to find hint to solve this issue. Can anybody help me on
this.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
