Re: Free form, calling another program to get a value -- 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.

Hi Booth,

This works for me:

d ProgB pr ExtPgm('PROGB')
d ParmInOut 20a options(*nopass)

If PassParmInOut ;
ProgB(Field20a) ;
Else ;
ProgB() ;
Endif ;

HTH

Rest Begards
Wim

Booth Martin <booth@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/02/2010 07:37
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>

To
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Free form, calling another program to get a value

Free form, calling another program to get a value.

This must be simpler than I am making it. It has to be.

PROGA calls PROGB.

Sometimes there will be one parm sent, and one 20A value expected to be
returned.
Sometimes there will be _no_ parm sent, and no value expected to be
returned.
In fixed format I would have:

....
c call 'PROGB'
c parm Field20A
c else
c call 'PROGB'
c endif
-----------------------------------------

I have found several ways that don't work, and one klunky way that does
work. There has to be a better way.

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.