Vorhanden?

IFS$EXIST (RPGLE)



  X * *PSSR BEGSR IFS$EXIST 2  
  X  
  X * *ENTRY PLIST IFS$EXIST 3  
  X  
H  
H *COPYRIGHT JÜRGEN REULE 2010-2023
H  
H BNDDIR('QC2LE':'BAR$')
H DATFMT(*ISO) TIMFMT(*ISO)
H DFTACTGRP(*NO) ACTGRP('QILE')
H COPYRIGHT('COPYRIGHT JÜRGEN REULE 2010-2023')
H  
D FILENAME     S   5000 A     VARYING
D FILENAMEDS     DS           INZ
D FILENAMEDS1         5000 A     INZ
D           1 A     INZ
D                    
D RC     S   10 I 0   INZ
D                    
D NOTFOUND     S   1 N      
D                    
D /COPY SOURCE,IFS$PROC
C          
C *     --------------------------------------
C *     Datei vorhanden?
C *     --------------------------------------
C       EVAL FILENAMEDS =  %TRIM(FILENAME)+NULL
C       EVAL RC = ACCESS ( %ADDR(FILENAMEDS):FOK)
C     RC COMP *ZERO       77  
C       SETON         LR  
C          
C     *PSSR BEGSR                
C       ENDSR '*CANCL'              
C          
C     *ENTRY PLIST                
C       PARM   FILENAME            
C       PARM *IN77 NOTFOUND            

54 ms | Kontakt | Information | Aibo-Bar © 2005-2024