[COBOL] Verb expected, INVALID found

[Verwijderd]

Dit is het stukje code waar het fout gaat:

WW-10.

MOVE TEMPPERS1 TO P-PERSNUMMER.

READ PERSIND, INVALID KEY PERFORM ZZ-PERSOONONBEKEND
NOT INVALID KEY
PERFORM XX-ZOEKNUMMER
END-READ.

MOVE 1 TO AANTALTEMP.

TEMPPERS1 en P-PERSNUMMER zijn gelijke variabelen, daar ligt het niet aan. Weet iemand of er voor de rest een (niet gezien) foutje in staat?

[whoami]

Hoi, welkom op P&W.

Misschien begin je best even met het lezen van de P&W FAQ en Quickstart die je hier vindt:
Welkom in P&W (FAQ-28/11/2002)
Welkom in P&W -> Quickstart (update 2/10/2002)

Jouw topic is nl. nogal onduidelijk.
Maar , ik denk dat er nog iets tussen NOT en INVALID Moet staan...

[Verwijderd]

ok wat meer informatie

het bestand PERSIND is geopend.
P-PERSNUMMER is de key van dit bestand
zoals in de volgende code staat
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PERSIND ASSIGN TO DISK
ORGANIZATION IS INDEXED
RECORD KEY IS P-PERSNUMMER
FILE STATUS IS FILE-STATUS2
ACCESS MODE IS SEQUENTIAL.

DATA DIVISION.

FILE SECTION.

FD PERSIND
LABEL RECORDS STANDARD
DATA RECORD PERSIND-RECORD
VALUE OF FILE-ID IS "PERSONEN.IND".
01 PERSIND-RECORD.
03 P-PERSNUMMER PIC 9(04).
03 P-PERSNAAM PIC X(21).
03 P-PERSVOORN PIC X(11).
03 P-PERSSTRAAT PIC X(22).
03 P-PLAATS PIC X(20).
03 P-ABNUM PIC 9(07).

WORKING-STORAGE SECTION.
01 WERKVELDEN.
03 TEMPPERS1 PIC 9(04).

PROCEDURE DIVISION.

hierin wordt dan de code die hierboven staat aangeroepen

[Fire69]

Antwoord van mijn vriendin (programmeur Cobol) :

We denken dat die comma weg moet. We zien anders ook niet wat er zou kunnen fout zijn.
Hebt ge ons de fout niet?

En die invalid key op een ander lijn, dat is gemakkelijker om te lezen :-))

[Verwijderd]

helaas ook dit mocht niet werken

[ Voor 4% gewijzigd door Verwijderd op 23-01-2003 14:08 ]

[Fire69]

Verwijderd schreef op 23 januari 2003 @ 14:07:
helaas ook dit mocht niet werken

En welke fout krijg je dan juist?

[whoami]

Sorry hoor, maar GoT is geen persoonlijke helpdesk.
Je mag eigenlijk zelf ook eens wat moeite doen ipv enkel 'helaas mocht dit ook niet werken te posten'.

Heb je al eens de syntax van het read statement bekeken? Volgens mij moet die komma na READ ook weg.
Zie ook:
hier en hier