John -

Yeah, suddenly . . . of course, I don't know that anyone actually tried to
copy a user profile that had *NONE and *SIGNOFF for initial menu and
program.  ;-)

Steve

"John Earl" <john.earl@xxxxxxxxxxxxxxxxxx>
wrote in message news:000001c33c35$ea9432e0$bf01000a@xxxxxxxxxx
> Steve,
>
>
> Suddenly?
>
> As in "It used to work, nothing has changed, and now it doesn't work."
>
> Can you look at the program object and see when it last changed?  I
> agree with Phil's analisys of the problem, but wanted to add that this
> is not behavior that should magically appear.  If Phil is right, eitehr
> the program always has done this, or someone has changed something
> recently.
>
> Jte
>
>
>
>
> > 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 is the Security Administration on the AS400 / iSeries
> > (Security400) mailing list
> > To post a message email:
Security400@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit:
> > http://lists.midrange.com/mailman/listinfo/security400
> > or email: Security400-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the
> > archives
> > at http://archive.midrange.com/security400.
>
>
> _______________________________________________
> This is the Security Administration on the AS400 / iSeries (Security400)
mailing list
> To post a message email:
Security400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/security400
> or email: Security400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/security400.
>
>




This thread ...

Replies:

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