Re: Call a program name from a file

On Tue, Dec 3, 2019 at 9:43 AM Art Tostaine, Jr. <atostaine@xxxxxxxxx>
wrote:

I want to retrieve the program name WHSAUD5R from a code table instead.
How can I call whatever program I want here? I will always pass the same
parameters.

Just define a variable that's 10 - 20 characters long, and use that as
the EXTPGM parameter (without quotes).

dcl-s pgmname char (20) inz('*LIBL/MYPGM');

dcl-pr calledPgm extpgm(pgmname);
pParm1 char (20);
pParm2 char (20);
end-pr;

david


--
IBM i on Power Systems: For when you can't afford to be out of business!

I'm riding in the American Diabetes Association's Tour de Cure to
raise money for diabetes research, education, advocacy, and awareness.
You can make a tax-deductible donation to my ride by visiting
https://mideml.diabetessucks.net.

You can see where my donations come from by visiting my interactive
donation map ... https://mideml.diabetessucks.net/map (it's a geeky
thing).

I may have diabetes, but diabetes doesn't have me!
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com