× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.