Probleme en Cobol
Résolu
Xidy
Messages postés
87
Statut
Membre
-
cchristian Messages postés 928 Statut Membre -
cchristian Messages postés 928 Statut Membre -
Bonjour a tous,
et merci de lire un message pour Cobol mdr.
Bon je vais essayer de pas taper tout le code car je pense savoir où se situe le problème environs. En fait il me met un unreconized verb sur un display (beuh?). Et je ne vois pas ce que j ai planté^^
*
aff2.
ACCEPT getch.
display spaces upon crt.
move 0101 to affichage.
move test-titre to titre-fi.
move 1 to i.
OPEN INPUT films.
START films
key is >= titre-fi
invalid key
display "Erreur" at 0405
not invalid key
PERFORM UNTIL FILE-STATUS = 1 or i=2
READ films NEXT
move titre-fi to titre
move real-fi to rea
display affilms1 to affichage
add 2 to lig
move acteurs-fi(1) to acteur1
move acteurs-fi(2) to acteur2
move acteurs-fi(3) to acteur3
move dt-fi to annee
display affilms2 to affichage
END-PERFORM
END-START.
CLOSE films.
*
Voila si quelqu'un trouve ce serrait vraiment sympa^^
et merci de lire un message pour Cobol mdr.
Bon je vais essayer de pas taper tout le code car je pense savoir où se situe le problème environs. En fait il me met un unreconized verb sur un display (beuh?). Et je ne vois pas ce que j ai planté^^
*
aff2.
ACCEPT getch.
display spaces upon crt.
move 0101 to affichage.
move test-titre to titre-fi.
move 1 to i.
OPEN INPUT films.
START films
key is >= titre-fi
invalid key
display "Erreur" at 0405
not invalid key
PERFORM UNTIL FILE-STATUS = 1 or i=2
READ films NEXT
move titre-fi to titre
move real-fi to rea
display affilms1 to affichage
add 2 to lig
move acteurs-fi(1) to acteur1
move acteurs-fi(2) to acteur2
move acteurs-fi(3) to acteur3
move dt-fi to annee
display affilms2 to affichage
END-PERFORM
END-START.
CLOSE films.
*
Voila si quelqu'un trouve ce serrait vraiment sympa^^
4 réponses
Bonjour,
Que veux-tu faire exactement avec cet ordre ? Je ne connais pas cette syntaxe :
display affilms1 to affichage
Que veux-tu faire exactement avec cet ordre ? Je ne connais pas cette syntaxe :
display affilms1 to affichage
Désolé j ai peut etre été un peu trop vague c'est vrais, en fait affichage c'est:
01 affichage.
02 lig pic 99 value 1.
02 colonne pic 99 value 1.
Ce qui me permet de positionner ce que je veux a l ecran. (ça sa marche je fais ça tout le temps).
et ce que je veux faire ici c'est simplement faire une recherche dans un fichier indexé sur une clé qui est le titre d'un film.
FD films.
01 enreg-films.
02 titre-fi pic x(20).
02 real-fi pic x(10).
02 acteurs-fi occurs 3 pic x(10).
02 dt-fi pic 9(4).
Et voila l enregistrement dans la file section si ça peut aider. Merci!
01 affichage.
02 lig pic 99 value 1.
02 colonne pic 99 value 1.
Ce qui me permet de positionner ce que je veux a l ecran. (ça sa marche je fais ça tout le temps).
et ce que je veux faire ici c'est simplement faire une recherche dans un fichier indexé sur une clé qui est le titre d'un film.
FD films.
01 enreg-films.
02 titre-fi pic x(20).
02 real-fi pic x(10).
02 acteurs-fi occurs 3 pic x(10).
02 dt-fi pic 9(4).
Et voila l enregistrement dans la file section si ça peut aider. Merci!
