ds format libre

RPG (3 et 4, free), CL, SQL, etc...
Répondre
fmouragues
Messages : 5
Enregistré le : ven. 19 déc. 2014, 10:57:45

ds format libre

Message par fmouragues »

Bonjour,

J'ai voulu remplacer cette DS
d DS
d codcsa 1 5
d codcss 1 5p 0

par

dcl-ds *N;
codcsa char(5) pos(1);
codcss packed(5) pos(1);
end-ds;

Et, j'ai une erreur de donnée décimale avec la déclaration en format libre, erreur que je n'ai pas avec la déclaration en carte D (les données de test sont les mêmes).

Savez vous pourquoi ?

Merci d'avance.

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

(sujet non précisé)

Message par cmasse »

Dans votre DS en format fixe, vous dites de 1 à 5 (soit 5 octets).

dans 5 octets en packé on met, 9 chiffres, pas 5 !
Christian Massé (Volubis.fr)

fmouragues
Messages : 5
Enregistré le : ven. 19 déc. 2014, 10:57:45

(sujet non précisé)

Message par fmouragues »

:oops:
Oups,
J'aurai du y penser.

Merci

Répondre