FORUM MP | Cobol : Aide sur fichier indée

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Aide sur fichier indée
	Forum : COBOL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ COBOL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

FORUM COBOL
	Page précedente	Page suivante

david2006
Nouveau membre

Inscrit : 08/01/2007
Messages : 7

#121011 Posté le 16/01/07 à 10:14

Bonjour,

Erreur générer :

line 315: Warning: Imperative statement required

L’objectif :
Première temps dit que l’utilisateur appui sur F4 (écran saisie (nom, prénom, sexe)), ensuite il aura deux possibilité soit de quitter l’application on appuyant sur F6 ou de continue dans ces condition appuie sur F8 pour comparerez la valeur saisie par l’utilisateur et celle qu’il existe dans le fichier si la valeur saisie existe dans le fichier, alors je sort de boucle si non c’est dire qu’il n’existe pas dans ces condition je la rajoute dans le fichier.

Fichier (Ficmf.txt) la valeur saisie par l’utilisateur à l’écran
(Je sais pas d’où ça peut venir et portant je positionne correctement mon curseur mais je pense c’est mon algo TRT-F4.)

Merci pour ton aide.

Voici mon code source :

IDENTIFICATION DIVISION.
PROGRAM-ID. exo5.
*************************************************************
***
**** EX05 ***
**** ***
**************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. UNIX.
OBJECT-COMPUTER. UNIX.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
COPY "ftabfic.sel".
SELECT FICMF ASSIGN TO "ficmf.txt"
* ORGANIZATION SEQUENTIAL
* ACCESS SEQUENTIAL
ORGANIZATION INDEXED
ACCESS DYNAMIC
RECORD KEY T-CLE
FILE STATUS WSTAT-FICMF.

***********************************************************
DATA DIVISION.
FILE SECTION.
COPY "ftabfic.fd".

FD FICMF LABEL RECORD STANDARD
DATA RECORD ENREG-FICMF.

01 ENREG-FICMF.
03 T-CLE.
05 T-NOM PIC X(30).
IDENTIFICATION DIVISION.
PROGRAM-ID. saisie.
*************************************************************
***
**** saisie ***
**** ***
**************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. UNIX.
OBJECT-COMPUTER. UNIX.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
COPY "ftabfic.sel".
SELECT FICMF ASSIGN TO "ficmf.txt"
* ORGANIZATION SEQUENTIAL
* ACCESS SEQUENTIAL
ORGANIZATION INDEXED
ACCESS DYNAMIC
RECORD KEY T-CLE
FILE STATUS WSTAT-FICMF.

***********************************************************
DATA DIVISION.
FILE SECTION.
COPY "ftabfic.fd".

FD FICMF LABEL RECORD STANDARD
DATA RECORD ENREG-FICMF.

01 ENREG-FICMF.
03 T-CLE.
05 T-NOM PIC X(30).
05 T-PRENOM PIC X(30).
05 T-SEX PIC X.

***********************************************************
WORKING-STORAGE SECTION.

* compters divers
77 WOK PIC X.
77 WUOK PIC X.
77 TOUCHE-FON PIC X.
77 F-6 PIC X.
77 F-2 PIC X.
77 F-3 PIC X.
77 NOM-PRODUIT PIC X(13).
77 WW-SAUV3 PIC X(10).
77 W-WINDMAG PIC X(10).
77 SEXCHOISI PIC X.
77 W-I PIC 99.
77 N-NBM PIC 99.
77 N-NBF PIC 99.
77 SEX-LU PIC X.
77 TOTALE PIC 999.
77 L-J PIC 99.
77 L-I PIC 99.
77 CPT PIC 99.
77 NOM-SAISIE PIC X(30).
77 PRENOM-SAISIE PIC X(30).
77 SEX-SAISIE PIC X.
77 NOM PIC X(30).
77 PRENOM PIC X(30).
77 SEX PIC X.
77 W-FF PIC 9.

* gestion fin fichier FICMF.
01 WFF-FICMF-NOK PIC 9.
88 WFF-FICMF-OK VALUE 1.

01 FF-FICMF-NOK PIC 9.
88 FF-FICMF-OK VALUE 1.

01 F6-NOK PIC 9.
88 F6-OK VALUE 1.

01 SAISIE-CORRECTE-NOK PIC 9.
88 SAISIE-CORRECTE-OK VALUE 1.

01 FINTRT-NOK PIC 9.
88 FINTRT-OK VALUE 1.

01 W-FF-KO PIC 9.
88 W-FF-OK VALUE 1.

