Ecrire un fichier plat en sqr
Posted on Tuesday 19 February 2008, 20:42 - Peoplesoft - Permalink Tweet
- Article
- |
- Comments(0)
- |
- Attachments(0)
Voici les trois étapes nécessaires pour l'écriture d'un fichier plat en sqr:
- Ouverture : Instruction OPEN
- Ecriture: Instruction WRITE
- Fermeture : Instruction CLOSE
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.