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


  1.  Home
  2. RPG400-L
  3. October 2007

Re: Subroutines ala SubProcedures

Jerry,

As others have said, the basic answer is yes. A common example is a *PSSR
subroutine inside your subprocedure, to perform error handling, as in this
example:

P DisplayData B
D PI 10I 0
D Parm 10A Const

/free
if Parm <> *blanks;
dsply Parm;
return 0;
else;
exsr *pssr;
endif;

begsr *pssr;
return -1;
endsr;

/end-free
P E

Rory

p.s. If you have any of that 'really good stuff', I could use it on a day
like today :-)


On 10/2/07, Jerry Adams <jerry@xxxxxxxxxxxxxxx> wrote:

I thought that I read somewhere (heaven knows, I may be smoking some
really good stuff today) that a subprocedure could invoke (EXSR) a
subroutine. I searched both of the ILE RPG manuals but couldn't find
anything on this situation.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.