This example of portions of a COBOL program shows how an INSERT statement with parameter markers is prepared and executed.
EXEC SQL BEGIN DECLARE SECTION END-EXEC. 77 EMP PIC X(6). 77 PRJ PIC X(6). 77 ACT PIC S9(4) COMP-4. 77 TIM PIC S9(3)V9(2). 01 HOLDER. 49 HOLDER-LENGTH PIC S9(4) COMP-4. 49 HOLDER-VALUE PIC X(80). EXEC SQL END DECLARE SECTION END-EXEC. . . . MOVE 70 TO HOLDER-LENGTH. MOVE "INSERT INTO EMPPROJACT (EMPNO, PROJNO, ACTNO, EMPTIME) - "VALUES (?, ?, ?, ?)" TO HOLDER-VALUE. EXEC SQL PREPARE MYINSERT FROM :HOLDER END-EXEC. IF SQLCODE = 0 PERFORM DO-INSERT THRU END-DO-INSERT ELSE PERFORM ERROR-CONDITION. DO-INSERT. MOVE "000010" TO EMP. MOVE "AD3100" TO PRJ. MOVE 160 TO ACT. MOVE .50 TO TIM. EXEC SQL EXECUTE MYINSERT USING :EMP, :PRJ, :ACT, :TIM END-EXEC. END-DO-INSERT. . . .
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.