Hallo zusammen,

da ich Rückgabeparameter aus meiner SQL-SP erwarte und es auch partout nicht funktioniert ein CL mit Parametern aufzurufen(weiß der Geier warum) habe ich den Umweg über eine RPG-Programm gemacht (mein allererstes ;-)) und das funktioniert prima.

d main PR extpgm('CALLSQLSP')
d pspname 10A
d pretval N
*-----------------------------------------------------------
d main PI
d pspname 10A
d pretval N
*-----------------------------------------------------------
/free
select;
when pspname = 'GETPRJNTZ';
exsr callGetNtz;
when pspname = 'GETPRJ';
exsr callGetPRJ;
when pspname = 'GETTIME';
exsr callGetTime;
when pspname = 'MKPREPPRJ';
exsr callPrepPrj;
WHEN pspname = 'GETIBPKOST';
exsr callSTDSTZ;
when pspname = 'CRT_IBRHG';
exsr callCrtRhg;
endsl;
return;
/end-free

C callGetNtz begsr
* Aufruf der stored procedure
C/exec sql
C+ call GETPRJNTZ (retval)
C/end-exec
C endsr

C callGetPrj begsr
* Aufruf der stored procedure
C/exec sql
C+ call GETPRJ (retval)
C/end-exec
...

hier stellt sich jetzt ein neues Problem.
Eine Prozedur benötigt einen weiteren Parameter (Monatserster des Vormonats) diesen will ich im gleichen RPG-Programm ermitteln, nur weiss ich nicht richtig wie?

Hat hier jemand einn Tipp?

PS: Ein ausgesprochenes Lob an das Forum, hier können sich andere Foren eine Scheibe abschneiden.


Grüße HP Kahn