Re: EIM calls in RPGLE not working as expected

Glad it worked out for you.


Jon Paris
Jon.Paris@xxxxxxxxxxxxxx

On Oct 23, 2025, at 6:23 PM, smith5646midrange@xxxxxxxxx wrote:

That was the problem. Thank you so much.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jon Paris
Sent: Thursday, October 23, 2025 11:24 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: EIM calls in RPGLE not working as expected

This is from a VERY quick look at the API, but shouldn't you have VALUE on the connectInfo parm to eimConnect ?


Jon Paris
Jon.Paris@xxxxxxxxxxxxxx

On Oct 22, 2025, at 9:33 PM, smith5646midrange@xxxxxxxxx wrote:

I need some help with some RPGLE EIM programming. The code is below.
When I run this the first dsply displays 0 and the RtvErr displays
Succcess. The second dsply displays 3021 but the RtvErr displays
Success. The docs say that rtcd should be 0 for success so that means
the eimConnect failed but the error message is Success. That doesn't
make sense to me. Also, when I run a C version of this program with
the same values (at least I think they have the same values),
eimConnect does return a 0. I am horrible at C so I was trying to
write it in RPGLE. I have not gone any further with my code to see if
the eimConnect really was successful and it just has a screwy rtcd.



Does anybody have any experience with EIM coding and would you be
willing to help me out?



ctl-opt

dftactgrp(*no);



dcl-pr eimCreateHandle int(10) extproc('eimCreateHandle');

handle likeds(EIMANDLE);

connectInfo pointer value;

eimrc like(eimrc);

end-pr;



dcl-pr eimConnect int(10) extproc('eimConnect');

handle likeds(EIMANDLE);

connectInfo likeds(eimci);

eimrc like(eimrc);

end-pr;



dcl-s rtcd int(10);

dcl-ds handle likeds(EIMANDLE);

dcl-s bindDn char(80) inz('cn=administrator');

dcl-s bindPw char(80) inz('myPassword');

dcl-c null x'00';

dcl-s errMsg@ pointer;

dcl-s errMsg char(256) based(errMsg@);

dcl-s rtnMsg char(52);



dcl-pr eimErr2String pointer extproc('eimErr2String');

eimrc like(eimrc);

end-pr;



/include qsysinc/qrpglesrc,eim



eimmpbc = %size(eimrc);



rtcd = eimCreateHandle(handle

:*null

:eimrc);

dsply rtcd; <== rtcd = 0

RtvErr(); <== RtvErr displays Success



bindDn = %trim(bindDn) + null;

bindPw = %trim(bindPw) + null;

eimtype = *zero;

eimotect00 = *zero;

eimotect = *zero;

eimbd00 = %addr(bindDn);

eimbp00 = %addr(bindPw);

rtcd = eimConnect(handle:eimci:eimrc);

dsply rtcd; <== rtcd = 3021

RtvErr(); <== RtvErr displays Success



*inlr = *on;




//////////////////////////////////////////////////////////////////////
///



dcl-proc RtvErr;



errmsg@ = eimErr2String(eimrc);

RtnMsg = %str(errMsg@:%size(errMsg));

dsply rtnmsg;



end-proc;

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.


--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.