The script file bldcob, in sqllib/samples/cobol, contains the commands to build an embedded SQL sample COBOL program.
The first parameter, $1, specifies the name of your source file. The second parameter, $2, specifies the name of the database to which you want to connect. Parameter $3 specifies the user ID for the database, and $4 specifies the password. Only the first parameter, the source file name, is required. Database name, user ID, and password are optional. If no database name is supplied, the program uses the default sample database.
#! /bin/ksh
# bldcob script file
# Builds a COBOL program containing embedded SQL
# Usage: bldcob <prog_name> [ <db_name> [ <userid> <password> ]]
# Connect to a database.
if (($# < 2))
then
db2 connect to sample
elif (($# < 3))
then
db2 connect to $2
else
db2 connect to $2 user $3 using $4
fi
# Precompile the program.
db2 prep $1.sqb bindfile target ibmcob
# Bind the program to the database.
db2 bind $1.bnd
# Disconnect from the database.
db2 connect reset
# Compile the checkerr.cbl error checking utility.
cob2 -qpgmname\(mixed\) -qlib -I/usr/lpp/db2_05_00/include/cobol_a \
-c checkerr.cbl
# Compile the program.
cob2 -qpgmname\(mixed\) -qlib -I/usr/lpp/db2_05_00/include/cobol_a \
-c $1.cbl
# Link the program.
cob2 -o $1 $1.o checkerr.o -ldb2 -L/usr/lpp/db2_05_00/lib
|
| Compile and Link Options for bldcob |
|---|
|
The script file contains the following compile options:
|
|
The script file contains the following link options:
Refer to your compiler documentation for additional compiler
options.
|
To build the sample program updat from the source file updat.sqb, enter:
bldcob updat
The result is an executable file updat. You can run the executable file against the sample database by entering:
updat
| Note: | To build IBM COBOL applications that do not contain embedded SQL, you can use the script file bldcobapi. It contains the same compile and link options as bldcob, but does not connect, prep, bind, or disconnect from the sample database. It is used to compile and link DB2 API sample programs written in COBOL. |
The script file bldcobsrv, in sqllib/samples/cobol, contains the commands to build a stored procedure. The script file compiles the stored procedure into a shared library on the server that can be called by a client application.
The first parameter, $1, specifies the name of your source file. The second parameter, $2, specifies the name of the database to which you want to connect. Parameter $3 specifies the user ID for the database, and $4 specifies the password. Only the first parameter, the source file name, is required. Database name, user ID, and password are optional. If no database name is supplied, the program uses the default sample database.
The script file uses the source file name, $1, for the shared library name, and for the main entry point to the shared library.
#! /bin/ksh
# bldcobsrv script file
# Build a COBOL stored procedure.
# Usage: bldcobsrv <stor_proc_name> [ <db_name> [ <userid> <password> ]]
# Connect to a database.
if (($# < 2))
then
db2 connect to sample
elif (($# < 3))
then
db2 connect to $2
else
db2 connect to $2 user $3 using $4
fi
# Precompile the program.
db2 prep $1.sqb bindfile target ibmcob
# Bind the program to the database.
db2 bind $1.bnd
# Disconnect from the database.
db2 connect reset
# Compile the checkerr.cbl error checking utility.
cob2 -qpgmname\(mixed\) -qlib -I/usr/lpp/db2_05_00/include/cobol_a \
-c checkerr.cbl
# Compile the program.
cob2 -qpgmname\(mixed\) -qlib -c -I/usr/lpp/db2_05_00/include/cobol_a $1.cbl
# Link the program using the export file $1.exp
# creating a shared library called $1 with the main
# entry point $1.
cob2 -o $1 $1.o checkerr.o -H512 -T512 -e $1 -bE:$1.exp \
-L/usr/lpp/db2_05_00/lib -ldb2
# Copy the shared library to the sqllib/function subdirectory of the DB2 instance.
# Note: this assumes the user has write permission to this directory.
eval "H=~$DB2INSTANCE"
cp $1 $H/sqllib/function
|
| Compile and Link Options for bldcobsrv |
|---|
|
The script file contains the following compile options:
|
|
The script file contains the following link options:
Refer to your compiler documentation for additional compiler
options.
|
To build the sample program outsrv from the source file outsrv.sqb, enter:
bldcobsrv outsrv
The script file copies the stored procedure to the server in the path sqllib/function to indicate that the stored procedure is fenced. If you want the stored procedure to be unfenced, you must move it to the sqllib/function/unfenced directory. These paths are in the home directory of the DB2 instance.
| Note: | An unfenced stored procedure or UDF runs in the same address space as the database manager and results in increased performance when compared to a fenced stored procedure or UDF, which runs in an address space isolated from the database manager. With unfenced stored procedures or UDFs there is a danger that user code could accidentally or maliciously damage the database control structures. Therefore, you should only run unfenced stored procedures or UDFs when you need to maximize the performance benefits. Ensure these programs are thoroughly tested before running them as unfenced. Refer to the Embedded SQL Programming Guide for more information about fenced and unfenced stored procedures. |
If necessary, set the file mode for the stored procedure so the DB2 instance can run it.
Once you build the stored procedure outsrv, you can build the client application outcli that calls the stored procedure. You can build outcli using the bldcob script file. Refer to "IBM COBOL Set for AIX" for details.
To call the stored procedure, run the sample client application by entering:
outcli remote_database userid password
where
The client application passes a variable to the server program outsrv, which gives it a value and then returns the variable to the client application.
If you develop applications that contain embedded SQL and DB2 API calls, and you are using the IBM COBOL Set for AIX compiler, keep the following points in mind:
$HOME/sqllib/include/cobol_i
If you are building DB2 sample programs using the build scripts provided, the include file path specified in the build scripts must be changed to point to the cobol_i directory and not the cobol_a directory.
If you are NOT using the "System/390 host data type support" feature of the IBM COBOL Set for AIX compiler Version 2.0, or you are using an earlier version of this compiler, then the DB2 include files for your applications are in the following directory:
$HOME/sqllib/include/cobol_a
Specify COPY file names to include the .cbl extension as follows:
COPY "sql.cbl".