ds format libre

[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]

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 !

[fmouragues]

Oups,
J'aurai du y penser.

Merci