//ZUM0001 JOB (SMP),'Usermod ZUM0001',CLASS=A,MSGCLASS=A,
//            MSGLEVEL=(1,1)
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//* Desc: Install usermod ZUM0001 to authorize
//*          QUEUE
//*          RPF
//*
//*********************************************************************
//*
/*MESSAGE  ******************************************
/*MESSAGE  *                                        *
/*MESSAGE  * This Usermod becomes effective only    *
/*MESSAGE  * if you do an IPL with the CLPA option  *
/*MESSAGE  *                                        *
/*MESSAGE  ******************************************
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE SYS1.UMODSRC(IKJEFTE2) NONVSAM
 SET MAXCC = 0
 SET LASTCC = 0
//ADD     EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=*
//SYSUT2   DD  DISP=SHR,DSN=SYS1.UMODSRC
//SYSIN    DD  DATA,DLM=$$
./ ADD NAME=IKJEFTE2
         ENTRY APFCTABL
IKJEFTE2 CSECT
         DC    CL8'IKJEFTE2'
         DC    CL8'&SYSDATE'
APFCTABL DC    CL8'IEBCOPY '       IEBCOPY under TSO
         DC    CL8'LISTD   '       TSO List Dataset commands
         DC    CL8'LISTDS  '        LISTDS Alias
         DC    CL8'IKJEHDS1'         LISTDS Alias
         DC    CL8'QUEUE   '       QUEUE COMMAND
         DC    CL8'Q       '        QUEUE Alias
         DC    CL8'QUE     '         QUEUE Alias
         DC    CL8'RPF     '       RPF
         DC    CL8'RPFMAIN '        RPF
         DC    CL8'RPFOUT  '         RPF
         DC    CL8'        '       TABLE TERMINATOR
         END
         ENTRY APFCTABL
$$
//ASM     EXEC SMPASML,M=IKJEFTE2
//RECAPP  EXEC SMPAPP
//SMPPTFIN DD  *
++ USERMOD(ZUM0001).
++ VER(Z038)
   FMID(EBB1102)
   .
++ MOD(IKJEFTE2)
   DISTLIB(AOST4)
   LKLIB(UMODLIB)
   .
//SMPCNTL  DD  *
 REJECT  SELECT(ZUM0001)
 .
 RESETRC
 .
 RECEIVE SELECT(ZUM0001)
 .
 APPLY SELECT(ZUM0001)
       DIS(WRITE)
 .
//