Programma Errors (Dutch/Nederlands) HELP!!!

[Remo1978]

Ik krijg de volgende foutmeldingen bij mijn programma, kan iemand mij helpen om deze fouten eruit te halen? Of aangeven wat er niet klopt in mijn code?

*** DIT ZIJN DE FOUTMELDINGEN:

line 3: Warning '.' expected. Numeric literal found.
Data Division
line 3: Procedure expected. Numeric literal found.
line 3: Warning '.' expected. Numeric literal found.
Procedure Division
line 3: Identifier expected
Missing Panal section (geloof dat dat er stond!)
Can't recover, good bye

*** DIT IS MIJN PROGRAMMACODE:

IDENTIFICATION DIVISION.
PROGRAM-ID. OPGAVE 14.
AUTHOR. REMO KROL.
DATA-WRITTEN. 10-04-2002.
DATA-COMPILED.

ENVIROMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-LA.
OBJECT-COMPUTER. IBM-LA.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MODEM ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT BESTEL ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PERSONEN ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OPG14-1 ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PERSSORT ASSIGN TO DISK
ORGANIZATION IS INDEXED
RECORDKEY IS PERSNUMMER
ACCES MODE IS RANDOM.

DATA DIVISION.
FILE SECTION.
FD MODEM.
LABEL RECORDS STANDARD
DATA RECORD MODEM-RECORD
VALUE IF FILE-ID “MODEM.SEQ”.
01 MODEM-RECORD.
03 M-PERSNUMMER PIC 9 (04).
03 M-BBSNUMMER PIC 9 (04).
03 M-MODCOUNT PIC 9 (02).
03 M-MODTIM PIC 9 (05).
03 M-MODDOWNLOAD PIC 9 (04).

FD BESTEL.
LABEL RECORDS STANDARD
DATA RECORD BESTEL-RECORD
VALUE IF FILE-ID “BESTEL.SEQ”.
01 BESTEL –RECORD.
03 B-BESTDATUM PIC X (08).
03 B-PERSNUMMER PIC 9 (04).
03 B-ARTNUMMER PIC 9 (04).
03 B-BESTAANTAL PIC 9 (02).

FD PERSONEN.
LABEL RECORDS STANDARD
DATA RECORD PERSONEN-RECORD
VALUE IF FILE-ID “PERSONEN.SEQ”.
01 PERSONEN –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-ABNUMMER PIC 9 (07).

FD OPG14-1.
LABEL RECORDS STANDARD
DATA RECORD OPG14-1-RECORD
VALUE IF FILE-ID “OPG14-1.SEQ”.
01 OPG14-1-RECORD.
03 O-PERSNUMMER PIC 9 (04).
03 O-PERSNAAM PIC X (21).

SD PERSSORT.
01 PERSSORT-RECORD.
03 PS-PERSNUMMER PIC 9 (04).
03 PS-PERSNAAM PIC X (21).
03 PS-PERSVOORN PIC X (11).
03 PS-PERSSTRAAT PIC X (22).
03 PS-PLAATS PIC X (20).
03 PS-ABNUMMER PIC 9 (07).

WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
MAIN SECTION.
M001.
SORT PERSSORT-RECORD ASCENDING KEY P-PERSNUMMER
GIVING PERSSORT
STOP RUN.
M999.
EXIT.

SEARCHPERSONEN SECTION.
SP001.
OPEN INPUT PERSONEN.
OPEN OUTPUT OPG14-1.
SP010.
READ PERSONEN AT END
CLOSE PERSONEN
CLOSE OPG14-1
STOP RUN.
PERFORM SEARCH PERSNUMMER.
GO TO SP010.
SP999.
EXIT.

SEARCHBESTEL SECTION.
SB001.
OPEN INPUT BESTEL.
SB010.
READ BESTEL AT END
CLOSE BESTEL
GO TO SB999.
IF B-PERSNUMMER = P-PERSNUMMER
PERFORM SEARCH MODEM
CLOSE BESTEL
GO TO SB999.
GO TO SB010.
SB999.
EXIT.

SEARCHMODEM SECTION.
SM001.
OPEN INPUT MODEM.
SM010.
READ MODEM AT END
CLOSE MODEM
GO TO SM999.
IF M-PERSNUMMER = P-PERSNUMMER
PERFORM WRITE TO OPG14-1
CLOSE MODEM
GO TO SM999.
GO TO SM010.
SM999.
EXIT.

