Werte aus XML-Dateien mit RPG rauslesen (Verständnisfrage)

[alex61]

Hallo Fuerchau,
muss leider doch noch mal auf das Thema zurückkommen. Irgendwie stelle ich mich etwas dumm an, jedenfalls bekomme ich das mit dem XML-INTO nicht gebacken. Wenn Du Dir bitte nochmals mein XML oben betrachtest und dann mein kleines Testprogramm unten, wie sähe nun der korrekte XML-INTO für mein XML File aus ? Ich hoffe, dass zumindest die Deklarationen der Strukturen so passen. Für eine hoffentlich letzte Hilfe wäre ich sehr (!) dankbar.
Gruß Alex


H**** Name - XMLPG001 ****
H**** Function - Test lesen XML-File ****
H**** Author - AM (BMN) am 07.09.2018 ****
H**** Copyright - AM (BMN) 2018 ****
H**** letzte Änd. - ****
H**** Release - 3.1 ****
H************************************************* ************************
D progStatus SDS
D*
D xmlElements 20i 0 Overlay(progStatus: 372)
D*
D*--------------------------------------------------------------*
D* Einzelstrukturen des XML-Files buttom up definieren *
D*--------------------------------------------------------------*
D*
D OrderLine DS Qualified template
D LineNumber 03
D ArticleNumber 08
D Qty 05
D*
D*--------------------------------------------------------------*
D*
D Order DS Qualified template
D OrderNumber 08
D OrderTypeID 02
D OrderLine Likeds(OrderLine) dim(10)
D*
D OrderLineCnt 10I 0
D*
D*--------------------------------------------------------------*
D*
D SHARK_ERP DS Qualified
D Order Likeds(Order)
D*
D*--------------------------------------------------------------*
D* Gesamtdokument (Empfangsergebnis von XML-INTO *
D*--------------------------------------------------------------*
D*
D GesDokument DS Qualified
D SHARK_ERP Likeds(SHARK_ERP)
D Order Likeds(Order)
D OrderLine Likeds(OrderLine) dim(999)
D*
D pause s 1a
D*
/free
xml-into GesDokument
%xml('/SCHÄFER.xml':'case=any doc=file');



Dsply (%Char(xmlElements) + ' GesDokument records loaded.' ) ' '
pause;
/end-free
C SETON LR


[Fuerchau]

Dein Hauptknoten heißt bereits SHARK-ERP und nicht GesDokument.
Desweiteren schau dir bitte meine XMLOptions an:

case=convert

Dies ist erforderlich, da der Variablenname ja mit "_" definiert wird und nicht mit "-", was ja ein Operator in RPG ist.

Nun noch mal zu deinem XML:

<?xml version="1.0" encoding="UTF-8"?>
<SHARK-ERP>
<Order>
<OrderNumber>12345678</OrderNumber>
<OrderTypeID>KA</OrderTypeID>
<OrderLine>
<LineNumber>1</LineNumber>
<ArticleNumber>4712</ArticleNumber>
<Qty>12</Qty>
</OrderLine>
</OrderLine>
<LineNumber>2</LineNumber>
<ArticleNumber>4713</ArticleNumber>
<Qty>5</Qty>
</OrderLine>
</Order>
</SHARK-ERP>

d OrderLine ds qualified
d LineNumber ...
d ArticleNumber ...
d Qty ...

d Order ds qualified
d OrderNumber ...
d OrderTypeID ...
d OrderLine likeds(OrderLine) dim(999)
d CntOrderLine 5I 0

d SHARK_ERP ds qualified
d Order likeds(Order)

Mittels CntOrderLine und der XMLOption "countprefix=cnt" bekommst du dann auch die Anzahl Zeilen der OrderLine geliefert.

[alex61]

vielen Dank wieder für die Info. Bekomme aber einen Fehler beim Laufenlassen:

Der XML-Parser hat den Fehlercode 5 festgestellt. Was bedeutet das ?

Was ich auch noch nicht verstanden habe, muss dann am Ende des Programms noch was wegen der Tabelle codiert werden, oder reicht der XML-INTO. So sieht mein Progrämmchen jetzt aus.

H**** Name - XMLPG001 ****
H**** Function - Test lesen XML-File ****
H**** Author - AM (BMN) am 07.09.2018 ****
H**** Copyright - AM (BMN) 2018 ****
H**** letzte Änd. - ****
H**** Release - 3.1 ****
H************************************************* ************************
D*--------------------------------------------------------------*
D* Einzelstrukturen des XML-Files buttom up definieren *
D*--------------------------------------------------------------*
D*
D OrderLine DS Qualified
D LineNumber 03
D ArticleNumber 08
D Qty 05
D*
D*--------------------------------------------------------------*
D*
D Order DS Qualified
D OrderNumber 08
D OrderTypeID 02
D OrderLine Likeds(OrderLine) dim(999)
D*
D CntOrderLine 5I 0
D*
D*--------------------------------------------------------------*
D*
D SHARK_ERP DS Qualified
D Order Likeds(Order)
D*
D*
D XMLName S 256 varying inz
D XMLOption S 256 varying inz
D*
D*--------------------------------------------------------------*
D* Festlegen der XML-Optionen *
D*--------------------------------------------------------------*
XMLOption = ' trim=all' // Leerzeichen am Anfang/Ende
+ ' allowmissing=yes' // fehlende Knoten ignorieren
+ ' allowextra=yes' // zusätzliche Knoten ignorieren
+ ' countprefix=cnt' // Zählervariable für Arrays
+ ' case=convert' // ungült. Zeichen in "_" konv.
+ ' doc=file' // XML aus Datei lesen
;
XMLName = '/SCHÄFER.xml'; // Kompletter Pfadname
XML-INTO SHARK_ERP %xml(XMLName : XMLOption);
C*
C SETON LR
C*


[Fuerchau]

Ich sach mal so:
XMLName = '/SCHÄFER.xml'; // Kompletter Pfadname
Bist du sicher, dass die Datei im IFS-Root ist?

Der Standardfehler 5 beim IFS-Zugriff ist übrigens "ACCESS DENIED".
Was steht u.U. im Jobblog?

[alex61]

So, jetzt kann ich mich wieder um das Drama hier kümmern.
Tägliche Arbeit erledigt.
Erstmal wieder Danke für die Antwort. Warum der Zugriff nicht
klappt, keine Ahung. Ja, XML steht im Root.
Joblog brint einen auch nicht weiter. Irgendwie werde ich das
ja wohl noch schaffen, daß der Zugriff klappt. Aber nochmal zu der einen Frage von gestern:
??
Was ich auch noch nicht verstanden habe, muss dann am Ende des Programms noch was wegen der Tabelle (Orderline) codiert werden, oder macht das auch der XML-INTO
gleich mit.
　
Gruss A.

[Fuerchau]

Der XML-INTO liest die gesamte XML-Datei entsprechend der DS-Struktur passend zur XML-Struktur ein.
Wichtig zu wissen ist einfach folgendes:
XML-Tages (Knoten und Attribute) sind case sensitive!
Die RPG-Variablen werden vom Compiler grundsätzlich in Großbuchstaben erstellt und deshalb ist es egal, welche Schreibweise du wählst, zusätzlich sind Zeichen wie "-", ":" usw. erlaubt, was bei RPG-Namen nicht erlaubt ist, also "case=convert"!
Bei Arrays macht es schon Sinn, die Anzahl der gelesenen Zeilen zu haben, deshalb die "cnt"-Variablen.

Welche CCSID hat dein Job zur Laufzeit?
Ggf. kommt dein Job mit dem Umlaut im Dateinamen nicht zurecht.
Denn dein konstantes "Ä" könnte falsch übersetzt werden.
Ändere den Namen erst mal auf einfache Zeichen.

[alex61]

vielen Dank für Deine Hilfe. Bin leider bei uns in der Firma Einzelkämpfer und muss mich in Zukunft mit XML rumschlagen. Da ich bei uns keinen fragen kann, frage ich halt hier bei den Profis nach :-)
Deshalb habe ich im Vorfeld schon mal recherchiert. Wie sieht das eigentlich mit dem Schreiben in XML Dateien aus ? Könnte auch noch ein Thema werden. Aber da mache ich ein extra Thema auf. Also vielen Dank nochmal. Gruß A. und schönes WE.

