Building Applications for UNIX** Environments

MIPSpro Fortran-77

The script file, bldf77, in sqllib/samples/fortran, contains the commands to build a sample Fortran 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. The third 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 # bldf77 script file # Builds a Fortran program that contains embedded SQL # Usage: bldf77 <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.sqf bindfile # Bind the program to the database. db2 bind $1.bnd # Disconnect from the database. db2 connect reset # Compile the util.f error-checking utility. f77 -n32 -I/opt/IBMdb2/V5.0/include -w -c util.f # Compile the program. f77 -n32 -I/opt/IBMdb2/V5.0/include -w -c $1.f # Link the program. f77 -n32 -o $1 $1.o util.o -L/opt/IBMdb2/V5.0/lib -rpath /opt/IBMdb2/V5.0/lib -ldb2

Compile and Link Options for bldf77
The script file contains the following compile options: f77 The Fortran compiler. -n32 Generate an n32 object. -Ipath Specify the location of the DB2 include files. For example: -I/opt/IBMdb2/V5.0/include. -w Suppress warning messages. -c Perform compile only; no link. This book assumes that compile and link are separate steps.
The script file contains the following link options: f77 Use the compiler to link edit. -n32 Use the n32 object. -o $1 Specify the name of the object module. util.o Include the object file for error checking. -Lpath Specify the location of the DB2 static and shared libraries at link-time. For example: -L/opt/IBMdb2/V5.0/lib. -rpath path Specify the location of the DB2 shared libraries at run-time. For example: -rpath /opt/IBMdb2/V5.0/lib. -ldb2 Link with the DB2 library. Refer to your compiler documentation for additional compiler options.

To build the sample program updat from the source file updat.sqf, connecting to the sample database on the server, enter:

bldf77 updat remote_database userid password

where

remote_database

Is the name of the database to which you want to connect. The name could be sample, or its remote alias, or some other name.

userid

Is a valid user ID.

password

Is a valid password.

The result is an executable file, updat. To run the executable file against the sample database, enter:

updat

Building the Fortran Client Application for Stored Procedures

Stored procedures are programs that access the database and return information to the client application. You compile and store stored procedures on the server. The server runs on another platform.

To build the stored procedure outsrv on a UNIX server, refer to the embedded SQL chapter for that platform in this book. If you are using an OS/2 or Windows server, refer to the embedded SQL chapter for that platform in Building Applications for Windows and OS/2 Environments.

Once you build the stored procedure outsrv, you can build outcli that calls the stored procedure. You can build outcli using the bldf77 script file. Refer to "MIPSpro Fortran-77" for details.

To call the stored procedure, run the client application by entering:

outcli

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.

[ DB2 List of Books | Search the DB2 Books ]