Créer un fichier texte structuré

Cet exemple écrit les mois de l'année séparés par des retour chariot dans un fichier texte 'c:\FicTxtStruct.txt' lors de l'exécution d'un événement. Le résultat doit donner ce fichier : FicTxtStruct.txt

DECL_PGM

BOOL       RETOUR_B
NUM_BIN_4  RETOUR_NB4

ALPHA(1) RETOUR_CHARIOT

ALPHA(10)  MOIS(12)
NUM_E(2,0) M

NUM_BIN_4  WTAILLE
ALPHA(15)  WTITRE
ALPHA(15)  WTYPE_FILTRE
ALPHA(15)  WFILTRE
ALPHA(50)  WCHEMIN_FIC
ALPHA(10)  WALIAS
ALPHA(1)   WMODE_OUV

INIT_PGM

RETOUR_CHARIOT = &CONVERSION_CAR('0A')
MOIS(1) = 'Janvier'
MOIS(2) = 'Février'
MOIS(3) = 'Mars'
MOIS(4) = 'Avril'
MOIS(5) = 'Mai'
MOIS(6) = 'Juin'
MOIS(7) = 'Juillet'
MOIS(8) = 'Août'
MOIS(9) = 'Septembre'
MOIS(10) = 'Octobre'
MOIS(11) = 'Novembre'
MOIS(12) = 'Décembre'
EXECUTER ID_FEN0

EVENEMENT

CHARGER_DLL 'vatoolbx.dll'
* Choix du fichier texte
WCHEMIN_FIC = 'c:\FicTxtStruct.txt'
* Ouverture du fichier texte
WALIAS = 'FIC_TXT'
WMODE_OUV = 'w'
APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxOpenFile' WALIAS WCHEMIN_FIC WMODE_OUV RETOUR_NB4
* Ecriture dans le fichier
M = 1
TANT_QUE M <= 12
   SI M > 1
      APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxWriteFile' WALIAS RETOUR_CHARIOT 1 RETOUR_NB4
   FIN
   APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxWriteFile' WALIAS MOIS(M) 10 RETOUR_NB4
   M = M + 1
REFAIRE
* Fermeture du fichier texte
APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxCloseFile' WALIAS RETOUR_NB4
DECHARGER_DLL 'vatoolbx.dll'