re:Journal Receiver Example. Help needed.

[Frank.Kolmann@xxxxxxxxxx]

Sorry. This code only works because I have passed one variable key request
to the API.  The DtaStr variable needs to be incremented by 20
bytes on each loop.
In this case because Rjkeys is 1 the loop is redundant.
Moral is always test test test the code before u use it.

Frank Kolmann

>// Now we are going to get all the receiver names
>  for j = 1 to RjKeys;
>ApiKeys        =   %subst(RJRN0100 : DtaStr :%len(ApiKeys));
>If  RjKey = 1;   // Process Receiver Info
>ExSR  GetRcvNam;
>EndIf;
>endfor;