... wie sonst auch:
Code:
D*B CRTSQLRPGI TSTVALUES
D*B+ OBJTYPE(*MODULE)
D*B+ DBGVIEW(*SOURCE)
D*B CRTPGM TSTVALUES
D*B+ ACTGRP(TSTVALUES)
d maxname s 30
d halstring s 128
halstring = 'values (select max(vorname) from covelenz) '
+ 'into ?';
exec sql
prepare s1 from :halstring;
exec sql
execute s1 using :maxname;
dsply maxname;
exec sql commit;
return;
das mit values und select into verstehe ich auch nicht, wahrscheinlich hat der erste Versuch das zu implementieren zu einem Bug im Parser beim parsen des Select geführt und dann hat man...
oder das war wieder so eine Kantinenwette, wo die SQL Crew mit der RPG Crew gewettet hat, dass man auch eine unnötige Anweisung im SQL unterkriegt...
D*B
Bookmarks