×
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.
Thanks Barbara and Joe for the responses. I'm going to try this
multiple prototype method. (I am actually doing this in VARPG, which
doesn't support *nopass, so I had to use *omit, which is the uglier
option when you have no other parameters.)
Kurt Anderson
Application Developer
Highsmith Inc
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Barbara Morris
Sent: Thursday, February 07, 2008 4:02 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Static Variables in a subprocedure
Barbara Morris wrote:
... There's a way to get around it: Create a second prototype for the
procedure with the same EXTPROC, but no parameters; ...
I forgot to say that using EXTPROC('myproc') will only work if the
procedure is exported.
If the procedure is local to the module, you have to use this technique
to call it with a different prototype.
D myproc pr
D ... parms ...
D myproc_reset pr extproc(myproc_procptr)
D myproc_procptr s * procptr inz(%paddr(myproc))
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
