//MVS0130 JOB  (SMP),
//             'Usermod ZUM0001',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1)
//*********************************************************************
//*
//*                       MVS 3.8 SYSGEN
//*                       ==============
//*
//* Desc: Install usermod ZUM0001 to authorize 
//*          QUEUE
//*          RPF 
//*          IEBCOPY
//*          PDS
//*
//*********************************************************************
//*
/*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'QUEUE   '       QUEUE COMMAND
         DC    CL8'Q       '       ALIAS
         DC    CL8'QUE     '       ALIAS
         DC    CL8'PDS     '       PDS Utility
         DC    CL8'PDSAA   '       PDS Utility (Test)
         DC    CL8'PDS73   '       PDS Utility (Alias)
         DC    CL8'IEBCOPY '       Copy under TSO
         DC    CL8'RPF     '       SPARE TABLE ENTRIES
         DC    CL8'RPFMAIN '       SPARE TABLE ENTRIES
         DC    CL8'#       '       CMDBSUB sub system
         DC    CL8'        '       8 BLANKS TABLE TERMINATOR
         END
$$
//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)
 .
