IFS-Command(s)

[malzusrex]

Hatte da mal ein kleine RPG gemacht

H Option( *SrcStmt ) DftActGrp( *No ) BndDir( 'QC2LE' )                    
h datfmt(*dmy.) timfmt(*hms:) datedit(*dmy.) decedit('0,') debug(*yes)     
 *                                                                         
 * CHK_IFS-  Testen ob die Datei im IFS schon da ist                       
 *                                                                         
                                                                           
                                                                           
d File            s               *                                        
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 open            Pr              *   ExtProc( '_C_IFS_fopen' )            
d                                 *    Value Options( *String )            
d                                 *    Value Options( *String )            
                                                                           
c     *Entry        PList                                                  
c                   Parm                    PM_File                        
c                   Parm                    PM_Return                      
c                                                                          
C                   Eval      File   = Open( %Trim( PM_File )              
C                                          : 'r'                )          
**                                                                         
C                   If        File   = *Null                               
C                   Eval      PM_Return   = False                          
C                   Else                                                   
C                   Eval      PM_Return   = True                           
c                   EndIf                                                  
c                                                                          
c                   Eval      *InLr = True 

Gruß Ronald