Programmeren in COBOL/Sequentiële bestanden/Oefeningen: verschil tussen versies

Naar navigatie springen Naar zoeken springen
k
geen bewerkingssamenvatting
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>
2.452

bewerkingen

Informatie afkomstig van https://nl.wikibooks.org Wikibooks NL.
Wikibooks NL is onderdeel van de wikimediafoundation.

Navigatiemenu