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(&COPY *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 :-)  )




This thread ...

Follow-Ups:

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

This mailing list archive is Copyright 1997-2020 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].