XML-INTO %HANDLER

[Gutmann]

Hi *ALL,
</O:p
ich fall mal mit der Tür ins Haus.<O:p</O:p
<O:p</O:p

Ich versuche seit einigen Tagen ein kleines Testprogramm mit Free-RPG zu schreiben, dass XML-Dateien ausliest und die Daten auf unserer i-Series verarbeitet.<O:p</O:p
Dank ausgiebiger Nutzung dieses Forums und des IBM Handbuchs, ist es mir inzwischen gelungen, eine XML-Datenstruktur mit nur einem Element auszulesen.<O:p</O:p
Jetzt scheitere ich jedoch am Auslesen eines komplexeren XML-Files. Damit ich Fehler meinerseits (XML-Dokument bzw. eigene Felddefintionen) vermeide, habe ich erstmal den Beispielcode (http://publib.boulder.ibm.com/infocenter/iadthelp/v7r0/index.jsp?topic=/com.ibm.etools.iseries.langref.doc/c0925086821.htm)(unterstes Beispiel: "Parsing an unknown number of XML Elements ...) abgetippt und meine XML-File nach dem gleichen Schema aufgebaut.<O:p</O:p
<O:p</O:p

Das Problem ist jetzt, obwohl der Code fast 1:1 mit dem IBM Beispielcode übereinstimmt (anderer Path, logOutputError weggelassen und Groß-Kleinschreibung ignoriert), erhalte ich immer beim Umwandeln die folgenden Fehlermeldungen: 1. "RNF5352 Der Prototyp PARTHANDLER, der von %HANDLER für XML-INTO angegeben wurde, ist keine gültige XML-INTO-Prozedur."<O:p</O:p
2. "RNF7701 Datenstruktur PARTS ist für die Operation nicht zulässig."<O:p</O:p
<O:p</O:p

Auch ein Kollege, der bereits seit einigen Jahren RPG programmiert (ich erst seit ca. 6 Monaten), wird nicht mehr schlau daraus und ist am Ende mit seinem Latein.<O:p</O:p
<O:p</O:p

Hier noch mein Code. Vielen Dank schonmal im Voraus für eure Hilfe.:)
<O:p</O:p
</O:p



FTEST04P UF A E DISK
F*
D OPTIONS S 100A
D ALLOK S N
D
D PARTHANDLER PR 10I 0
D OK N
D PARTS LIKEREC(PARTREC) DIM(10)
D NUMRECS 10U 0
/free
OPTIONS = 'PATH=PARTS/PART CASE=ANY DOC=FILE';
ALLOK = *ON;

XML-INTO %HANDLER(partHandler : ALLOK)
%XML('/SPM/3856330.XML' : OPTIONS);

IF NOT ALLOK;

ENDIF;

/end-free

C SETON LR

PpartHandler B
D PI 10I 0
DOK 1N
DPARTS LIKEREC(PARTREC) DIM(10)
DNUMRECS 10U 0
DI S 10I 0
DXMLRECNUM S 10I 0 STATIC INZ(0)
D*
/FREE
FOR I = 1 TO NUMRECS;
XMLRECNUM = XMLRECNUM + 1;
WRITE(E) PARTREC PARTS(I);

IF %ERROR;
OK = *OFF;
ENDIF;
ENDFOR;
RETURN 0 ;
/END-FREE
PpartHandler E <O:p</O:p

Die physische Datei (Name TEST04P) sieht so aus:


A R PARTREC

A* **********
A ID 10P 0
A QTY 10P 0
A COST 7P 2

[mk]

HI,

mal eine kleine Frage

Müsste der Aufruf der Prozedur nicht so aussehen ?

