Auslesen der CSV-Dateien des CSV-Managers unter COBOL

Aufrufe 13 Mal bewertet mit „Gefällt mir” Kommentare Kommentar
Mag ich anklicken, wenn dieser Ratgeber hilfreich war

Hallo eBay-Gemeinde

Hier ein Tipp, wie man die CSV-Dateien des CSV-Managers in einem weiteren Programm aus COBOL benutzen kann:

Ich nehme an, dass Sie als geneigter Leser dieses Artikels die Grundlagen der COBOL-Programmierung beherrschen,
daher verzichte ich hier auf so grundlegende Hinweise wie Dateinamen zuweisen, Dateien lesen etc.

eine CSV-Datei sieht z.B. so aus:

1. Zeile
Verkaufsprotokollnummer;Mitgliedsname;Vollständiger Name des Käufers;Käuferadresse 1;
Käuferadresse 2;Ort des Käufers;Staat des Käufers;Postleitzahl des Käufers;Land des Käufers;Artikelnummer;Artikelbezeichnung;
Menge;Verkaufspreis;Inklusive Mehrwertsteuersatz;Verpackung und Versand;Versicherung;Gesamtpreis;
Zahlungsmethode;Verkaufsdatum;Kaufabwicklungsdatum;Bezahldatum;Versanddatum;Rechnungsdatum;Rechnungsnummer;
Abgegebene Bewertungen;Erhaltene Bewertungen;Notizzettel;PayPal Transaktions-ID;Lagerhaltungsnummer;
Private Notizen;Produkt-ID-Typ;Produkt-ID-Wert;Produkt-ID-Wert 2;E-Mail-Adresse;Versandservice;
Transaktions-ID;Bestellnummer

2.-x. Zeile
1234;ebaier;"Kalle Kelle";"Berlinerstr. 88B";;Silberstadt;;12345;Deutschland;123456789012;"Artikelbezeichnung des Grauens";
1;"EUR 87,50";19%;"EUR 5,70";"EUR 0,00";"EUR 87,50";;31.08.08;02.09.08;;;;;No;;;;;;;;;email@webadresse.de;
"Versicherter Versand";123456789012;

ich mache es z.B IMMER so.

eine Datensatzbeschreibung, die IMMER VARIABEL IST, auch wenn eBay die Felder ändert,
kann der Rest relativ einfach angepasst werden.

So sieht also die Datensatzbeschreibung aus:
01 CSV-DATENSATZ.
   05 CSV-ITEM   PIC X(128) occurs 48.

77 CSV-IND   pic 999  comp.
 88 DATENSTRUKTUR-GEAENDERT  VALUE "888".


Bedenken Sie, dass die Datenmenge im obigen Beispiel 48x128= 6KByte belegen

Zum belegen des Datenfeldes und der Weiterverarbeitung eignen sich z.B folgende Anweisungen:
READ-DATEI SECTION.
        MOVE ZERO TO CSV-IND
        PERFORM NEXT-INPUT-DATEI
        PERFORM FELDZUWEISUNGEN
        PERFORM TESTE-INTEGRITAET */ Prüfen ob ebay die Datenstruktur behalten hat /*
        IF DATENSTRUKTUR-GEAENDERT
           */ DATENSTRUKTUR WURDE GEÄNDERT, PROGRAMM ÜBERARBEITEN /*
           EXIT PROGRAM
           STOP RUN
        END-IF
        PERFORM NEXT-INPUT-DATEI
        PERFORM UNTIL NOT INPUT-DATEI-OK
                PERFORM FELDZUWEISUNGEN
                ...
                ...
                   Daten verarbeiten
                ...
                ...
                PERFORM NEXT-INPUT-DATEI
       END-PERFORM.


FELDZUWEISUNGEN SECTION.
        INITIALIZE CSV-DATENSATZ.
        UNSTRING INPUT-DATEI-SATZ DELIMITED BY ";"
                            INTO CSV-ITEM(1),
                                 CSV-ITEM(2),
                                 ...
                                 ...
                                 ...
                                 ...
                                 CSV-ITEM(48)
        END-UNSTRING.

Ich hoffe ich konnte etwas weiterhelfen.

Über einem Klick auf HILFREICH freue ich mich.

Möchten Sie Ihr Wissen weitergeben? Erstellen Sie Ihren eigenen Ratgeber… Verfassen Sie einen Ratgeber
Weitere Ratgeber erkunden