× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.