WRITETOOPG14-1 SECTION.
W001.
MOVE P-PERSNUMMER TO O-PERSNUMMER.
MOVE P.PERSNAAM TO O-PERSNAAM.
WRITE OPG14-1.
W999.
EXIT.


Alvast bedankt!

Mvg,

Remo

 

[MarcLodge]

Remo,
I don't understand a word of dutch sorry, but should
PROGRAM-ID. OPGAVE 14.
be
PROGRAM-ID. OPGAVE14.
?
Hope this helps
Marc

 

[MKuiper]

Remo,

Je hebt een aantal sleutelwoorden fout:

DATA-WRITTEN moet zijn: DATE-WRITTEN.
DATA-COMPILED moet zijn: DATE-COMPILED.
ENVIROMENT DIVISION moet zijn: ENVIRONMENT DIVISION (met extra N).
VALUE IF moet zijn: VALUE OF (een aantal maal).
P.PERSNAAM (in WRITETOOPG14-1 SECTION) moet zijn: P-PERSNAAM

Mogelijk nog andere typefouten.

Verder denk ik niet, dat als het programma foutloos is gecompileerd, het doet wat je wilt:
- De MAIN section zal worden uitgevoerd, hetgeen een SORT statement bevat gevolgd door een STOP RUN. Geen enkele van je overige secties zal dus worden aangeroepen.


Groeten,

Marcel

 

[Remo1978]

Marcel,

zou jij mij misschien kunnen uitleggen hoe ik het programma dan wel werkend krijg? Ik bedoel dan de Main Section gedeelte.

Alvast bedankt voor het bekijken en eruit halen van de fouten.

Mvg,

Remo

 

[MarcLodge]

Marcel, Remo,
I've still no idea what the pair of you are talking about, but would be pleased to know whether my solution was worthwhile
Marc

 

[MKuiper]

Marc,

The question of Remo was: what the ... is wrong with my program?

I noticed some misspelled keywords.
You noticed an error I have missed.

In advance, I noticed that even when the program should compile ok, it would not work, because the main section only contains a sort statement and a stop run. All the other sections are not called.

The second post of Remo asks for help to get the program working. I think we should know first what the program is supposed to do before being able to give that help.

Remo,

wat wordt het programma geacht te moeten doen??

Marcel

 

[Remo1978]

Marcel,

ik reageer maar in het Nederlands, want mijn Engels is niet zo geweldig.

Dit is de opgave:

De VBB en Pirate Soft willen samen een mailing verzorgen naar personen die en artikelen gekocht hebben en kontakt met een Bbs gehad hebben. Er wordt een lijst van deze personen gemaakt.

OPG14-1.SEQ = Persnummer + Persnaam

Ik hoop dat je zo een idee krijgt wat er dient te gebeuren in het programma.


Mvg,

Remo

 

[MKuiper]

Remo,

ik begrijp dat je bezig bent met een cursus cobol voor beginners. Mijn ervaring is, dat je het beste leert van je eigen fouten. Iedere beginner maakt fouten, wees niet bang ze te maken.
Maar om fouten te kunnen maken, moet je wel de beschikking hebben over een goede cobol compiler. Mijn advies aan jou is: Ga naar

http://www.adtools.com,

daar wordt een enigszins verouderde, maar uitstekend bruikbare cobol compiler gratis verstrekt voor studie-doeleinden. Probeer eerst zelf de fouten er uit te krijgen en je programma aan de praat te krijgen. Heb je dan nog specifieke vragen, stel ze dan opnieuw in dit forum.

Translation:
I understand you are in the process of learning the cobol language. It is my experience, you learn the best from your own mistakes. Every beginner makes mistakes so don't be afraid to make them.
But in order to be able to make mistakes, you need a good cobol compiler. My advice: Go to

http://www.adtools.com,

a somewhat older, but very usable cobol compiler is given away there for study-purposes.
First you try yourself to get the errors out and get some output out of the program. After that, if you still have some more specific questions, don't hesitate to ask this forum again.

Marcel

 

[Remo1978]

Marcel,

bedankt voor je reactie. Ik kreeg te horen van mijn docent dat er geen compilers op het internet beschikbaar waren. Aangezien ik aan het afstuderen ben, kom ik dus niet op school en moest ik het programma zo schrijven. Maar ik zal nu de fouten eruit proberen te halen....

Mvg

Remo