|
Listers - We have a Command & CL program which allows a (specific) user to enter a user profile name and copy it to another (new) user profile (this is not all that the CL program does but only the part which is causing trouble). Suddenly, this program is not working when the original user profile has INLMNU(*SIGNOFF) and/or INLPGM(*NONE) or when a parm pulled in via RTVUSRPRF begins with an "*". When this occurs, we receive multiple CPD0078 (Value '*NONE ' for parameter INLPGM not a valid name, for example) messages, one for initial program, one for initial program library, etc. The offending code looks like this IF COND(© *EQ 'Y') THEN(DO) RTVUSRPRF USRPRF(&FROMUSER) SPCAUT(&SPCAUT) + INLPGM(&INLPGM) INLPGMLIB(&INLPGMLIB) + JOBD(&JOBD) JOBDLIB(&JOBDLIB) + GRPPRF(&GRPPRF) OWNER(&OWNER) + GRPAUT(&GRPAUT) ACGCDE(&ACGCDE) + OUTQ(&OUTQ) OUTQLIB(&OUTQLIB) + USRCLS(&USRCLS) ASTLVL(&ASTLVL) + SPCENV(&SPCENV) CURLIB(&CURLIB) + INLMNU(&INLMNU) INLMNULIB(&INLMNULIB) + LMTCPB(&LMTCPB) PRTDEV(&PRTDEV) + ATNPGM(&ATNPGM) ATNPGMLIB(&ATNPGMLIB) + GRPAUTTYP(&GRPAUTTYP) SUPGRPPRF(&SUPGRPPRF) . . . . various MONMSGs for original user profile existence, authority, locks omitted . . . ? CRTUSRPRF USRPRF(&USER) PASSWORD(password) + PWDEXP(*YES) USRCLS(&USRCLS) + ASTLVL(&ASTLVL) CURLIB(&CURLIB) + INLPGM(&INLPGMLIB/&INLPGM) + INLMNU(&INLMNULIB/&INLMNU) + LMTCPB(&LMTCPB) TEXT(&LNAME *TCAT ',' + *BCAT &FNAME *TCAT ' -' *BCAT &DEPT) + SPCAUT(&SPCAUT) SPCENV(&SPCENV) + JOBD(&JOBDLIB/&JOBD) GRPPRF(&GRPPRF) + OWNER(&OWNER) GRPAUT(&GRPAUT) + GRPAUTTYP(&GRPAUTTYP) + SUPGRPPRF(&SUPGRPPRF) ACGCDE(&ACGCDE) + PRTDEV(&PRTDEV) OUTQ(&OUTQLIB/&OUTQ) + ATNPGM(&ATNPGMLIB/&ATNPGM) and the resulting CRTUSRPRF screen looks like this Create User Profile (CRTUSRPRF) Type choices, press Enter. User profile . . . . . . . . . . > STEVETEST Name User password . . . . . . . . . > password Name, *USRPRF, *NONE Set password to expired . . . . > *YES *NO, *YES Status . . . . . . . . . . . . . *ENABLED *ENABLED, *DISABLED User class . . . . . . . . . . . > *USER *USER, *SYSOPR, *PGMR... Assistance level . . . . . . . . > *SYSVAL *SYSVAL, *BASIC, *INTERMED... Current library . . . . . . . . > *CRTDFT Name, *CRTDFT Initial program to call . . . . > *NONE Name, *NONE Library . . . . . . . . . . . > ' ' Name, *LIBL, *CURLIB Initial menu . . . . . . . . . . > *SIGNOFF Name, *SIGNOFF Library . . . . . . . . . . . > ' ' Name, *LIBL, *CURLIB Limit capabilities . . . . . . . > *YES *NO, *PARTIAL, *YES Text 'description' . . . . . . . > 'TEST, STEVE - HR' More... F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel F13=How to use this display F24=More keys Value '*NONE ' for parameter INLPGM not a valid name. + This also happens on the OUTQ and ATNPGM parameters of CRTUSRPRF. I have checked for PTFs but have found none. Is anyone aware of any fixes for this situation? Or have you run into this before? TIA, Steve (who apologizes in advance because I don't think the format of the CRTUSRPRF screen is going to translate very well into a newsgroup posting :-) )
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.