IFS Datei im RPG auslesen

[harkne]

Hallo zusammen,

kann mir jemand sagen was ich hier falsch mache.
in PiDirFile steht das richtige Verzeichnis und Dateiname aber er bekommt sofort 100 im SQLCOD

exec sql declare crs1sql cursor for                                 
            select cast (line as char(1000)) as txtline                     
            from table(QSYS2.IFS_READ(:PiDirFile));exec sql open crs1sql;                                                                                            
dow *on;                                                                                                              
  
  exec sql fetch next from crs1sql into :wLine;            
  
  if SqlCode < *zero or SqlCod = 100;                         
    leave;                                                
  endif;

 ...

enddo; 

führe ich das SQL direkt aus dann funktioniert es

select cast(line as char(1000)) as txtline from
table(QSYS2.IFS_READ('/spareparts/sql/xxx_poi103c1.sql'
))