Discussion :

[PeaCePiPe]

Bonjour,
Pour certain de mes cours je suis amené à faire un programme en COBOL. Cependant celui ci ne compile pas correctement et je n'arrive pas à trouver mes erreurs.

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
24
25
000100 * cobol part
000200 IDENTIFICATION DIVISION.
000300 PROGRAM-ID. ERRORS-EXAMPLE.
000400 DATA DIVISION.
000500 77 ITEM-DESC PIC X(20).
000600 77 ITEM-COST PIC 999V99.
000700 77 VAT PIC 999V99.
000800 77 TOTAL PIC 999V99.
000900 PROCEDURE-DIVISION.
001000 BILL-SEQ
001100 MOVE 0 TO TOTAL.
001200     INPUT ITEM-DESC
001300     INPUT ITEM-COST.
001400 INPUT-ITER.
001500     IF ITEM-COST = 0 GO TO INPUT-END
001600         ADD ITEM-COST TO TOTAL
001700        ACCEPT ITEM-DESC
001800        ACCEPT ITEM-COST
001900        GO TO INPUT-ITER.
002000 INPUT-END.
002100    MULTIPLY 0.15 BY TOTAL GIVING VAT
002200    ADD VAT TO TOTAL
002300    DISPLAY OUTPUT TOTAL
002400     STOP RUN.

Quelqu'un pourrait-il me venir en aide?
Merci d'avance !

PeaCePiPe

EDIT : Excusez les erreurs. Je viens d'éditer le titre du post, et voici les messages d'erreurs du compilateur :

Code :

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

1
2
3
desktop:~$ cobc -x H.CBO
H.CBO:5: Error: syntax error, unexpected WORD, expecting $end

[Hédhili Jaïdane]

Bonjour,
Pour certain de mes cours je suis amené à faire un programme en COBOL. Cependant celui ci ne compile pas correctement et je n'arrive pas à trouver mes erreurs.
Quelqu'un pourrait-il me venir en aide?
Merci d'avance !

PeaCePiPe

Bonjour.

On est là pour ça à condition que :
1° - Tu modifies le titre de ta discussion en nous indiquant le système d'exploitation et le compilateur comme dans cette discussion : Règle Tag [SystèmeExploitation-VersionCompilateur]
2° - Tu nous donnes les erreurs de compilation que tu as eues. 'C'est sûr que certains ont déjà vu les erreurs, mais moi j'ai perdu ma boule de cristal )

[Sumoner]

Bonjour,
Moi aussi en essayant de compiler du cobol, j'ai le même problème "Error: syntax error, unexpected WORD, expecting $end" alors que l'instruction est au milieu du code.

Merci de votre réponse.

[Hédhili Jaïdane]

Je ne connais pas ce compilateur.

- Commence par mettre le * en colonne 7 dans la 1ère ligne
- Je ne comprends pas les instructions INPUT dans les lignes 12 et 13, INPUT est un mot réservé Cobol pour spécifier la nature d'ouverture d'un fichier dans l'instruction OPEN.

Normalement tu dois avoir un listing de compilation, peut être redirigé vers un fichier.

[xfanx]

Bonjour,

j'ai aussi un peu de mal à lire ton programme; qu'en est il du colonage? col 7 8 12? c'est ton coupé/collé qui met le source ainsi dans ton post ou c'est "normal". si 2eme option, commence par mettre les bons colonages.

sinon, quelques étrangetés remarquées comme ça en passant:

- PROCEDURE-DIVISION. <<<< il n'y a pas de - entre PROCEDURE et DIVISION
- manques (à mon avis) quelques . dans ton source..par exmple sur ces lignes
001000 BILL-SEQ
001500 IF ITEM-COST = 0 GO TO INPUT-END (il n y a pas de END-IF sur ce cobol?)


moi non plus je ne connais pas ces instructions...
001200 INPUT ITEM-DESC
001300 INPUT ITEM-COST.


bon courage

[PeaCePiPe]

Bonjour,

Merci pour vos diverses réponses, j'ai enfin réussi à mettre en forme mon programme. Je poste le code, on sait jamais si celui ci peut aider quelqu'un.

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
24
25

IDENTIFICATION DIVISION.
PROGRAM-ID. ERRORS-EXAMPLE.
DATA DIVISION.
77 ITEM-DESC PIC X(20).
77 ITEM-COST PIC 999V99.
77 VAT PIC 999V99.
77 TOTAL PIC 999V99.
PROCEDURE DIVISION.
BILL-SEQ.
MOVE 0 TO TOTAL.
ACCEPT ITEM-DESC
ACCEPT ITEM-COST
INPUT-ITER.
IF ITEM-COST = 0 GO TO INPUT-END
ADD ITEM-COST TO TOTAL
ACCEPT ITEM-DESC
ACCEPT ITEM-COST
GO TO INPUT-ITER.
INPUT-END.
MULTIPLY 0.15 BY TOTAL GIVING VAT
ADD VAT TO TOTAL
DISPLAY TOTAL
STOP RUN.

[Hédhili Jaïdane]

Voilà plutôt comment ton programme devrait être indenté.

L'as tu compilé et exécuté ?

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
24
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. ERRORS-EXAMPLE.
000030 DATA DIVISION.
000040 77  ITEM-DESC PIC X(20).
000050 77  ITEM-COST PIC 999V99.
000060 77  VAT PIC 999V99.
000070 77  TOTAL PIC 999V99.
000080 PROCEDURE DIVISION.
000090 BILL-SEQ.
000110     MOVE 0 TO TOTAL.
000120     ACCEPT ITEM-DESC
000130     ACCEPT ITEM-COST
000140     INPUT-ITER.
000150     IF ITEM-COST = 0 GO TO INPUT-END
000160     ADD ITEM-COST TO TOTAL
000170     ACCEPT ITEM-DESC
000180     ACCEPT ITEM-COST
000190     GO TO INPUT-ITER.
000200 INPUT-END.
000210     MULTIPLY 0.15 BY TOTAL GIVING VAT
000220     ADD VAT TO TOTAL
000230     DISPLAY TOTAL
000000     STOP RUN.

Edit :
Je ne sais pas pourquoi tu as mis ton thread à "Résolu", alors qu'il reste des choses à faire
- compilation
- test exécution
- mise au point

Exemple :
- pourquoi les instructions ACCEPT aux lignes 120 et 130 ?
- DISPLAY de messages invitant l'opérateur à la saisie de ce qui va ^$etre l'objet de l'ACCEPT
- pourquoi pas un PERFORM au lieu de GO TO ?
- etc...