* zone code retour statut
77 WSTAT-FICMF PIC X(2).
*************************************************************
COPY "w01tab1.wss".
COPY "nomfic.wss".
************************************************************
PROCEDURE DIVISION USING ZON-LINK.
DECLARATIVES.
COPY "ftabfic.dec".
DECFICMF SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON FICMF.
DECFICMF-10.
IF WSTAT = "00" OR
WSTAT = "02" OR
WSTAT = "05" OR
WSTAT = "10" OR
WSTAT = "22" OR
WSTAT = "23" OR
WSTAT = "35"
GO TO F-DECFICMF-10.
*
MOVE "ficmf.isa" TO WFICH.
MOVE NOMFIC11 TO WFICHERR.
MOVE 1 TO WTYPERR.
CALL "geserr.cob" USING WSERR.
IF WSTAT = "99"
MOVE 2 TO WTYPERR
GO TO F-DECFICMF-10.
*
STOP RUN.
*
F-DECFICMF-10.
EXIT.

END DECLARATIVES.
**********************************************************

DEBUT SECTION.
DEBPROG.
*en cas d'erreur d'execution de programme.
MOVE "exercice" TO WPROG.
MOVE ZON-LINK TO WZONLINK.
COPY "inifor.prg".
COPY "chgtab.prg".

***********************************************************

INITPROG.
*ouverture de fichier
* OPEN INPUT FICMF

PERFORM AFFDEB.
MOVE 0 TO W-I
FINTRT-NOK.
*trait1.
PERFORM UNTIL FINTRT-OK
DISPLAY SPACES LINE 24 POS 1 SIZE 80
DISPLAY "F1=masculin" LINE 24 POSITION 05 REVERSE
DISPLAY "F2=feminin" LINE 24 POSITION 18 REVERSE
DISPLAY "F3=nbmf" LINE 24 POSITION 30 REVERSE
DISPLAY "F4=compt-rondu" LINE 24 POSITION 45 REVERSE
DISPLAY "F6=quiter" LINE 24 POSITION 60 REVERSE

MOVE 0 TO W-I
MOVE SPACE TO WCAR
MOVE SPACE TO WESC
MOVE SPACE TO WOK
ACCEPT WOK LINE 24 POSITION 79
PROMPT ECHO UPDATE
ON EXCEPTION WESC
MOVE WESC TO WCAR
END-ACCEPT

EVALUATE RCAR
WHEN CARTTT (02)
OPEN INPUT FICMF
DISPLAY "LE NOMBRE TOTAL MASCULIN"
LINE 4 POSITION 2 REVERSE
MOVE 'M' TO SEXCHOISI
PERFORM TRT-F1 THRU F-TRT-F1
* MOVE 0 TO FINTRT-NOK
MOVE 0 TO WFF-FICMF-NOK
CLOSE FICMF
WHEN CARTTT (03)
OPEN INPUT FICMF
DISPLAY "LE NOMBRE TOTAL FEMININ"
LINE 4 POSITION 2 REVERSE
MOVE 'F' TO SEXCHOISI
PERFORM TRT-F1 THRU F-TRT-F1
MOVE 0 TO WFF-FICMF-NOK
CLOSE FICMF
WHEN CARTTT (04)

OPEN INPUT FICMF
DISPLAY "LE NOMBRE TOTAL DES PERSONNES:"
LINE 4 POSITION 4 REVERSE
PERFORM TRT-F3 THRU F-TRT-F3
MOVE 0 TO FF-FICMF-NOK
CLOSE FICMF
WHEN CARTTT (05)
OPEN INPUT FICMF
PERFORM TRT-F4 THRU F-TRT-F4
CLOSE FICMF
WHEN CARTTT (07)
SET FINTRT-OK TO TRUE
END-EVALUATE
END-PERFORM.
EXIT PROGRAM.
************************************************************
*traitement toutche fonction F1(afficher la liste masc et femin)
*************************************************************
TRT-F1.
PERFORM UNTIL WFF-FICMF-OK

READ FICMF NEXT AT END
SET WFF-FICMF-OK TO TRUE
END-READ

IF T-SEX = SEXCHOISI

DISPLAY ENREG-FICMF
ADD 1 TO TOTALE
END-IF

END-PERFORM

MOVE 1 TO WFF-FICMF-NOK.
F-TRT-F1.
EXIT.
***************************************************
*****************traitement de fonction F3*********
**************afficher nbm ou nbf******************

TRT-F3.
MOVE 0 TO N-NBM
MOVE 0 TO N-NBF
PERFORM UNTIL FF-FICMF-OK OR FINTRT-OK

READ FICMF NEXT AT END
SET FF-FICMF-OK TO TRUE
END-READ

IF T-SEX = 'M'
ADD 1 TO N-NBM
ELSE
ADD 1 TO N-NBF
END-IF
END-PERFORM.
DISPLAY " masculin:"
N-NBM LINE 6 POS 9

