Exemple :

Cet exemple télécharge un fichier *SAVF vers un répertoire local :

(depuis MY_LIB/MYSAVF vers c:\temp\mysavf.savf)

nHdl, cnt est entier

buf est Buffer

nFicLocal est entier

nHdl = ASfOuvre("/QSYS.LIB/MY_LIB.LIB/MYSAVF.FILE", ASfoBinaire)

IF nHdl = -1 ALORS

Erreur(ErreurInfo())

RETOUR

END

nFicLocal = fOuvre("c:\temp\mysavf.savf",foEcriture+foCréation)

IF nFicLocal = -1 ALORS

Erreur(ErreurInfo())

RETOUR

END

cnt = ASfLit(nHdl, 65000, buf)

TANTQUE cnt<>0

fEcrit(nFicLocal, buf, cnt)

cnt = ASfLit(nHdl, 65000, buf)

FIN

fFerme(nFicLocal)

ASfFerme(nHdl)