Informationen

IFS$STAT (RPGLE)



  X * *PSSR BEGSR IFS$STAT 2  
  X  
  X * *ENTRY PLIST IFS$STAT 6  
  X  
H  
H *COPYRIGHT JÜRGEN REULE 2017-2023
H  
H BNDDIR('QC2LE':'BAR$')
H DATFMT(*ISO) TIMFMT(*ISO)
H DFTACTGRP(*NO) ACTGRP('QILE')
H COPYRIGHT('COPYRIGHT JÜRGEN REULE 2017-2023')
H  
D FILENAME     S   5000 A     VARYING
D FILENAMEDS     DS           INZ
D FILENAMEDS1         5000 A     INZ
D           1 A     INZ
D                    
D DIV     S           INZ LIKE(MODE)
D MVR     S           INZ LIKE(MODE)
D MYSTAT     S           LIKE(STATBUFDS)
D                    
D NOTFOUND     S   1 N      
D TYPE     S   2 S 0    
D SIZE     S   10 S 0    
D TIME     S   10 S 0    
D                    
D /COPY SOURCE,IFS$PROC
C          
C       SETON         — 72 —  
C *     --------------------------------------
C *     Datei-Informationen ermitteln
C *     --------------------------------------
C       EVAL FILENAMEDS =  %TRIM(FILENAME)+NULL
C       IF STAT ( %ADDR(FILENAMEDS):
C         %ADDR(MYSTAT)) >= 0
C       EVAL STATBUF =     %ADDR(MYSTAT)
C          
C *     --------------------------------------
C *     Datei-Informationen ermitteln
C *     --------------------------------------
C     MODE DIV 131072 DIV            
C       MVR   MVR            
C     MVR DIV 4096 DIV            
C     *ZERO ADD DIV TYPE            
C     *ZERO ADD SIZE1 SIZE            
C     *ZERO ADD MTIME TIME            
C       SETOFF         — 72 —  
C       ENDIF                
C       SETON         — LR —  
C          
C     *PSSR BEGSR                
C       ENDSR '*CANCL'              
C          
C     *ENTRY PLIST                
C       PARM   FILENAME            
C       PARM *IN72 NOTFOUND            
C       PARM   TYPE            
C       PARM   SIZE            
C       PARM   TIME            

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