Discussion :

[Darkzinus]

Il te faut une variable alphanumérique (X(n)) dans laquelle tu "MOVE" ta zone éditée. Mais ce que tu n'as fait ne sert à rien, c'est la zone qui correspond à ton fichier global dans laquelle tu vois faire ta concaténation de champs séparés par les ";".

[ghazalinadou]

J'ai testé de cette façon mais toujour error :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
   ALIM-WZ18 SECTION.
                 MOVE Z-ZYSR-NOMBRE TO IZYSR.
                 MOVE ZERO TO H-ZYSR-MONTAN.

              IF Z-ZYSR-NOMBRE > ZERO
                 PERFORM VARYING IZYSR FROM Z-ZYSR-NOMBRE BY -1 UNTIL
                                 IZYSR = ZERO
                    IF Z-ZYSR-CODRUB(IZYSR) = 'THF'
                       MOVE Z-ZYSR-MONTAN(IZYSR) TO
                            H-ZYSR-MONTAN
                       MOVE ZERO TO IZYSR
                    END-IF
                 END-PERFORM
                   IF H-ZYSR-MONTAN < 0
                       MOVE 0 TO W-Z18
                   END-IF
                  IF H-ZYSR-MONTAN >= 0
                       MOVE H-ZYSR-MONTAN TO W-Z18
                  END-IF
                  INSPECT  W-Z18 TALLYING
                  UNSTRING  W-Z18 (leading-spaces + 1:); DELIMITED SIZE
              END-IF.

dont j'ai déclaré :

Code :

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

1
2
3
4
5
 * Taux horaire formation
            05  W-Z18                  PIC -(12),99.
            05  FILLER                 PIC X(001) VALUE ';'.
            05  leading-spaces         COMP PIC 9(4) VALUE 0.

erreur :

Code :

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

1
2
3
4
5
6
7
8
9
 Compiling /appli/devs/txt/tmp/FDEDISAM.cbl
                  UNSTRING  W-Z18 (leading-spaces + 1:); DELIMITED SIZE
*  12-S*******************                                             (   0)**
**    Operand UNSTRING is not declared
*  14-S****************************************************************( 526)**
**    Invalid operand
* Total Messages:     2
* Unrecoverable :     0                    Severe  :     2

[Darkzinus]

Je te parle de l'instruction string et tu utilises l'instruction unstring dans ton programme ...

[ghazalinadou]

j'ai utilisé STRING de meme façon au lieu de mettre USTRING j'ai mets STRING et j'ai eu la meme erreur

[Hédhili Jaïdane]

j'ai utilisé STRING de meme façon au lieu de mettre USTRING j'ai mets STRING et j'ai eu la meme erreur

Bonjour.
Ton erreur sur le STRING (UNSTRING) vient du fait que l'instruction précédente INSPECT n'est pas terminée, son TALLING s'attend à une variable et il trouve UNSTRING.

[ghazalinadou]

Donc ce cas comment je dois faire pour mon instruction finis ?

[Hédhili Jaïdane]

Bein, tu regardes dans une doc comment s'écrit correctement l'instruction INSPECT avec la clause TALLYING

[ghazalinadou]

lol , jamais utiliser dans le programme INSPECT

[Darkzinus]

Savoir se plonger dans la doc IBM pour apprendre les instructions te sera utile plus tard, voire indispensable. Donc c'est l'occasion, d'autant plus si tu es étudiant.