Path: csiph.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail From: Number51 Newsgroups: nl.politiek,nl.comp.hardware,nl.comp.programmeren Subject: Re: Eerste pc Date: Sun, 22 Dec 2024 20:13:45 +0100 Lines: 143 Message-ID: References: <2lodmj11d6s0kghpp1q718t1k558ohhg1d@4ax.com> <5tpdmjdcv8i8cv7ts0o0p2gnvhuf16gktm@4ax.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit X-Trace: individual.net c8Le6xXH1kAnYZphlcqT+gmiDOB82KRjgvNR8LikvePlcGXyt2 Cancel-Lock: sha1:PlqYl4nzhEDn4K+jWWi8NPS41qE= sha256:/ezLNHh+4DSq27FV8+CmDFa64E3yd3wCpp2eTyyiS5c= User-Agent: Mozilla Thunderbird Content-Language: nl In-Reply-To: Xref: csiph.com nl.politiek:1108674 nl.comp.hardware:18608 nl.comp.programmeren:2171 Op 22-12-2024 om 19:26 schreef Cees Camphuis: > Op 22-12-2024 om 19:17 schreef gaai: >> Number51 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: Code schrijven heeft nooit veel voorgesteld, behalve dan voor amateurs. > > 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. >> >