Modul JSON
Das Modul JSON stellt ein paar Routinen zum Umgang mit JSON bereit.
Inhaltsverzeichnis
#json_clearall
#json_clearall löscht die Liste der geparsten JSONs
Parameter
keine
Beispiel
#json_clearall
#json_parse
#json_parse parst ein JSON, das ist die Voraussetzung für den Einsatz der weiteren Routinen.
Es handelt sich dabei um eine nummerierte Prozedur. #json_parse parst in die ersten JSON-Daten, #json_parse2 in die zweiten und so weiter.
Parameter
- cnd ("condition") - wenn Y, dann wird die Prozedur ausgeführt; default Y, Funktionen werden ersetzt
- json - der Text, der geparst werden soll; Funktionen werden ersetzt
Beispiel
#http_request y=post cy="application/json" request=$TEXT(1) response=resp se=Y acc=application/json $CODE$ #cout c=$VAR(resp) #json_parse xml=$VAR(resp) #json_loop n=dat er=c_test2_line path=rest.searchCustomerResponse
#json_loop
#json_loop durchläuft die verschiedenen Items im Array eines geparsten JSON und führt dabei jeweils die in er genannte Subroutine aus. Auf die einzelnen Daten des JSONkann mit $JSON_DATA zugegriffen werden.
Es handelt sich dabei um eine nummerierte Prozedur. #json_loop loopt durch die ersten JSON-Daten, #json_loop2 durch die zweiten und so weiter.
Parameter
- cnd - ("condition") Die Prozedur wird nur dann ausgeführt, wenn das Statement in cnd Y ergibt. Default ist Y, Funktionen werden ersetzt
- db - ("database") Name der Datenbank, in der eine Transaktion gestartet wird, wenn ert = Y ist.
- er - ("each row") Das Kommando, das für jede Zeile der Datenmenge aufgerufen wird. Funktionen werden ersetzt.
- ern - ("each row no") Das Kommando, das für jede Zeile der Datenmenge aufgerufen wird. Funktionen werden nicht ersetzt. Wenn ern einen Wert hat, bleibt er unberücksichtigt. Üblicherweise wird er verwendet.
- ert - ("each row transaction") Wenn Y, wird für jede Zeile der Datenmenge eine eigene Transaktion gestartet und nach der Abarbeitung des Kommandos wieder geschlossen.
- m - ("maximum") Es wird maximal für die Anzahl der angegebenen Zeilen das in er angegebene Kommando ausgeführt. Dieser Parameter wird häufig dazu verwendet, während der Entwicklung mit einer geringen Zahl von Datensätzen zu arbeiten.
- nex ("no exception") - Wenn Y, wird bei Exceptions in er nicht abgebrochen, sondern mit dem nächsten Datensatz fortgesetzt. Default N, Funktionen werden ersetzt.
- n - Name der Datenmenge, wird benötigt, um mit $JSON_DATA() auf die einzelnen Felder zugreifen zu können.
- path - Pfad im JSON, der zu dem Array führt, durch das geloopt werden soll; Funktionen werden ersetzt
- sep ("separator") - Das Trennzeichen, mit dem die Elemente im Parameter path getrennt sind; Funktionen werden ersetzt, default ist der Punkt
Beispiel
siehe #json_parse
#json_chg
Ändert einen Wert in einem geparsten JSON.
Es handelt sich dabei um eine nummerierte Prozedur. #json_chg ändert in den ersten JSON-Daten, #json_chg2 in den zweiten und so weiter.
Parameter
- cnd ("condition") - wenn Y, dann wird die Prozedur ausgeführt; default Y, Funktionen werden ersetzt
- path - Pfad im JSON, der zu dem JSON-Feld führt
- sep ("separator") - Das Trennzeichen, mit dem die Elemente im Parameter path getrennt sind; Funktionen werden ersetzt, default ist der Punkt
- z - Wert, der in das XMLJSONFeld geschrieben wird; Funktionen werden ersetzt
Beispiel
#json_parse json=$VAR(resp) #json_chg path=rest.searchCustomerResponse.customer.firstName z=$PVAL(grid,firstName,looprow) #json_chg path=rest.searchCustomerResponse.customer.lastName z=$PVAL(grid,lastName,looprow) #json_chg path=rest.searchCustomerResponse.customer.contactData.phone z=$PVAL(grid,contactData.phone,looprow)
Das Beispiel zeigt einen Ausschnitt aus einem Save-Kommando: Zunächst werden die Daten über einen REST-Server geholt (das ist noch nicht im Beispiel-Code), geparst, dann werden einzelne Felder durch die Daten im Grid ersetzt, danach (auch wieder nicht im Beispiel-Code) werden die Daten zum REST-Server zurück geschrieben.
$XML_TEXT
Die Funktion $XML_TEXT erzeugt aus einem geparsten XML wieder einen Text.
Parameter
- Nummer des geparsten XML
- Typ
- flat - einfach nur der Text ohne Zeilenumbruch
- frm - formatiert
- optional: Pfad des Teils des geparsten XML, das in einen Text gewandelt werden soll; ohne diesen Parameter wird das gesamte geparste XML in einen Text gewandelt.
- optional: Trennzeichen, mit dem die Elemente im Pfad getrennt werden; default ist der Punkt
Beispiele
#text $XML_TEXT(1,frm,soap:Envelope.soap:Body.ns2:searchCustomerResponse.searchCustomerResponse.customer)
$XML_VALUE
$XML_VALUE gibt einen konkreten Wert aus einem geparsten XML zurück
Parameter
- Nummer des geparsten XML
- Pfad zum gewünschten Wert
- optional: Trennzeichen, mit dem die Elemente im Pfad getrennt werden; default ist der Punkt
Beispiel
#cout c=$XML_VALUE(1,soap:Envelope.soap:Body.ns2:searchCustomerResponse.searchCustomerResponse.customer.firstName)
$XML_DATA
$XML_DATA greift auf die einzelnen Felder eines Elementes eines XML-Arrays zu, durch das mit #xml_loop geloopt wird.
Parameter
- Name der XML-Loop (parameter n in #xml_loop)
- Pfad; bei Felder, die direkt unter der Loop-Ebene liegen, nur der Feldname, ansonsten ein entsprechender Pfad, siehe zweites Beispiel.
- optional: Trennzeichen, mit dem die Elemente im Pfad getrennt werden; default ist der Punkt
Beispiele
#cout c="$XML_DATA(xml,firstName) $XML_DATA(xml,lastName)" #cout c="$XML_DATA(xml,contactData.phone)"
$XML
$XML ermittelt einen Teil eines XMLs, das im Gegensatz zu den anderen Funktionen im Modul XML nicht geparst sein muss. Statt der Nummer eines geparsten XML wird der Name einer Variable angegeben, in der sich das XML befindet.
Parameter
- Name der Variable, in der sich das XML befindet
- Pfad; bei Felder, die direkt unter der Loop-Ebene liegen, nur der Feldname, ansonsten ein entsprechender Pfad, siehe zweites Beispiel.
- optional: Wenn Y, wird die Groß- und Kleinschreibung bei der Suche im XML ignoriert.
- optional: Trennzeichen, mit dem die Elemente im Pfad getrennt werden; default ist der Punkt
Beispiel
#http_request y=post cy="application/xml" request=$TEXT(1) response=resp se=Y acc=application/xml $CODE$ #val_set n=1 z=soap:Envelope.soap:Body.ns2:searchCustomerResponse.searchCustomerResponse.customer. #cout c="$XML(resp,$VAL(1)firstName)"
