Voici une petite expérience à faire sur les zones étendues
Commençons par créer un fichier PF comme ceci
A R TESTAF
A NUMERO 5
A NOM 30
A PRENOM 30
Compiler le
on lui mettre des données
par exemple par SQL
INSERT INTO GDATA/TESTA VALUES(‘AAAAA’, ‘Carlsen’, ‘Magnus’)
INSERT INTO GDATA/TESTA VALUES(‘BBBBB’, ‘Vachier-Lagrave’, ‘Maxime’)
INSERT INTO GDATA/TESTA VALUES(‘CCCCC’, ‘Firouzja’, ‘Alireza’)
Si on fait un dsppfm on voit ceci
On décide de changer le nom et de le passer en numérique
On a donc le fichier décrit comme suit
A R TESTNF
A NUMERO 5S 0
A NOM 30
A PRENOM 30
Vous le compilez
vous decider de récupérer les données
par un CPYF
CPYF FROMFILE(TESTA)
TOFILE(TESTN)
MBROPT(REPLACE) FMTOPT(NOCHK)
vous faites dsppfm du fichier testN voici le résultat
Vous faites un select * from TESTN voici le résultat
C’est étonnant non ?
Si vous faites un controle de données vous n’avez pas d’erreur
SELECT * FROM TABLE(SYSTOOLS.VALIDATE_DATA_FILE(‘GDATA’, ‘TESTN’));
Vous allez me dire pourquoi ne pas faire le nouveau fichier comme une table, allons y ?
CREATE TABLE GDATA.TESTS (
NUMERO NUMERIC(5, 0) NOT NULL DEFAULT 0 ,
NOM CHAR(30) CCSID 1147 NOT NULL DEFAULT » ,
PRENOM CHAR(30) CCSID 1147 NOT NULL DEFAULT » )
RCDFMT TESTS
on récupère a nouveau des données
CPYF FROMFILE(TESTA)
TOFILE(TESTN)
MBROPT(REPLACE) FMTOPT(NOCHK)
si on fait un DSPPFM voici le résultat
si on fait un select * from TESTS
conclusion
Si vous copiez des données alpha dans du numérique étendue
en DDS
Les données sont fausses dans le fichier et interpretées à l’execution SQL
attention si vous lisez en RPG les données ne sont pas chargées et il n’y a pas d’erreur !
exemple :
fTESTN if e disk
read(e) TESTN ;
if %error ;
dsply ‘ici’ ;
else ;
dsply ‘la’ ;
dsply NOM ; ;
endif ;
*inlr = *on ;
En SQL
Le données sont converties au CPYF, mais elles ne sont bonnes, on passe de ici AAAAA à 11111
faites attention si vous récupérez des données numériques étendues vous pourriez avoir des surprises
Dernière remarque
Il n’y pas de probléme avec des données packées
en DDS, RPG ou SQL erreur à la lecture
en SQL, impossible de copier les données
