Re: EXTPGM() in PR/PI -- RPG400-L

× 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.

On 6/28/2013 11:22 AM, Booth Martin wrote:

That is exactly what I am trying to do. Although I Used "TargetProgram"
instead of "ThisProgram."

Where I have gone astray is that the program won't compile if there are
PI lines of code. If I comment them out, it compiles and runs just fine.

I am trying to call any one of dozens of different programs and get data
back. The application has a standard set of 10 parameters that are used
almost universally in the application as caller, as callee, and as both.

How about putting the parameters in a copy file like I suggested in a post a few minutes ago. Then, in the program that calls the other programs by variable, code this prototype:

D genericCall pr extpgm(targetProgram)
/copy STDPARMS

D targetProgram s 21a

I think that gives you the most protection against future programmer error.

We could argue about whether you should copy in the STDPARMS copy file for the PI's. I guess it would depend on how often you change the parameters, and how much other change would be required in each program when you did change the parameters.

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.