Moin Moin,

ich möchte in ILE RPG ein IFS Verzeichnis auslesen. Dafür habe ich vor die OpenDir, ReadDir und CloseDir API's zu verwenden. Leider scheitet es schon beim mir beim OpenDir.

Egal ob ich /BIN, /bin, /BIN/ oder /bin/ öffnen möchte, bekomme ich immer den Fehlercode 3025 "No such path or directory" zurück.

"DSPLNK OBJ('/bin')" gibt mir ein Ergebnis zurück, der Pfad ist aus meiner Sicht OK.

Hat jemand einen Tipp für mich, was ich falsch mache?

Gruß und Danke Frank

Code:
D DIR             S               *   INZ(*NULL)               
D DIR_FILE        S               *                            
                                                               
D READDIR         PR              *   EXTPROC('readdir')       
D  DIRP                           *   VALUE                    
                                                               
D OPENDIR         PR              *   EXTPROC('opendir')       
D  DIRNAME                        *   CONST OPTIONS(*STRING)   
                                                               
D CLOSEDIR        PR            10I 0 EXTPROC('closedir')      
D  DIRHANDLE                      *   VALUE      

C                   EVAL      ERRYN = 'N'                  
C                   EVAL      PATH = '/BIN/'               
C                   EVAL      DIR = OPENDIR(%TRIM(PATH))   
                                                           
C                   IF        DIR <> *NULL                 

C                   ELSE                                   
C                   EVAL      P_ERRNO = SYS_ERRNO()        
C                   EVAL      msgtxt = %char(errno)        
C                   ENDIF