Folgendes müsstest du im Programm einbinden:

Code:
D get_errno     pr     * ExtProc('__errno')
D ptrToErrno     s     *
D errno         s     10I 0 based(ptrToErrno)
D strerror         pr     * ExtProc('strerror')
D errno_val         10I 0 value


ptrToErrno = get_errno();
text = %char(errno);
text2 = %str(strerror(errno));
Wenn beim Opendir NULL zurück kommt, rufst du die get_errno() Prozedur auf und bekommst die Infos.