Re: Equivalent of *INZSR for service programs

+1
You can find that dead link here:
https://web.archive.org/web/20100206174551/http://systeminetwork.com/node/26462 ;
  

On Wednesday, March 27, 2019, 5:33:53 PM EDT, Mihael Schmidt <mihael@xxxxxxxxxxxxxx> wrote:

There is another way which includes some tiny C++ code. You code an C++
source file like this

extern "C" { int jsona_srvpgm_init(void); }

static int dummyInitVar = jsona_srvpgm_init();

And compile it as an ILE C++ module. And you create a procedure in your
RPG code, in this example jsona_srvpgm_init(). You bind it all together
to a service program.

Now your RPG procedure will get called when the service program is loaded.

I use this in my JSON Utilties service program,
http://rpgnextgen.com/index.php?content=download#json .


This concept is from an article from Bob Cozzi on systeminetwork.
http://systeminetwork.com/node/26462

Hope this helps.

Best regards

Mihael


On 27.03.19 21:26, Joe Pluta wrote:

Is there any way to invoke a specific procedure when a service program
is first activated?  For example, to load configuration information. 
I can use a pretty simple brute force design pattern: every procedure
in the service program calls an internal procedure called init(), and
the first thing init() does is check a static variable to see if it's
already been called.  I don't have a problem with that technique, but
I was just wondering if I was missing something a little more elegant.