Programmeren in COBOL/Sequentiële bestanden/Oefeningen (bewerken)
Versie van 21 okt 2007 19:44
, 15 jaar geledengeen bewerkingssamenvatting
k (→Oplossingen) |
kGeen bewerkingssamenvatting |
||
|
Commons
</pre>
====Opgave 4: een record achteraan toevoegen====
Hier gaan we verder op opgave 3. Er komt een wiki bij dus willen we die ook toevoegen aan ons .txt bestand. Maak een programma dat dus een wiki en zijn omschrijving toevoegd aan ons .txt bestand. Dit moet terug gebeuren in een lus. Na het toevoevoegen van een record wordt er aan de gebruiker gevraagd of hij wilt doorgaan, geeft hij 0 dan stopt het programma.
==Oplossingen==
===Theorie===
END-PERFORM
CLOSE invoer uitvoer
STOP RUN.
</pre>
}}
====Opgave 4: een record achteraan toevoegen====
{{code
|Taal = COBOL
|Titel = Opgave 3
|Code =
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. Opgave4.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT uitvoer ASSIGN to "uitvoer.txt"
LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD uitvoer.
01 regel.
02 wikinaam PIC X(11).
02 PIC X.
02 omschrijving PIC X(50).
WORKING-STORAGE SECTION.
77 invoer PIC 9.
PROCEDURE DIVISION.
HOOFD.
OPEN EXTEND uitvoer
PERFORM UNTIL invoer = 0
DISPLAY "Geef de naam van de wiki:"
ACCEPT wikinaam NO BEEP
DISPLAY "Geef de omschrijving van de wiki:"
ACCEPT omschrijving NO BEEP
WRITE regel END-WRITE
DISPLAY "Wilt u nog een gebruiker toevoegen(0=stoppen)?"
ACCEPT invoer NO BEEP
END-PERFORM
CLOSE uitvoer
STOP RUN.
</pre>
| |||