Either use the APIs to create the profile or use the venerable QCMDEXEC.
The command string needs to be in a variable.
Alternatively: create an initial program that maybe has:
Pgm
Dcl &name *char len(10)
Chgvar &name value ('any')
Endpgm
Make that the initial program when it's really *NONE and you'll get past the
parameter police without QCMDEXEC.
Clearly you could make it do something useful too.......
--
Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of tim
Sent: Wednesday, March 25, 2015 1:20 PM
To: Midrange Systems Technical Discussion
Subject: 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.
midrange.com
