Groups | Search | Server Info | Login | Register

Groups > nl.comp.programmeren > #2171

Re: Eerste pc

Cross-posted to 3 groups.

Show all headers | View raw

Op 22-12-2024 om 19:26 schreef Cees Camphuis:
> 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:

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.
>>
> 

Back to nl.comp.programmeren | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

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