... 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