MVS – TK4- / TK5 add users

After a decade of absense from IBMs Big Iron.

Getting Hercules with MVS 3.8J up and running with TK4- or TK5 is a no brainer.

SYS2.JCLLIB(ADDUSER)

//HERC01A JOB  (TSO),                                                   
//             'Add TSO users',                                         
//             CLASS=A,                                                 
//             MSGCLASS=X,                                              
//             COND=(0,NE),                                             
//             MSGLEVEL=(1,1)                                           
//********************************************************************* 
//*                                                                     
//* Name: SYS2.JCLLIB(ADDUSER)                                          
//*                                                                     
//* Desc: Add new TSO users                                             
//*                                                                     
//* Note: The newly created userids do not have a password set          
//*       This jobs deletes the existing datasets with &HLQ !!!!        
//*                                                                     
//********************************************************************* 
//* 
//* UTYPE=SYSP OR USER                                                                    
//ADDUSER EXEC ADDUSER,HLQ=PATRICK,UTYPE=SYSP                                                        

SYS1.SECURE.CNTL(USER)

* *
* RAKF user definitions for TK5 *
* *
*
* Name: SYS1.SECURE.CNTL(USER)
FTPD FTPD FTPPW N
* HERC01 is authorized for everything including RAKF update
*
HERC01 ADMIN *CUL8TR Y
HERC01 RAKFADM CUL8TR Y
.....
* herc03 and HERC04 are regular users                         
*                                                             
HERC03   USER     PASS4U   N                                  

Update RAKF from JCL

//RAKFUPDT JOB (RAKF),'UPDATE RAKF',CLASS=A,MSGCLASS=A
//RAKFUSER EXEC RAKFUSER
//RAKFPROF EXEC RAKFPROF

On the Console

S RAKFPROFS RAKFUSER