EXECUTE

The EXECUTE statement executes a SQL statement.

General format

Format 1

EXEC SQL [AT Database]     EXECUTE Prepared-Statement [ USING Host-Variable, ... ] [ INTO Host-Variable, ... ]   END-EXEC

Format 2

EXEC SQL [AT Database]     EXECUTE IMMEDIATE Statement [ USING Host-Variable, ... ] [ INTO Host-Variable, ... ]   END-EXEC

Format 3

EXEC SQL [AT Database]     EXECUTE {BEGIN} [Plsql]            {DECLARE }   END-EXEC

Syntax rules

1.	Prepared-Statement is a Nonnumeric Literal, as defined in the Definitions section of the Preface of this document.

2.	Host-Variable is a host variable.

3.	Statement can be a host variable or a Nonnumeric Literal containing a complete SQL Statement.

4.	Plsql is a Nonnumeric Literal containing a PLSQL code.

General rules

1.	Prepared-Statement must be previously defined by a PREPARE statement.

2.	The isCOBOL compiler does not analyze PLSQL language. It only manages the host variables.

3.	Database identifies the active connection that will execute the query and must be previously defined using a Format 4 DECLARE statement.

Examples

Format 1 - Execute a prepared statement to count records that meet a criteria

*> count_recs does not need to be defined prior to *> their use in the prepare statement *> min-key and the-count could be pic 9(4) each   exec sql      prepare count_recs from          "select count(*) from cust_table where cust_code > ?" end-exec move 1990 to min-key exec sql      execute count_recs using :min-key               into :the-count end-exec   display "Count of records with key > " min-key " : " the-count

Format 2 - Execute inmmediate a statement to count records that meet a criteria

move 1990 to min-key exec sql      execute immediate               "select count(*) from cust_table where cust_code > ?"              using :min-key               into :the-count end-exec   display "Count of records with key > " min-key " : " the-count

Format 3 - To be used with Oracle Databases only using PL/SQL

exec sql   execute      DECLARE         bonus REAL;      BEGIN         FOR emp_rec IN (SELECT empno, sal, comm FROM emp) LOOP            bonus := (emp_rec.sal * 0.05) + (emp_rec.comm * 0.25);            INSERT INTO bonuses VALUES (emp_rec.empno, bonus);         END LOOP;         COMMIT;      END; end-exec