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?