Discussion :

[VitamineC]

Bonjour,

Probleme de debutant en cobol, je suppose...
Je dois lire un fichier contenant des records comme :
1 ABC
2 DEF
...
10 XYZ
7+3 places
J'ai donc créé une structure pour acceuillir le record
lors de la lecture.
01 RecF.
10 Num PIC S9(7).
10 Lbl PIC X(3).

Apres une lecture "Num" est rempli de caracteres (?)
DISPLAY Num affiche 247447Q

Merci d'avance pour vos explications

[Luc Orient]

Si vous écrivez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

10 Num PIC S9(7).

ça veut dire que votre champ devra avoir exactement 7 chiffres, qu'il sera signé et que le signe sera porté sur le dernier chiffre (OVERPUNCH en anglais).
Ce qui n'est pas très pratique à coder ...
A mon avis, il vaut mieux coder un champ sans signe, soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

10 Num PIC 9(7).

Par contre, il faut impérativement coder les 7 chiffres ...
Par exemple pour 1, il faut avoir:
0000001

[VitamineC]

Merci Luc !

Lorsque je fais :
(Num contient 0000001 apres la lecture)
ADD 1 TO Num
ca me donne 000000B.
Je m'attendais à 0000002 ?

[Luc Orient]

Merci Luc !

Lorsque je fais :
(Num contient 0000001 apres la lecture)
ADD 1 TO Num
ca me donne 000000B.
Je m'attendais à 0000002 ?

La norme n'est pas très claire, je trouve, sur ce qui est valide pour la représentation des données numériques d'usage DISPLAY signées ou non signées ...
Peut être qu'en présence de l'instruction ADD votre compilateur a généré une autre représentation que celle d'origine et que l'instruction DISPLAY ne la décode pas ...
Il vous faut alors passer par une variable d'affichage, soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
1 NUM-EDITE PIC -Z(6)9.
...
ADD 1 TO NUM.
MOVE NUM TO NUM-EDITE
DISPLAY 'NUM=' NUM-EDITE

Par ailleurs sur quel OS êtes vous ?

[VitamineC]

Merci encore ! Avec la variable d'affichage, ca passe.
Je suis sur Windows 2000.
(A bientot... rhmm)

[Luc Orient]

... Je suis sur Windows 2000 ...

Et quel compilateur avec Windows 2000 ?
Utilisation professionnelle ou de formation ?

[VitamineC]

Fujitsu NetCOBOL
"Formation"