Existenzprüfung einer Datei im IFS

[malzusrex]

Und noch eine Variante ;-)

d File            s               *                                  
d rc              s             10I 0                                
d F_OK            c                   const(0)                       
d                                                                    
d PM_File         s            255                                   
d PM_Return       s               n                                  
d                                                                    
d True            c                   *On                            
d False           c                   *Off                           
d                                                                    
 *-- IFS stream file functions: -----------------------------------**
d access          Pr            10I 0 ExtProc( 'access' )            
d  dPath                          *   value  Options( *String )      
d  amode                        10i 0 value                          
                                                                     
c     *Entry        PList                                            
c                   Parm                    PM_File                  
c                   Parm                    PM_Return                
c                                                                    
C                   If        access( %Trim( PM_File ) : F_OK) <> 0  
C                   Eval      PM_Return   = False                    
C                   Else                                             
C                   Eval      PM_Return   = True                     
c                   EndIf                                            
c                                                                    
c                   Eval      *InLr = True