Hallo zusammen,

ich möchte gern die alten Querys mit Hilfe einer Programms in SQL Befehle umbauen.
So weit so gut, wenn da nicht die verschiedenen Outputs wären.

Bisher geh ich wie folgt vor:

1. Bibliotheksliste holen
2. In Schleife die DSPOBJD aller Querys holen
3. RTVQMQRY pro Query
4. mit SQL die Überflüssigen Zeilen löschen (alles mit SRCSEQ <
(select min(srcseq) from xy where upper(srcdta) like '%SELECT' )

Damit habe ich alle Selects.

Nun fiel mir auf, dass sämtliche Output Angaben fehlen.
Ich bin dann bei meiner Suche auf Folgendes gestoßen:

Code:
QryObj = Qrslvsp(X'1911' :%trimr(file): %trimr(library): x'0000') ;
QryPointer = setsppfp(QryObj);
QryPointer = setsppo(QryPointer:260);
MemCpy(%Addr(Output):QryPointer:%size(Output));
Leider brach das bei setsppfp schon mit MCH6801 ab, da meine QSECURITY bei 40 liegt.

Hat von Euch jemand einen Lösungsvorschlag?
Gibt es eine Alternative zu setsppfp?

Bin für jede Hilfe dankbar!

mfG