DISPLAY " feminin:"
N-NBF LINE 8 POS 9.
MOVE 1 TO FF-FICMF-NOK.
F-TRT-F3.
EXIT.
****************************************************
*****saisir le nom,prenom et le sexe ensuite comparer
*****les enreg-lu et enreg-saisie
****************************************************
TRT-F4.
DISPLAY NOM LINE 6 POS 2
DISPLAY PRENOM LINE 6 POS 2
DISPLAY SEX LINE 6 POS 2

DISPLAY "F8 = validation" LINE 6 POS 2
DISPLAY "F = quitter" LINE 6 POS 2

*********initialisation des variable************
* MOVE 0 TO SAISIE-CORRECTE-OK

*****************************************
PERFORM UNTIL SAISIE-CORRECTE-OK

ACCEPT NOM-SAISIE LINE 6 POS 2
ACCEPT PRENOM-SAISIE LINE 7 POS 2
ACCEPT SEX-SAISIE LINE 8 POS 2

MOVE SPACE TO WCAR

ACCEPT WOK LINE 24 POSITION 79
PROMPT ECHO UPDATE
ON EXCEPTION WESC
MOVE WESC TO WCAR
END-ACCEPT

EVALUATE RCAR

WHEN CARTTT(08)
IF SEX ='M' OR SEX = 'F'
OPEN INPUT FICMF
PERFORM POS-ZONE THRU F-POS-ZONE
MOVE 0 TO W-FF
PERFORM UNTIL W-FF-OK
READ FICMF NEXT AT END
SET W-FF-OK TO TRUE
END-READ

IF T-SEX = SEX-SAISIE AND
T-NOM = NOM-SAISIE AND
T-PRENOM = PRENOM-SAISIE
END-IF
Erreur ligne 311  SET W-FF-OK TO TRUE
CLOSE FICMF
END-PERFORM
OPEN OUTPUT FICMF
MOVE NOM-SAISIE TO T-NOM
MOVE PRENOM-SAISIE TO T-PRENOM
MOVE SEX-SAISIE TO T-SEX
WRITE ENREG-FICMF
END-WRITE
CLOSE FICMF
SET SAISIE-CORRECTE-OK TO TRUE
ELSE
SET SAISIE-CORRECTE-OK TO TRUE
END-IF
WHEN CARTTT(07)
SET SAISIE-CORRECTE-OK TO TRUE
END-EVALUATE
END-PERFORM.
F-TRT-F4.
EXIT.
***************************************************
***************positionement de zone*******************
***************************************************
POS-ZONE.
* OPEN INPUT FICMF
MOVE LOW-VALUE TO T-CLE
START FICMF KEY IS NOT LESS THAN T-CLE
INVALID
DISPLAY "INVALIDE" LINE 2 POS 2
END-START.
F-POS-ZONE.
EXIT.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

HULK77
Modérateur :
- Cobol

Inscrit : 12/08/2004
Messages : 160

#121016 Posté le 16/01/07 à 11:34

Bonjour,

Ton erreur est une WARNING. Donc cela ne doit pas géner ton traitement.
Cependant, j'ai noté plusieurs points qui me paraissent suspects !!!

WHEN CARTTT(08)
IF SEX ='M' OR SEX = 'F'
OPEN INPUT FICMF
PERFORM POS-ZONE THRU F-POS-ZONE <= Début et Fin PERFORM OK
MOVE 0 TO W-FF
PERFORM UNTIL W-FF-OK <= Début PERFORM
READ FICMF NEXT AT END
SET W-FF-OK TO TRUE
END-READ <= fin PERFORM OK

IF T-SEX = SEX-SAISIE AND <= A quoi sert ton IF, car il n'y a
T-NOM = NOM-SAISIE AND aucun traitement, juste un
T-PRENOM = PRENOM-SAISIE END-IF ?
END-IF
Erreur ligne 311  SET W-FF-OK TO TRUE
CLOSE FICMF
END-PERFORM <= fin PERFORM ?????
OPEN OUTPUT FICMF Ou est l'appel du PERFORM ?
MOVE NOM-SAISIE TO T-NOM
MOVE PRENOM-SAISIE TO T-PRENOM
MOVE SEX-SAISIE TO T-SEX
WRITE ENREG-FICMF
END-WRITE
CLOSE FICMF
SET SAISIE-CORRECTE-OK TO TRUE
ELSE
SET SAISIE-CORRECTE-OK TO TRUE
END-IF <= Ou est le IF ???
WHEN CARTTT(07)
SET SAISIE-CORRECTE-OK TO TRUE
END-EVALUATE
END-PERFORM.
F-TRT-F4.

Quand tu aura résolu tes problèmes, n'oublie pas de nous le faire savoir !!!

HULK77
__________________________
Ma fabrique de chemises tourne à plein régime !!!

HAUT DE PAGE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.