-
Zitat von Rainer Ross
Hallo Rischer,
ich mache relativ viel mit IBM i, Webanwendungen, AJAX und JSON.
Die Maschine hat 7.2 mit dem neuesten PTF-Stand und CCSID 1141 im Systemwert QCCSID.
Mit folgenden Schritten läuft das Beispiel auf meiner Maschine:
1. JSON-SQL-Funktionen einrichten
qsh
/QIBM/ProdData/OS/SQLLIB/bin/db2nosql -setup enable
2. Datei erstellen
create or replace table tsto.wrkjson
(jsid int generated always as identity (start with 1 increment by 1),
json_info blob(3M) not null,
primary key(jsid));
Label on Column wrkjson (jsid is 'Id');
Label on Column wrkjson (json_info is 'JSON-Info');
3. JSON-Daten einfügen
INSERT INTO tsto.wrkjson (JSON_INFO)
VALUES ( SYSTOOLS.JSON2BSON('{"detail":"hilfe"}'))
INSERT INTO tsto.wrkjson (JSON_INFO)
VALUES ( SYSTOOLS.JSON2BSON('{"detail":"hilfe2"}'))
4. JSON-Daten auslesen
select jsid,json_val(json_info,'detail','s') as info
from tsto.wrkjson
Anfang auf Zeile . . . . . .
....+....1....+....2....+....3....+....4....
Id INFO
1 hilfe
2 hilfe2
******** Datenende ********
Jetzt mit einem komplexeren Beispiel
PHP-Code:
INSERT INTO tsto.wrkjson (JSON_INFO) VALUES ( SYSTOOLS.JSON2BSON('{ "kunde": [ { "id" :123456, "name":"Testname", "adresse": { "plz":86916, "ort":"Kaufering" } }] }'))
select jsid, json_val(json_info,'kunde.id','i') as Id, substr(json_val(json_info,'kunde.name','s') , 1 , 20) as Name, json_val(json_info,'kunde.adresse.plz','i') as PLZ, substr(json_val(json_info,'kunde.adresse.ort','s') , 1 , 20) as Ort from tsto.wrkjson
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 Id ID NAME PLZ ORT 1 123.456 Testname 86.916 Kaufering ******** Datenende ********
Herzliche Grüße
Rainer
Hallo!
Danke für die vielen Antworten und Hilfe.
Im Prinzip funktioniert alles wie beschriebeh in den Tech Tips und auch wie Rainer Ross beschrieben hat.
Ich hatte mich nur am Anfang mit den CCSID's verzettelt, es funkt tatsächlich wirklich alles selbst mit CCSID 1141.
@Rainer Ross
MIr mag eine variable Abfrage aller Elemente und aller Subfelder eines Arrays einfach nicht gelingen. Sprich lt. Deinem Beispiel eine Variable abfrage all Deiner Partner Kunden im Array (wenn Du mehrere hättest)....
-
Hallo Rischer,
anbei ein einfaches Beispiel für ein Array mit zwei Kunden
PHP-Code:
INSERT INTO tsto.wrkjson (JSON_INFO) VALUES ( SYSTOOLS.JSON2BSON('{ "kunde": [ {"id" :123456,"name":"Testname"}, {"id" :234567,"name":"Testname2"} ] }'))
select jsid, json_val(json_info,'kunde.0.id','i') as Kunde1, substr(json_val(json_info,'kunde.0.name','s') , 1 , 15) as Name1, json_val(json_info,'kunde.1.id','i') as Kunde2, substr(json_val(json_info,'kunde.1.name','s') , 1 , 15) as Name2 from tsto.wrkjson ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 Id KUNDE1 NAME1 KUNDE2 NAME2 1 123.456 Testname 234.567 Testname2 ******** Datenende ********
Anzahl der Kunden im Array
PHP-Code:
select systools.json_len(json_info,'kunde') from tsto.wrkjson
....+....1.... JSON_LEN 2
In JSON fangen die Arrays mit Null an. Die erste Kunden-id ist
kunde.0.id
Es gibt auch die Funktion JSON_TABLE, aber damit habe ich noch keine Erfahrung.
http://www.mcpressonline.com/databas...db2-for-i.html
Schönes Wochenende
Rainer
-
Hallo Rischer,
ich hab mit den Arrays etwas rumprobiert:
PHP-Code:
Kundendaten im Array:
select value from tsto.wrkjson, table(systools.json_table(json_info,'kunde','s:32')) as x
Kunden-Ids im Array:
select value from tsto.wrkjson, table(systools.json_table(json_info,'kunde.id','i')) as x
Quelle: http://www.volubis.fr/news/liens/courshtm/XML/JSON.HTM
Herzliche Grüße
Rainer
-
Zitat von Rainer Ross
Hallo Rischer,
ich hab mit den Arrays etwas rumprobiert:
PHP-Code:
Kundendaten im Array:
select value from tsto.wrkjson, table(systools.json_table(json_info,'kunde','s:32')) as x
Kunden-Ids im Array:
select value from tsto.wrkjson, table(systools.json_table(json_info,'kunde.id','i')) as x
Quelle: http://www.volubis.fr/news/liens/courshtm/XML/JSON.HTM
Herzliche Grüße
Rainer
Interessant, will aber bei mir nicht funken.
Ich habe ein JSON-Array in meiner Datenbank das so aussieht:
PHP-Code:
{ "displayinformation": {"detail": [{"name":"ZZESCD","contentdecimal":null,"contentstring":"", "type":"string", "colour":"GRN", "visible": true, "protected": false, "underlined": false, "highlighted": false, "haserror": false, "desciption": false},{"name":"ZZIITX","contentdecimal":null,"contentstring":"ÄNDERN", "type":"string", "colour":"GRN", "visible": true, "protected": false, "underlined": false, "highlighted": false, "haserror": false, "desciption": false},{"name":"Z1ZXSB","contentdecimal":null,"contentstring":"", "type":"string", "colour":"GRN", "visible": true, "protected": false, "underlined": false, "highlighted": false, "haserror": false, "desciption": false}]}}
Setze ich ein Select darauf ab a la:
select
value from tsto.wrkjson,
table(systools.json_table(json_info,'displayinform ation.detail','s:32')) as x
bekomme ich kein Ergebnis angezeigt (aber auch keinen Fehler).
Mache ich es so:
select
cast(data1.value as varchar(20) ccsid 1141) as name,
from
tsto.wrkjson j, table
(systools.json_table(j.JSON_INFO,'displayinformati on.detail.name','s
:20')) data1
Dann bekomme ich x (Anzahl der Elemente im Array) Records mit dem Inhalt von Name.
Ohne Cast geht es bei mir übrigends nicht (obwohl ich CCSID 1141 im Job habe), sonst bekomme ich kryptische Zeichen angezeigt.
Was ich bräuchte wäre die dynamische Auslesung aller Inhalte eines Array-elements also name, string, colour etc. auf einmal. Das hab ich noch nicht geschafft.....
-
Zitat von rischer
Interessant, will aber bei mir nicht funken.
Ich habe ein JSON-Array in meiner Datenbank das so aussieht:
PHP-Code:
{ "displayinformation": {"detail": [{"name":"ZZESCD","contentdecimal":null,"contentstring":"", "type":"string", "colour":"GRN", "visible": true, "protected": false, "underlined": false, "highlighted": false, "haserror": false, "desciption": false},{"name":"ZZIITX","contentdecimal":null,"contentstring":"ÄNDERN", "type":"string", "colour":"GRN", "visible": true, "protected": false, "underlined": false, "highlighted": false, "haserror": false, "desciption": false},{"name":"Z1ZXSB","contentdecimal":null,"contentstring":"", "type":"string", "colour":"GRN", "visible": true, "protected": false, "underlined": false, "highlighted": false, "haserror": false, "desciption": false}]}}
Setze ich ein Select darauf ab a la:
select
value from tsto.wrkjson,
table(systools.json_table(json_info,'displayinform ation.detail','s:32')) as x
bekomme ich kein Ergebnis angezeigt (aber auch keinen Fehler).
Mache ich es so:
select
cast(data1.value as varchar(20) ccsid 1141) as name,
from
tsto.wrkjson j, table
(systools.json_table(j.JSON_INFO,'displayinformati on.detail.name','s
:20')) data1
Dann bekomme ich x (Anzahl der Elemente im Array) Records mit dem Inhalt von Name.
Ohne Cast geht es bei mir übrigends nicht (obwohl ich CCSID 1141 im Job habe), sonst bekomme ich kryptische Zeichen angezeigt.
Was ich bräuchte wäre die dynamische Auslesung aller Inhalte eines Array-elements also name, string, colour etc. auf einmal. Das hab ich noch nicht geschafft.....
So funkts zumindest jetzt bei mir zufriedenstellend:
select
cast(value as varchar(200) ccsid 1141) from tsto.wrkjsopn,
table(systools.json_table(json_info,'displayinform ation.detail',
's:200')) as x
das ist so halbwegs zufriedenstellend aber folgendes ist besser:
select
substr(JSON_VAL(x.value,'name','s:10'), 1, 10) as Name,
substr(JSON_VAL(x.value,'type','s:5'), 1, 7) as Typ,
substr(JSON_VAL(x.value,'colour','s:3'), 1, 3) as Colour
from tsto.wrkjson,
table(systools.json_table_binary
(json_info,'displayinformation.detail',
's:200')) as x
Wobei das 's:200' die maximale Grösse eines Elements im Array abdecken muß, sonst gehts wieder nicht... ob dann aber aus diesem Element auch andere Datentypen extrahieren kann wird sich weisen...
-
Ich denke mal, das Ergebnis kommt wieder als UTF-8 an (das sind ASCII-Zeichen).
Für die Lesbarkeit am Terminal brauchst du natürlich EBCDIC, daher der Cast.
Eine Weitergabe als Webservice o.ä. benötigt natürlich keine weitere Umwandlung da dort ja meist UTF-8 ausgegeben werden muss.
-
Danke an alle die mich mit hilfreichen Tipps unterstützt haben.
Funkt alles zur Zeit bestens wie gewollt.
Eine Frage hätt ich dann doch noch ;-):
Ich bekomme vom Webservice über das Api QtmhRdStin ja den Browserstream (as JSON) in mein ILERPG rein, übersetze diesen von 1208 nach 1141 und speichere diesen via embedded SQL in meiner JSON-Datenbank via SYSTOOLS.JSON2BSON .
Der QtmhRdStin-In-Stream kann mit einer beliebig grossen Variable definiert werden, jedoch das Embedded SQL erlaubt nur eine Host-Variable bis zu einer Höhe von ca. 32700.
Was, wenn über den Browser mal mehr als 32700 Zeichen reinflattern - hat jemand dafür bereits eine Lösung oder eine Idee?
Danke im Voraus!
-
Dafür musst du mal das Thema LOB's in ILERPG nachlesen.
Im SNGLVL-Storage kann eine Variable 16MB groß sein, im Teraspace eben auch 1 Terabyte (bis die Kiste runterfährt).
Das Stichwort hier ist ggf. auch Lob-Locator, da normale BLOB's und CLOB's auch 32K nicht übersteigen dürfen.
Ich denke, Birgitta sollte hier aushelfen können.
-
V7R1 ist da schon wieder besser:
http://www-01.ibm.com/support/knowle...st.htm?lang=de
Du kannst Variablen auch dynamisch per Pointer bearbeiten und anlegen, siehe hierzu %alloc(), %dealloc() um nicht permanent den maximal möglichen Speicher vorzuhalten.
-
Und hier gibt's auch ein paar Beispiele:
http://www.ibmsystemsmag.com/ibmi/de...CLOBs-and-RPG/
Vom Datum her kann man mal sehen wie lange es das schon gibt.
-
Das API QtmhRdStin hat folgende Parameter
PHP-Code:
dcl-pr readstdin extproc('QtmhRdStin'); tmhdata pointer value; tmhdatlen int(10) const; tmhavail int(10) const; tmerror like(d#apierr) const; end-pr;
Die Länge der Daten ist int(10), damit können sie bis max 2.147.483.647 Byte gross sein. Ich benutze das API, um z.B. PDF's auf den Server hochzuladen.
Ein CLOB oder BLOB-Feld kann maximal 16MB gross sein. Das sollte auch ausreichen.
Wie Fürchau schon richtig gesagt hat, kannst Du über Locator arbeiten, oder es wie folgt definieren
PHP-Code:
dcl-s s#file sqltype(CLOB_FILE); dcl-s s#clob sqltype(CLOB:16000000); dcl-s s#loc sqltype(CLOB_Locator);
Viele Grüße
Rainer
-
LOB-Variablen (z.B. SQLTYPE(CLOB: 10000000) können nur bis 16MB definiert werden.
LOB Locators (z.B. SQLTYPE(CLOB) sind (versteckte) Pointer die auf ein bis 2 GB großes LOB zeigen.
Auf LOB-Locators kann mit native RPG-OpCodes und Built-In-Functions nicht zugegriffen werden, aber mit embedded SQL können LOB-Locators mit SQL-Funktionen wie alphanumerische Felder behandelt werden, z.B. können LOBs mit LOCATE durchsucht, oder Teile mit SUBSTR herausgebrochen werden. Die Verarbeitung von LOB Locators muss unter Commitment Control erfolgen, da der Locator wieder freigegeben werden muss. Die Freigabe erfolgt über COMMIT / ROLLBACK oder FREE Locator.
File-Referenz-Variablen (z.B. SQLTYPE(CLOB_FILE)) sind wie Locators versteckte Pointer, die jedoch auf eine Datei im IFS oder eine Teil-Datei zeigen. Auf diese File-Referenz-Variablen kann man mit SQL-Funktionen wie auf alphanumerische Felder zugreifen. Im Gegensatz zu den Locators muss die Verarbeitung von File-Referenz-Variablen nicht zwangsläufig unter COMMIT erfolgen.
Birgitta
Eine Anmerkung noch: Wenn mit LOB-Locators gearbeitet wird, muss die Verarbeitung unter Commitment Control erfolgen.
Similar Threads
-
By dschroeder in forum NEWSboard Programmierung
Antworten: 25
Letzter Beitrag: 14-02-18, 11:11
Tags for this Thread
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks