/* RACFADDU - seed RACF database on new z/VM system with unique   */
/*            user IDs from the source z/VM system                */
 
/* Runs on the target system                                      */
 
/* input - MIGRATE USERLST A - created by DIRLIST exec                */
USERLIST='MIGRATE USERLST A'
 
/* call CheckIp to verify that all input files exist                 */
 
Call CheckIp
 
/* variables                                        */
PASSWD='pass1ibm' /* default password for 1st logon */
GROUP='SYS1'      /* group to be used               */
 
/* read the USERLIST into an array                  */
   'pipe < 'USERLIST' | stem USERS.'
 
/* for each user build a set of RACF commands to add and modify the */
/* user IDs. the RACFIMPU exec - created by RACFEXPU - will further */
/* modify the user IDs                                              */
Do I = 1 to USERS.0
 
/* the RACF commands to add each user will be executed as created */
     SAY 'Processing USER:' USERS.I
     "RAC ADDUSER ("USERS.I") PASSWORD("PASSWD")"
     "RAC ALTUSER "USERS.I" NAME('"USERS.I"') GROUP("GROUP")"
     "RAC PASSWORD USER("USERS.I") NOINTERVAL"
 End
 
Exit
 
CheckIp:
 
/* check for the input files - exit with RC 04 if not found */
 
IFiles.1=USERLIST
IFiles.0=1
 
Do C=1 to IFiles.0
 
ADDRESS COMMAND 'ESTATE 'IFiles.C
If RC <> 0 then Do
Say 'Input file 'IFiles.C' not found - terminating'
Exit 4
End
 
End
 
Return