Re: Equivalent of *INZSR for service programs

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.