Groups | Search | Server Info | Login | Register
Groups > nl.comp.hardware > #18607
| Subject | Re: Eerste pc |
|---|---|
| Newsgroups | nl.politiek, nl.comp.hardware, nl.comp.programmeren |
| References | (8 earlier) <nnd$02ea58e7$10f2f688@ffcdb4946d217439> <lsqjl7F3jcqU1@mid.individual.net> <nnd$44c60b91$07ae276d@94d0c1309db7743a> <lsr0q2F7dn0U1@mid.individual.net> <nnd$487a4b01$08ba6fcd@74b1e772e89a06cb> |
| From | Cees Camphuis <CeesCamphuis@ziggo.nl> |
| Message-ID | <rRY9P.30856$G61.11867@usenetxs.com> (permalink) |
| Date | 2024-12-22 19:26 +0100 |
Cross-posted to 3 groups.
Op 22-12-2024 om 19:17 schreef gaai:
> Number51 <x@x.xx> wrote:
>
>>> COBOL is heel goed in sommetjes maken, maar verder heeft het volgens
>>> mij nauwelijks toepassingen.
>>
>> Dat is FORTRAN, jij maakt ongetwijfeld zeer regelmatig gebruik van in
>> COBOL geschreven systemen,
>
> Welnee, ik weet bijna niks meer van COBOL, behalve dan dat het op
> ruitjespapier moest worden genoteerd en dat je alleen maar program-
> maatjes mee kon maken die oersaaie dingetjes, zoals sommetjes maken,
> deden.
>
Stelt tegenwoordig niets meer voor, ChatGPT fabriceerde dit in 10 seconden:
schrijf een cobol programma waarin het veld adres in bestand naw wordt
gewijzigd.
ChatGPT zei:
ChatGPT
Hier is een voorbeeld van een COBOL-programma dat het veld adres in een
bestand genaamd NAW wijzigt. Het programma leest het bestand
record-voor-record, zoekt een specifiek record op basis van een unieke
sleutel (bijvoorbeeld een ID), wijzigt het adres-veld en schrijft het
gewijzigde record terug.
COBOL Code: Adreswijziging in bestand NAW
cobol
Code kopiëren
IDENTIFICATION DIVISION.
PROGRAM-ID. UpdateAdres.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT NawFile ASSIGN TO "naw.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FileStatus.
DATA DIVISION.
FILE SECTION.
FD NawFile.
01 NawRecord.
05 NawID PIC X(10).
05 Naam PIC X(30).
05 Adres PIC X(50).
05 Postcode PIC X(10).
05 Woonplaats PIC X(20).
WORKING-STORAGE SECTION.
01 FileStatus PIC XX.
01 ZoekID PIC X(10).
01 NieuwAdres PIC X(50).
01 RecordGevonden PIC X VALUE 'N'.
PROCEDURE DIVISION.
BEGIN.
DISPLAY "Voer het ID in waarvoor u het adres wilt wijzigen: "
WITH NO ADVANCING.
ACCEPT ZoekID.
DISPLAY "Voer het nieuwe adres in: " WITH NO ADVANCING.
ACCEPT NieuwAdres.
OPEN I-O NawFile.
IF FileStatus NOT = "00"
DISPLAY "Fout bij openen van bestand: status " FileStatus
STOP RUN
END-IF.
PERFORM UNTIL FileStatus = "10"
READ NawFile INTO NawRecord
AT END
EXIT PERFORM
END-READ.
IF NawID = ZoekID
MOVE NieuwAdres TO Adres
REWRITE NawRecord
DISPLAY "Adres gewijzigd voor ID: " ZoekID
MOVE 'Y' TO RecordGevonden
EXIT PERFORM
END-IF
END-PERFORM.
IF RecordGevonden = 'N'
DISPLAY "Geen record gevonden met ID: " ZoekID
END-IF.
CLOSE NawFile.
DISPLAY "Bewerking voltooid."
STOP RUN.
Uitleg van het programma:
Bestand definitie (FILE SECTION):
Het bestand NAW heeft een recordstructuur met velden zoals NawID, Naam,
Adres, Postcode, en Woonplaats.
Gegeven invoer:
Het programma vraagt de gebruiker om een ID (ZoekID) en het nieuwe adres
(NieuwAdres).
Zoek en wijzig:
Het programma leest record-voor-record, controleert of het NawID
overeenkomt met de ingevoerde ZoekID.
Als het record wordt gevonden, wordt het veld Adres gewijzigd en het
gewijzigde record teruggeschreven met REWRITE.
Bestandsstatus:
Er wordt gecontroleerd op fouten tijdens het openen, lezen of schrijven
van het bestand via FileStatus.
Output:
Het programma geeft feedback aan de gebruiker of het record is gevonden
en aangepast.
Bestandseisen
Het bestand naw.dat moet al bestaan en in het juiste formaat zijn (met
velden zoals gedefinieerd in de NawRecord).
Dit programma is ontworpen voor een sequentieel bestand. Als je een
index of random access nodig hebt, moet je het aanpassen.
> Dat jij het hebt geschopt tot veelgevraagde COBOLlist, die onlangs
> zelfs nog genoopt was zijn LinkedIn te verwijderen om zich al die
> headhunters van het lijf te houden, zegt natuurlijk ook wel wat over
> jou als persoon.
>
>> ik laat het hierbij.
>
> Is goed joh!
>
> Oh ja... Doe paai even de groeten van mij aub.
>
Back to nl.comp.hardware | Previous | Next — Previous in thread | Next in thread | Find similar
Re: Eerste pc kraai <kraai@xx.yy> - 2024-12-22 00:10 +0100
Re: Eerste pc Number51 <x@x.xx> - 2024-12-22 12:09 +0100
Re: Eerste pc zwaai <zwaai@xx.yy> - 2024-12-22 14:33 +0100
Re: Eerste pc Number51 <x@x.xx> - 2024-12-22 14:48 +0100
Re: Eerste pc maai <maai@xx.yy> - 2024-12-22 18:20 +0100
Re: Eerste pc Number51 <x@x.xx> - 2024-12-22 18:32 +0100
Re: Eerste pc gaai <gaai@xx.yy> - 2024-12-22 19:17 +0100
Re: Eerste pc Cees Camphuis <CeesCamphuis@ziggo.nl> - 2024-12-22 19:26 +0100
Re: Eerste pc Number51 <x@x.xx> - 2024-12-22 20:13 +0100
Re: Eerste pc No 13 Baby <no13baby@x.xx> - 2024-12-22 21:13 +0100
Re: Eerste pc De ongekruisssigde <ongekruisssigde@ongekruisssigde.invalid> - 2025-02-08 13:41 +0000
Re: Eerste pc Number51 <x@x.xx> - 2025-02-08 14:51 +0100
Re: Eerste pc De ongekruisssigde <ongekruisssigde@ongekruisssigde.invalid> - 2025-02-08 19:15 +0000
Re: Eerste pc Number51 <x@x.xx> - 2025-02-08 20:42 +0100
Re: Eerste pc De ongekruisssigde <ongekruisssigde@ongekruisssigde.invalid> - 2025-02-08 21:45 +0000
Re: Eerste pc Pancho Sanza <spansanza@gmail.com> - 2025-02-08 22:55 +0100
Re: Eerste pc Omnibus <zozozo@fakeadressnomail.be> - 2025-02-08 23:51 +0100
Re: Eerste pc Pancho Sanza <spansanza@gmail.com> - 2025-02-09 00:25 +0100
Re: Eerste pc De ongekruisssigde <ongekruisssigde@ongekruisssigde.invalid> - 2025-02-09 09:03 +0000
Re: Eerste pc De ongekruisssigde <ongekruisssigde@ongekruisssigde.invalid> - 2025-02-09 09:02 +0000
Re: Eerste pc Number51 <x@x.xx> - 2025-02-09 09:46 +0100
Re: Eerste pc De ongekruisssigde <ongekruisssigde@ongekruisssigde.invalid> - 2025-02-09 09:07 +0000
Re: Eerste pc Number51 <x@x.xx> - 2025-02-08 20:51 +0100
Re: Eerste pc Number51 <x@x.xx> - 2025-02-08 21:04 +0100
Re: Eerste pc "R. Phillips" <Get@life.com> - 2025-02-09 09:44 +0100
Re: Eerste pc Henk <IngridenHenk@yahoo.com> - 2024-12-23 10:11 +0100
Re: Eerste pc paai <paai@xx.yy> - 2024-12-23 08:39 +0100
csiph-web