[Fuerchau]

Das Schreiben ist eher unkomfortabel, da es nicht native unterstützt wird.
Man kann das mühsam in SQL oder in RPGLE-Funktionen stricken.
Besser ist es allerdings dann direkt in Java bzw. Sprachen, die XML native unterstützen, zu machen.

Aber dein letzter Post besagt nun nicht, ob es denn nun klappt.

[alex61]

Nee, klappt leider immer noch nicht. Meldung siehe unten:
Am SCHÄFER liegt's nicht.
Und im Netz findet man zum Ursachencode folgendes:

5	The start and end tag names of an element did not match.

Nachrichten-ID . . . . : RNX0351 Bewertung . . . . . . : 50
Nachrichtenart . . . . : Diagnose
Sendedatum . . . . . . : 05.10.18 Sendezeit . . . . . . : 13:05:54

Nachricht . . . : Der XML-Parser hat den Fehlercode 5 festgestellt.
Ursache . . . . : Beim Parsing eines XML-Dokuments für eine RPG-Prozedur hat
der Parser einen Fehler bei der relativen Position 252 mit Ursachencode 5
festgestellt. Das verwendete Dokument ist /SCHÄFER.xml; *N gibt an, dass das
XML-Dokument keine externe Datei war.
Fehlerbeseitigung: Mit Hilfe des Benutzers, der für die Programmpflege
verantwortlich ist, die Fehlerursache bestimmen.

[Fuerchau]

Wo er recht hat, hat er recht!
Versuchs mal damit:

<?xml version="1.0" encoding="UTF-8"?>
<SHARK-ERP>
<Order>
<OrderNumber>12345678</OrderNumber>
<OrderTypeID>KA</OrderTypeID>
<OrderLine>
<LineNumber>1</LineNumber>
<ArticleNumber>4712</ArticleNumber>
<Qty>12</Qty>
</OrderLine>
<OrderLine>
<LineNumber>2</LineNumber>
<ArticleNumber>4713</ArticleNumber>
<Qty>5</Qty>
</OrderLine>
</Order>
</SHARK-ERP>

Bei deiner 2. Order-Line sind Start- und Ende-Tag vertauscht, also ein Fehler der XML-Erstellung!
Da frage ich mich, wo das denn herkommt....

Übrigens ist da das Notepad++ ganz hilfreich, da es matching tags markiert.

[alex61]

YYEEESSSS !! Jetzt geht's !!!
Keine Ahnung wie der Schrott ins XML kam. War wahrscheinlich ich. ;-)
Vielen, vielen Dank für Deine Hilfe und schönes WE !
Bis zum nächsten Einsatz.
Gruß A.