Permet de convertir un fichier texte issu de la commande DBFXFER, au format UTF-8.
Par défaut, le mode de transfert des données est l'Unicode avec Launcher (UTF-16LE).
Syntaxe
|
CHGVAR |
VAR(&CMD) VALUE('CSVTOXML') |
|
CHGVAR |
VAR(&PARM1) VALUE(' CSVIn="Chemin du fichier texte en entrée" ;CSVUTF8="Chemin du fichier texte UTF-8" [;CodeIn="Encodage du fichier texte en entrée"]') |
|
CHGVAR |
VAR(&PARM2) VALUE(' ') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Paramètres
|
Paramètres |
|
|
Parm1 |
CSVIn : Contient le chemin complet du fichier texte issu de la commande DBFXFER.
CSVUTF8 : Contient le chemin complet du fichier texte converti en UTF-8.
CodeIn : Optionnel. Peut prendre les valeurs "UTF-16LE" ou "WINDOWS-1252". Si ce paramètre est omis, sa valeur par défaut est : "UTF-16LE". En effet, le mode de transfert des données par défaut, est l'Unicode ("UTF-16LE") avec Launcher. |
|
Parm2 |
|
Exemple
PGM
DCL VAR(&SVRADDR) TYPE(*CHAR) LEN(30) VALUE(*DEV)
DCL VAR(&HANDLE) TYPE(*CHAR) LEN(50)
DCL VAR(&CCSID) TYPE(*CHAR) LEN(10)
DCL VAR(&CMD) TYPE(*CHAR) LEN(10)
DCL VAR(&OPT) TYPE(*CHAR) LEN(1)
DCL VAR(&PARM1) TYPE(*CHAR) LEN(512)
DCL VAR(&PARM2) TYPE(*CHAR) LEN(1024)
DCL VAR(&RESULT) TYPE(*CHAR) LEN(512)
CHGVAR VAR(&HANDLE) VALUE('*ONLY')
CHGVAR VAR(&CCSID) VALUE('*JOB')
CALL PGM(LNCOPEN) PARM(&HANDLE &SVRADDR &CCSID)
CHGVAR VAR(&CMD) VALUE('CSVUTF8')
CHGVAR VAR(&PARM1) +
VALUE('CSVIn="C:\A\csv.txt";CSVUTF8="C:\A\csv_utf8+
.txt"')
CHGVAR VAR(&PARM2) VALUE(' ')
CALL PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)
LNCCLOSE
ENDPGM