Re: Call a program name from a file

This is some old code where we stored program names in a field in a file.
EXITPGFT is the field in the record retrieved.
EVFTEXPG is the prototype used for calling whatever program name is stored in EXITPGFT.
D EVFTEXPG pr extpgm(EXITPGFT)
D* Call an Event Features Exit Program
D #TRDS like(TRDS)
D @JSON 1024a
D @RTNC 2a
--------------------------------------------------------------------
later we use the above like this which calls the program and checks the return code.
IF EXITPGFT <> *blanks;
EVFTEXPG( #TRDS : @JSON : @RTNC );
i_extraData = iif( @RTNC='00' : @JSON : i_extraData );
leave;
ENDIF;


Sincerely,
David H. Lerman

On December 3, 2019 at 10:43 AM "Art Tostaine, Jr." <atostaine@xxxxxxxxx> wrote:


I'm calling a program like this:

D WHSAUD5R PR EXTPGM('WHSAUD5R')
D Trgbuffer LIKEDS(Trginfo)
D Trgbufferlen 10I 0
d wkProgram 10a
WHSAUD5R(trgBuffer:trgBufferLen:wkProgram);

I want to retrieve the program name WHSAUD5R from a code table instead.
How can I call whatever program I want here? I will always pass the same
parameters.

Thank you.

--
Art Tostaine
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com