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 jo.skip.robin...@sce.com From: venkat kulkarni <venkatkulkarn...@gmail.com> To: IBM-MAIN@LISTSERV.UA.EDU, Date: 02/03/2014 06:43 PM Subject: RACF USERMOD APPLY Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN