En V5R4, un RPG PROGR1 déclare un fichier :
Code : Tout sélectionner
FFICHIER1 IF E K Disk Rename(FICHIER1:FICHIER1F)
Code : Tout sélectionner
xml-into(e) %Handler([b]Proc_Hand [/b]: TotNotif) %xml(chemin : Opt) ;
...
PProc_Hand b
DProc_Hand pi 10i 0
D Total 10i 0
D Result likeds(ntfctn) dim(1) const
D NB 10u 0 value
...
Code : Tout sélectionner
C Callp PROGR2SP(G_NumPiece:G_NomFicRv:
C FgCoRejPre:G_Retour)
Code : Tout sélectionner
FFICHIER1 UF A E K Disk Rename(FICHIER1:FICHIER1F)
F Commit
L'ouverture/fermeture n'est elle pas implicite ?