EIM calls in RPGLE not working as expected

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;