EXEC SQL [ AT Database ] FREE Host-Variable END-EXEC |
exec sql allocate :cur-hndl end-exec. exec sql execute begin open :cur-hndl for select * from emp; end; end-exec. exec sql fetch :cur-hndl into :empno,:ename end-exec. exec sql free :cur-hndl end-exec. |
working-storage section. ... 77 cmd handle. ... procedure division. ... exec sql prepare :cmd from "insert into cust_table values (2010,'Evan Raymond','New York')" end-exec exec sql execute :cmd end-exec exec sql free :cmd end-exec |