200 - Midrange Magazin

die jeweilige Variante. Damit es nichtzu kompliziert wird, sehen Sie in Abbildung2 ein konkretes Beispiel für dieOperation mit der Variante 1.%XML Optionenó DOC definiert, ob die „Daten“ ineinem String (doc=string) oder in einerDatei (doc=file) gespeichert sind.Unterlassungswert = stringó PATH spezifiziert den Pfad (Suchbaum)der zu verarbeitenden Dateninnerhalb des XML-Dokuments.ó CCSID gibt CCSID für die Verarbeitungdes XML-Dokuments an. MöglicheWerte sind:– ccsid=best (Unterlassungswert)– ccsid=job– ccsid=ucs2ó CASE spezifiziert die Schreibweisevon Element- und Attributnamen imXML-Dokument:– case=lower (Unterlassungswert)alle Namen in Kleinschrift– case=upper alle Name in Großschrift– case=any Namen in Groß- undKleinschrift (Mix)ó TRIM spezifiziert, ob sogenannte„Whitespace“-Zeichen (wie zum Beispielnewline, carriage return, Tabsusw.) automatisch entfernt werdensollen. Mögliche Werte:– trim=all (Unterlassungswert)– trim=noneó ALLOWMISSING allowmissing=yesgibt an, dass die RPG-Datenstruktur,die die Daten „aufnehmen“ soll, zusätzlicheFelder/Subfelder gegenüberdem XML-Dokument enthalten darf.Das gilt auch für die Anzahl der Elemente(Arrays) in der Datenstruktur.allowmissing=no (Unterlassungswert)= Abweichungen sind nichterlaubt.ó ALLOWEXTRA allowextra=yes gibtan, dass das XML-Dokument zusätzlicheElement-/Attributnamenenthalten darf, die in der RPG-Datenstrukturnicht angegeben sind. Das4 beispiel> EVAL customersCUSTOMERS.CUSTOMER.KUNDENR(1) = '1 'CUSTOMERS.CUSTOMER.COMPANY(1) = 'MeiereiCUSTOMERS.CUSTOMER.ADDR1(1) = 'MeierCUSTOMERS.CUSTOMER.PLZ(1) = '67454 'CUSTOMERS.CUSTOMER.ORT(1) = 'MeiertalCUSTOMERS.CUSTOMER.KUNDENR(2) = '2 'CUSTOMERS.CUSTOMER.COMPANY(2) = 'MüllereiCUSTOMERS.CUSTOMER.ADDR1(2) = 'MüllerCUSTOMERS.CUSTOMER.PLZ(2) = '67000 'CUSTOMERS.CUSTOMER.ORT(2) = 'MüllertalCUSTOMERS.CUSTOMER.KUNDENR(3) = '3 'CUSTOMERS.CUSTOMER.COMPANY(3) = 'SchlossereiCUSTOMERS.CUSTOMER.ADDR1(3) = 'SchlosserCUSTOMERS.CUSTOMER.PLZ(3) = '67001 'CUSTOMERS.CUSTOMER.ORT(3) = 'Schlossertal5 beispielh debug(*input)dsdsd err_msg 91 170d xml_rc 368 371b 0D kunde ds qualifiedD kundenr 5D company 30D addr1 30d plz 10D ort 30D custoin ds qualifiedd customerlikeds(kunde)d1dim(3)/freexml-into(e) custoin %xml('XML/custom.xml' :'doc=File ' +1'path=customers ' +'allowmissing=yes ' +'allowextra=yes ');2*inlr = *on;/end-freegilt auch für die Anzahl der Elemente(Arrays in der Datenstruktur).allowextra=no (Unterlassungswert) =Abweichungen sind erlaubt.Zwischen dem Optionsschlüsselwort(Keyword) und dem Wert (Parameter)Wirgratulieren demMIDRANGE MAGAZINzur200.Ausgabe'''''''''1 Der Name der Datenstrukturweicht vom XML-Dokument ab.2 In diesem Fall ist die Option „path“erforderlich.dürfen keine Leerstellen stehen.Das RPG-Programm für das Einleseneines XML-Dokuments in eine Variable(Variante 1) – Beispiel 1 sehen Siein Abbildung 3; ALLOWMISSING undALLOWEXTRA sind dabei ohne Bedeu-09/2007 · MIDRANGE MAGAZIN67