Re: crtusrprf from rtvusrprf values

[tim <iseriesstuff@xxxxxxxxx>]

thanks all for your responses. The *N solution worked perfect.



On 3/26/2015 2:25 PM, Brian Johnson wrote:
> When &INLPGMLIB (and other library variables) is blank change it to
> '*N' before the CRTUSRPRF prompt.
>
> On Wed, Mar 25, 2015 at 1:20 PM, tim <iseriesstuff@xxxxxxxxx> wrote:
> > i wrote a program that will create user profiles. I have a "copy" function
> > that first does a rtvusrprf, then fills in the values for the crtusrprf.
> >
> > RTVUSRPRF  USRPRF(&U)                        +
> >             INLPGM(&INLPGM)                   +
> >             INLPGMLIB(&INLPGMLIB)             +
> >             TEXT(&TEXT)                       +
> >             INLMNU(&INLMNU)                   +
> >             INLMNULIB(&INLMNULIB)             +
> >             ATNPGM(&ATNPGM)                   +
> >             ATNPGMLIB(&ATNPGMLIB)
> >
> > ? crtUSRPRF                                 +
> >              ??TEXT(&TEXT)                   +
> >              ??INLPGM(&inlpgmlib/&inlpgm)    +
> >              ??INLMNU(&INLmnulib/&inlmnu)    +
> >              ??ATNPGM(&atnpgmlib/&ATNPGM)
> >
> > One problem i am having is when the initial program is *none. I get the
> > following:
> >
> > Initial program to call  . . . . > *NONE         Name, *NONE
> >    Library  . . . . . . . . . . . >   ' '         Name, *LIBL, *CURLIB
> >
> > Value '*NONE     ' for parameter INLPGM not a valid name.
> >
> > So the initial program field has embedded blanks at the end of the field and
> > the library value has 2 single quotes.
> >
> > It almost seems i cant use the retrieved values to initialize the crtusrprf
> > command.
> >
> > Is there a way to make this work?
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.