RE: C rename returns -1 but error text says no error exists

Thanks to everyone who chimed in to help on this. For the archives here is what I ended up with.

API prototype:
d Rename pr 10i 0 ExtProc('Qp0lRenameUnlink')
d OldFile * Value Options(*String :*Trim)
d NewFile * Value Options(*String :*Trim)

Fields used on the call and for error retrieval:
d OldFile s 128a
d NewFile s 128a
d RenameErrNbr s 10i 0 Based(RenameErrNbr@)
d RenameErrTxt s 128a Based(RenameErrTxt@)

Call the API and check for error:
OldFile = %TrimR(InPath) + %TrimR(FileName);
NewFile = %TrimR(InPath) + %TrimR(NewName);
RtnCode = Rename(Oldfile :NewFile);

If RtnCode < 0;
RenameErrNbr@ = GetErrNo();
RenameErrTxt@ = GetErrNoTxt(RenameErrNbr);
EndIf;

Reference service program QP0LLIB1 either directly on the compile or by using a binding directory. This is where the Qp0lRenameUnlink is exported from.

Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.