!! £G80 Gestione file IFS

Ecco un esempio di utilizzo della £G80
%%prettify 
{{{
 *Prerequisiti
D/COPY QILEGEN,£G80DS
C/COPY QILEGEN,£G80
 *Definire path completa del file
C  		    EVAL      $PATH='\smeup\prove\prova.txt'
 *...Controllare l'esistenza di un file
C                   EVAL      £G80FU = ''               
C                   EVAL      £G80ME = ''          
C                   EVAL      £G80PH = $PATH            
C                   EVAL      £G80CP = '*DFT'           
C                   EXSR      £G80                      
 *...Se c'e' lo cancella
C                   IF        £G8035=*OFF                
C                   EVAL      £G80FU = 'DELETE'              
C                   EVAL      £G80ME = '*STMF'               
C                   EVAL      £G80PH = $PATH                 
C                   EVAL      £G80CP = '*DFT'                
C                   EXSR      £G80        
 *...Scrivo il file leggendo da una schiera
C     1             DO        10            K  
C                   EVAL      £G80FU='WRITE'                           
C                   EVAL      £G80ME='*STMF'                           
C                   EVAL      £G80PH=$PATH
C                   EVAL      £G80CP='*DFT'                            
C                   EVAL      £G80ST=TXT(K)                               
C                   EXSR      £G80         
C                   ENDDO                           
 *...Chiusura del file alla fine della scrittura
C                   EVAL      £G80FU='CLOSE'                                  
C                   EVAL      £G80ME='*STMF'                                  
C                   EVAL      £G80PH=$PATH         
C                   EVAL      £G80CP='*DFT'                                   
C                   EVAL      £G80ST=''                                       
C                   EXSR      £G80                                            
C                   ENDIF              
}}}
/%