HTTP WebServices & Dynamische Verarbeitung ... für mich wäre hier zunächst mal PHP das besser geeignete Werkzeug dafür.
In RPG habe ich mal ein Beispiel-Code zusammengestellt um genau das was du möchtest zu realisieren.
Ist aber sicher kein Code den man für performancekritische Anwendungen verwenden sollte:
Code:
D vsql s 512
D vtype s 10
D vlength s 10 0
D vresult_ind s 10 0
D vCount S 10 0
D i S 10 0
/Free
// SQL Cursor erstellen
vSql = 'Select * From tab1';
Exec Sql Prepare S1 from :vsql;
Exec Sql Declare c1 Cursor For s1;
// Descriptor mit der max. Anzahl der Spalten initialisieren
Exec Sql allocate descriptor 'mydesc' with max 2;
EXEC SQL DESCRIBE S1 Using descriptor 'mydesc';
// Ersten Satz einlesen Exec Sql open c1;
Exec Sql Fetch c1 into sql descriptor 'mydesc';
// Anzahl der Spalten abrufen
EXEC SQL GET DESCRIPTOR 'mydesc' :vCount = COUNT;
// Alle Spalten mit deren Werte einlesen
For i=0 to vCount;
// Attribute der Spalte einlesen
Exec Sql GET DESCRIPTOR 'mydesc' VALUE :i :vtype = TYPE, :vlength = LENGTH, :vresult_ind = INDICATOR;
if vresult_ind >= 0;
Select;
When vtype = '1';
// Character exec Sql GET DESCRIPTOR 'mydesc' VALUE :i :sp2 = DATA;
When vtype = '4';
// Integer exec Sql GET DESCRIPTOR 'mydesc' VALUE :i :sp1 = DATA;
endsl;
endif;
endfor;
Exec Sql close c1;
/End-Free
lg Andreas
Bookmarks