Discussion :

[beegees]

Bonjour tout le monde,

J'ai un bout de code (ou plutôt le commentaire) que je ne comprends pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
       01 CLIENT.
          02 FILLER PIC X(80) VALUE  "                          CLIENT".
          02 FILLER PIC X(80) VALUE ALL "-".
          02 FILLER PIC X(80).
          02 FILLER PIC X(80) VALUE "1 - Numero Client :".
          02 NUM-CLIENT.
             03 FILLER PIC X(8)  value "CODE  : ".
             03 CODE-STATISTIQUE PIC X(2).
             03 FILLER PIC X(70).
             03 FILLER PIC X(8) VALUE "NUM   : ".
             03 NUM-ORDRE PIC 9(4).
      *   148 : je termine ma ligne et j'en passe une en plus de 80
      *   colonnes --> 80 - 12 + 80 = 148
          02 FILLER PIC X(148).

C'est ceci que je ne comprends pas :

* 148 : je termine ma ligne et j'en passe une en plus de 80
* colonnes --> 80 - 12 + 80 = 148

Merci d'avance pour votre aide.

beegees

[el_slapper]

Bonjour tout le monde,

J'ai un bout de code (ou plutôt le commentaire) que je ne comprends pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
       01 CLIENT.
          02 FILLER PIC X(80) VALUE  "                          CLIENT".
          02 FILLER PIC X(80) VALUE ALL "-".
          02 FILLER PIC X(80).
          02 FILLER PIC X(80) VALUE "1 - Numero Client :".
          02 NUM-CLIENT.
             03 FILLER PIC X(8)  value "CODE  : ".
             03 CODE-STATISTIQUE PIC X(2).
             03 FILLER PIC X(70).
             03 FILLER PIC X(8) VALUE "NUM   : ".
             03 NUM-ORDRE PIC 9(4).
      *   148 : je termine ma ligne et j'en passe une en plus de 80
      *   colonnes --> 80 - 12 + 80 = 148
          02 FILLER PIC X(148).

C'est ceci que je ne comprends pas :

* 148 : je termine ma ligne et j'en passe une en plus de 80
* colonnes --> 80 - 12 + 80 = 148

Merci d'avance pour votre aide.

beegees

ta zone NUM-CLIENT a une longueur totale cumulée de 92. Soit 80+12

ton programme étant semble-t-il en affichage par 80 caractères par lignes, alors pour terminer la ligne, il faut rajouter 80-12, soit 68.

Si tu veux sauter une ligne, tu rajoutes 80.

80+68 = 168.


J'ajouterais que le nommage des zones est assez limite. On dirait du contenu fonctionnel, alors qu ça n'est de l'affichage. Perso, j'ajouterais AFF- devant chaque nom de données(mais ça, ça dépend surtout des normes locales).

Et que pour être tout à fait propre, moi, j'aurais ajouté un filler de 68 - pour finir la ligne - puis un de 80 - une ligne vide.

ce que je te propose ne marcha pas mieux en soi, mais c'est plus facile à maintenir.

[beegees]

Merci beaucoup pour ta réponse qui m'est d'une grande utilité.

Beegees

[Hédhili Jaïdane]

Si tu travailles en mode affichage de 80c, utilise toujours des structures à afficher de longueur totale multiple de 80 pour que l'affichage se fasse bien.

[beegees]

Si tu travailles en mode affichage de 80c, utilise toujours des structures à afficher de longueur totale multiple de 80 pour que l'affichage se fasse bien.

ok merci pour ce conseil que je suivrai.

Bon Week-End à toi.

beegees

[valmi32]

Je ferais ainsi :
02 filler pic x(80) value
en ligne suivante en colonne 12 le " et en colonne 72 un " d' ou 70 caract.
puis
en ligne suivante:
tiret en col 7 , " en col 12 et" en col 22 puis .

ton libellé fait bien 80 colonnes.

au revoir

Valmi32

[beegees]

Bonjour Valmi32,

Merci pour ta réponse.

J'ai potassé ce problème le WE dernier et j'ai maintenant compris pourquoi le prof avait fait comme cela.

Merci pour tout et au revoir.

beegees