Re: Equivalent of *INZSR for service programs

That's exactly what I'm talking about. I just needed to think a little farther outside the box.

And theoretically as long as I don't include the procedure in the binder source, I could call them all the same thing (e.g., just srvpgm_init).  Then I write the C++ module once and include it in every service program I create.

This is fantastic.



On 3/27/2019 4:33 PM, Mihael Schmidt 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.