Blog Pro de Jean-Baptiste HEREN

Dans cet exemple, Nous créons un fichier text.txt dans le dossier /temp, et y écrivons deux chaines de caractères, en précisant pour chaque 'colonne', sa taille fixe.

!  Init FileName and File Number
let $File_name = '/temp/text.txt'
move 1 to  #FILE_NO

! Put Something to $values
let $value1 = 'foo1'
let $value2 = 'foo2'

! 1- Create the File and attach it to the specified File Number
OPEN $File_name as #FILE_NO for-writing record=20000:VARY
                                       status=#filestat                                                      
! 2- Write one line (aka record)
write #FILE_NO from             
     $Value1:16 ! fixed zize to 16 chars
     $Value2:4  ! fixed zize to 4 chars
    
! 3 - close File
Close #FILE_NO

Biensûr, ils est courant de placer une boucle de type BEGIN-SQL/END-SQL autour de l'étape 2, sachant que chaque appel à la commande WRITE crée une nouvelle ligne dans le fichier.