2.4.2 To Call sql.acu from a Program

You can also call sql.acu from within a COBOL program. The syntax is:

call "sql.acu" using mysql-command

The SQL command may be up to 50,000 characters in length and may be a variable or a quoted command string in the CALL statement.

Note: The sql.acu utility may be used only with SQL commands that are data definition statements (those that do not return data). Be sure to end each SQL command with a semicolon (;).

Example

IDENTIFICATION DIVISION.
program-id.  command.
This program demonstrates how to use
* the sql.acu command to issue data
* definition commands to the RDBMS.
DATA DIVISION.
working-storage section.
01 sql-command                       pic x(75).
01 error-status.
     03 primary-error                pic x(2).
     03 secondary-error              pic x(40).
01 error-text                        pic x(40).
01 error-window                      pic x(10).
PROCEDURE DIVISION.
main-logic.  display window erase.
     display window line 20, column 2
            size 75, lines 3, boxed,
            top title "SQL COMMAND",
            bottom right title "Return to exit".
     perform do-sql-command, with test after,
            until sql-command = spaces.
stop run.
do-sql-command.
     accept sql-command, line 1, column 1,
        erase to end of line.
if sql-command not = spaces
call "sql.acu" using sql-command
if return-code not zero
perform show-error.
show-error.
     display window line 2, column 2,
        size 75 lines 6, boxed, erase,
        pop-up area is error-window.
     call "C$RERR" using error-status,
        error-text.
     display "DATABASE ERROR:",
        secondary-error.
display error-text.
accept omitted.
close window error-window.
     display window line 20, column 2,
        size 75, lines 3.