XML-Daten mit "&" in RPG-Datenbank übertragen

[Banruf]

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 &amps , 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 &amps 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.


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

[Fuerchau]

Leider ist der Unterschied des "&"-Zeichens verloren gegangen.
Es ist häufiger der Fall, dass bestimmte Sonderzeichen, die XML-Spezifisch sind, als HTML-/Unicode-Ersatzzeichen eingebettet werden.
Die meisten XML-Reader können das auch verarbeiten.

Was fehlerhafte Daten angeht, so hilft halt nur alle Felder als Char definieren und benötigte Umwandlungen in einer Monitor-Group selber machen.

[Banruf]

Erstmal danke für die schnelle Antwort:


Leider ist der Unterschied des "&"-Zeichens verloren gegangen.

Habe ich selber eben gemerkt und im Beitrag behoben.


Was fehlerhafte Daten angeht, so hilft halt nur alle Felder als Char definieren und benötigte Umwandlungen in einer Monitor-Group selber machen.

Dacht ich mir schon, hatte nur gehofft, dass irgendwie innerhalb von RPG abwickeln zu können, trotzdem danke!!