Re: crtusrprf from rtvusrprf values

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.