£G80 Gestione file IFS#

Ecco un esempio di utilizzo della £G80 *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