Bonjour.
Petit souci avec le compil qui indique que le else n'a pas de si.
Ou est l'erreur svp? je tourne depuis 2h, le tout est que je pige bien la syntaxe particuliere des conditions en cobol, l'ayant écrit 'classiquement' , erreur aussi.
Merci
C'est un if / else if / else
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 000073 ****************************** 000074 PROCEDURE DIVISION. 000075 OPEN INPUT MOUVEMEN 000076 OUTPUT MVERRO 000077 PERFORM UNTIL CR-MOUVTS = 10 000078 READ MOUVEMEN 000079 MOVE E-MVT TO W-MVT 000080 IF MATRICULE IS NOT NUMERIC 000081 WRITE E-MVERRO FROM MESSM1 000082 ELSE IF CODE-MVT > 4 000083 WRITE E-MVERRO FROM MESSC0 000084 END-IF 000085 END-IF 000086 ELSE 000087 WRITE E-MVERRO FROM TOTO 000088 END-PERFORM 000089 STOP RUN.
Partager