XML-INTO %HANDLER(partHandler ( ALLOK
:%XML('/SPM/3856330.XML') : OPTIONS);


gruß
michael

[mk]

Hi,

sorry da war ich wohl falsch unterwegs.

Hier aber noch ein hilfreicher Link
XML-INTO: Output to Array Larger than 16 MB (http://www.iprodeveloper.com/article/rpg-programming/xml-into-output-to-array-larger-than-16-mb-63424)

[andreaspr@aon.at]

Hast du schon probiert den die Handler-Proc genau so zu definieren wie in der Doku beschrieben?

D info DS
D attrName 20A VARYING
D haveAttr N
D attrValue 20A VARYING
* Prototype for procedure "myHandler" defining
* the communication-area parameter as being
* like data structure "info"
D myHandler PR 10I 0
D commArea LIKEDS(info)
D event 10I 0 VALUE
D string * VALUE
D stringLen 20I 0 VALUE
D exceptionId 10I 0 VALUE

lg Andreas

[Zerberus77]

Hallo Gutmann,

kann es daran liegen, dass du oben DPARTHANDLER (also nur in Grossbuchstaben) geschrieben hast, unten dann aber partHandler verwendest?

MFG Zerberus

[Gutmann]

Danke für die bisherigen Ideen/Hilfen,
leider besteht das Problem immer noch.

@Andreas: Habe mir den Eintrag im Handbuch angeschaut, hat mir zwar geholfen zu verstehen, wie der Handler arbeitet und aufgerufen wird, aber leider ist der Code für einen XML-SAX Aufruf vorgesehen.
Für XML-Into muss der Parameter eigentlich nur aus drei Feldern bestehen (Link (http://publib.boulder.ibm.com/infocenter/iadthelp/v7r0/index.jsp?topic=/com.ibm.etools.iseries.langref.doc/c0925086817.htm)), demnach kann ich die CommArea beliebig definieren und jeden Wert oder Datenstruktur übergeben, solange in der Prozedur die gleichen Angaben gemacht werden.

@Zerberus: Habe es gerade mal getestet und alle Felder in der gleichen Groß-Kleinschreibweise wie bei partHandler gebracht, aber ohne Erfolg, weiterhin die gleichen Fehlermeldungen beim Umwandeln.

[andreaspr@aon.at]

Das einzige was mir jetzt noch aufgefallen ist, war die Definition der Prozedur.
Häng mal den VALUE beim Prototyp und der Prozedur selbst mal dran, damit der Wert nicht als Referenz übergeben wird.


D PARTHANDLER PR 10I 0
D OK N
D PARTS LIKEREC(PARTREC) DIM(10)
D NUMRECS 10U 0 VALUE

[camouflage]

Hi

Vielleicht hilft Dir dieser Link etwas. Ich vermute mal, die ganze Krux hängt am Prototype.
%Handling XML-INTO Problems | RPG (http://www.mcpressonline.com/rpg/handling-xml-into-problems.html)

[B.Hauser]

... und sicherheitshalber noch einen CONST beim 2. Parameter

D PARTHANDLER PR 10I 0
D OK N
D PARTS LIKEREC(PARTREC) DIM(10) CONST
D NUMRECS 10U 0 VALUE

... sollte natürlich auch beim Procedure Interface angegeben werden!

Birgitta

[Gutmann]

Hallo,

tausend Dank, es klappt :D.

Warum ich kein VALUE mehr beim dritten Paramter stehen hatte, ist mir schleierhaft, aber mit gings noch immer nicht bzw. noch nicht.
Erst mit CONST beim zweiten Parameter hat es geklappt. Jetzt wird zwar noch immer die Geschichte wegen: "Datenstruktur PARTS ist für die Operation nicht zulässig" angemeckert, aber ich kann das Programm jetzt ohne Write-Anweisung in der Prozedur umwandeln und die Werte aus dem XML werden korrekt in PARTS(i) geschoben.
Für das Problem beim Write find ich sicher irgendnen Work-Around, von daher nochmal tausend Dank für die super schnelle Hilfe und allen noch einen schönen Tag :)

*EDIT:
Gerade über einen anderen Thread gestolpert, womit auch das Problem beim WRITE behoben wird (Link (http://newsolutions.de/forum-systemi-as400-i5-iseries/newsboard-programmierung/12330-write-mit-ds-rnf7701.html#post50849)).
Ich muss lediglich bei beiden LIKEREC(PARTREC: *OUTPUT) eintragen und schon läuft alles wie geschmiert.