Forum

hier ein kleines Testprogramm, das 5 Zeilen einfügt:
( das I NSERT muss natürlich zusammen geschrieben werden, aber wenn ich das mache, bekommt das Forum einen internal error )

DBXXX: PROC OPTIONS(MAIN) ;  

exec sql include sqlca ;
dcl sqlstmt char(80) var ;    
dcl area(5) char(1) init (‚1′,’2′,’3′,’4′,’5‘);
dcl attr char(30) init (‚FOR MULTIPLE ROWS‘) ;  
dcl n bin fixed(15) init (5);

sqlstmt = ‚ I NSERT INTO hugo VALUES ( ? ) ‚;    
exec sql prepare stmt attributes :attr  from :sqlstmt;

put skip edit (‚PREPARE, SQLCODE =‘,sqlcode ) (a,a);  

exec sql execute stmt using :area for :n rows ;
put skip edit (‚EXECUTE, SQLCODE =‘,sqlcode ) (a,a);  
end dbxxx ;