-
XML-Daten mit "&" in RPG-Datenbank übertragen
Guten Morgen allerseits!
Ich soll von der UN-Terrorliste (http://www.un.org/sc/committees/1267/AQList.xml) bestimmte Daten in eine RPG-Datenbank übertragen, dabei gibt es nur ein Problem:
Die XML-Datei enthält keine &s , sondern "&".
Ich habe die Übertragung mit xml-into gemacht, klappt soweit auch alles.
Nun gibt es beim Lesen des 1. Satzes, der ein solches Zeichen erhält, ein Problem:
Alle Felder sind leer, mein Programm springt aus der Routine.
Nachdem ich aber die "&" durch &s ersetzt habe, klappt das Programm tadellos.
Nun habe ich versucht, das ganze mit z.B. Übertragen per xml-sax, ccsid ändern etc. , aber ohne Erfolg.
Da ich zur Zeit keine Idee mehr habe, wende ich mich in meiner Not an euch!
Im Anhang noch mein Programmcode, der Übersicht halber werden in dem Programm nur die Personen gespeichert. Es wird außerdem der Name statt der ID geprüft, weil die ID numerisch und beim fehlerhaften Satz ("blank") direkt nen Absturz verursacht.
Code:
H DFTACTGRP(*NO)
FTRR01PF UF A E DISK
D INDIVIDUAL DS QUALIFIED
D dim(1000)
D
D dataid 8 0
D first_name 34
D second_name 34
D third_name 34
D last_day_updated...
D LIKEDS(UpdateDS)
D individual_address...
D LIKEDS(AdresseDS)
D*
D UpdateDS DS QUALIFIED
D value 20A
D*
D AdresseDS DS QUALIFIED
D street 34A
D city 25A
D country 25A
D*
D x s 10i 0
D xmlfile s 1000a varying
D options s 100a varying
/free
// CHANGE THIS:
xmlfile = '/ogsid/bernardy/Test.xml';
options = 'doc=file +
path=CONSOLIDATED_LIST/INDIVIDUALS/INDIVIDUAL +
case=any +
allowextra=yes +
allowmissing=yes';
xml-into(e) INDIVIDUAL %xml((xmlfile): options);
x=1;
dow INDIVIDUAL(x).FIRST_NAME <> *blanks or
INDIVIDUAL(x).SECOND_NAME <> *blanks or
INDIVIDUAL(x).THIRD_NAME <> *blanks;
TRGRP = 'P';
TRID = INDIVIDUAL(x).DATAID;
TRNM1 = INDIVIDUAL(x).FIRST_NAME;
TRNM2 = INDIVIDUAL(x).SECOND_NAME;
TRNM3 = INDIVIDUAL(x).THIRD_NAME;
TRUPD = INDIVIDUAL(x).LAST_DAY_UPDATED.VALUE;
TRSTR = INDIVIDUAL(x).INDIVIDUAL_ADDRESS.STREET;
TRORT = INDIVIDUAL(x).INDIVIDUAL_ADDRESS.CITY;
TRLND = INDIVIDUAL(x).INDIVIDUAL_ADDRESS.COUNTRY;
write(e) RTRR01PF;
x = x + 1;
enddo;
*inlr=*on;
/end-free
Similar Threads
-
By RobinHood2001 in forum IBM i Hauptforum
Antworten: 8
Letzter Beitrag: 12-12-13, 12:30
-
By CaddyMajor in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 19-11-13, 11:04
-
By hs in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 18-11-02, 14:44
-
By mott in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 20-06-02, 10:24
-
By HJM in forum NEWSboard Windows
Antworten: 3
Letzter Beitrag: 25-02-02, 22:27
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks