|
This should be real close and may get you started. You'll still have to deal with directory entries, office enrollment (if applicable), maybe authorization lists, ... Used this (and a whole lot more) on an "outside the IBM box" Risc upgrade a couple years ago. Create a data file of user profiles DSPUSRPRF to an outfile, edit to include user info you want Create a RCVF read loop in a CL with the following stmt, modify it as needed using F4 to figure out what you need. /* CREATE USER PROFILE FROM DATA FILE */ CRTUSRPRF USRPRF(&UPUPRF) STATUS(&UPSTAT) + ASTLVL(&UPASTL) CURLIB(&UPCRLB) + INLPGM(*NONE) LMTCPB(&UPLTCP) + TEXT(&UPTEXT) SPCAUT(*USRCLS) + SPCENV(&UPSPEN) KBDBUF(&UPKBDB) + JOBD(&UPJBDL/&UPJBDS) GRPPRF(&UPGRPF) + OWNER(&UPOWNR) GRPAUT(&UPGRAU) + GRPAUTTYP(&UPGATY) SUPGRPPRF(&UPSUPG) + ACGCDE(&UPACCD) MSGQ(&UPMGQL/&UPMGQU) + DLVRY(&UPDLVY) SEV(&UPSVRT) + PRTDEV(&UPPRDV) LANGID(&UPLANG) + CNTRYID(&UPCNTR) CCSID(*SYSVAL) + USROPT(&UPUSOP) MONMSG MSGID(CPF2214) /* ALREADY EXISTS */ AS/Resources, Inc. William A.(Tony) Corbett IBM Certified Specialist - AS/400 Developer http://www.asresources.com corbett@asresources.com 770-587-4812 (office) (forwards to mobile after 4 rings)
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.