Bonsoir, voici une petite logique simplifiée de ce que j'aimerais faire dans un programmes cobol:
Donc, dans le PROCEDURE DIVISION j'aurais (en simplifié):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 indice <- 1 x <- 0 TANQUE non EOF fichier TANQUE compteur<cptmax SI sexe(du fichier)=tableau(indice) x <- x+1 indice <- indice+1 FINSI FINTANQUE FINTANQUE
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Principal. PERFORM Lecture. PERFORM Traitement UNTIL EOF=1. PERFORM Fin. Lecture. //ce n'est pas grave, on fait ici une première lecture. Traitement. //ici je ne voi vraiment pas comment m'y prendre. On doit donc pour chaque element du fichier aller verifier si SEXE est égale a un élément du tableau. Donc je dois comparer chaque élément du fichier a TOUS les elements du tableau.
Merci de m'aider
Partager