Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Program Structure I

Download as pdf or txt
Download as pdf or txt
You are on page 1of 33

Welcome to:

Program Structure I

© Copyright IBM Corporation 2005


3.1.1
Course materials may not be reproduced in whole or in part without the prior written permission of IBM.
Unit Objectives
After completing this unit, you should be able to:
Embed INSERT, UPDATE, DELETE and single-row SELECT
statements in application programs
Effectively communicate with DB2 when processing NULL values
and determining success of statement execution
Demonstrate use of DB2 coding aids
Code CONNECT statements within an application program
Identify connection types and impacts on a unit of work

© Copyright IBM Corporation 2005


Supporting Embedded SQL
Use delimiters to identify SQL statements in the application
Use host variables to provide values on the WHERE clause or
receive values from SELECT statements
Use appropriate techniques to process null data
Use communications from DB2 to determine success or failure of
SQL statements

© Copyright IBM Corporation 2005


Delimiters (1 of 2)
Used by PRECOMPILER to identify SQL statements to be
translated
Must indicate beginning and end of each embedded SQL statement

EXEC SQL
COBOL
SQL statement END-EXEC.

C; C++; EXEC SQL


PL/I SQL statement ;

Java #sql { SQL statement } ;

EXEC SQL
FORTRAN X SQL statement

© Copyright IBM Corporation 2005


Delimiters (2 of 2)
SQL STATEMENT
UPDATE TEMPL
SET WORKDEPT = 'C02'
WHERE WORKDEPT = 'C01'
SQL STATEMENT in a COBOL PROGRAM
EXEC SQL
UPDATE TEMPL
SET WORKDEPT = 'C02'
WHERE WORKDEPT = 'C01'
END-EXEC.
SQL STATEMENT in a C or PL/I PROGRAM
EXEC SQL
UPDATE TEMPL
SET WORKDEPT='C02'
WHERE WORKDEPT = 'C01' ;
SQL STATEMENT in a JAVA PROGRAM
#sql { UPDATE TEMPL
SET WORKDEPT = 'C02'
WHERE WORKDEPT = 'C01' } ;

© Copyright IBM Corporation 2005


Host Variables
TO SUPPLY a VALUE
application
program C01

read "dept" value from screen

dept C01

SQL
. . . WHERE WORKDEPT = :dept

OPTIONAL, used to allow setting a value before statement


is executed
Host language label in SQL statement preceded by a colon
Host variable must match column data type
Not usable for DB2 names
(Tablename, columnname, . . .)
© Copyright IBM Corporation 2005
Host Variables - Insert - C Program
SQL statement
INSERT INTO TEMPL
( EMPNO, LASTNAME )
VALUES ( '000190', 'JONES' )

SQL statement in a program


EXEC SQL INSERT INTO TEMPL
( EMPNO, LASTNAME )
VALUES ( :empno, :name );

000190 JONES

empno name
© Copyright IBM Corporation 2005
Host Variables - Update - C Program

SQL statement
UPDATE TEMPL
SET SALARY = SALARY * 1.05
WHERE JOBCODE = 54

SQL statement in a program


EXEC SQL
UPDATE TEMPL
SET SALARY = SALARY * :percent
WHERE JOBCODE = :code;

54 1.05
code percent
© Copyright IBM Corporation 2005
Host Variables - To Receive a Value

TO RECEIVE A VALUE
SELECT . . . INTO :a . . .

REQUIRED with SELECT statement


One HOST VARIABLE for each COLUMN SELECTed
Host language label in SQL statement is preceded by a colon
Host variable declaration must match column data type
Additional variable may be used for indicating NULL characteristic

© Copyright IBM Corporation 2005


Receiving a Value - C Program

EXEC SQL name


SELECT LASTNAME, WORKDEPT
INTO :name, :deptno
deptno
FROM TEMPL
WHERE EMPNO = :empid;

empid

© Copyright IBM Corporation 2005


Declaring Host
Variables Language Definitions

GRAPHIC CHAR
FLOAT

Java
DB2
PL/I REFERENCE
LIBRARY

VARCHAR

DECIMAL COBOL

INTEGER

© Copyright IBM Corporation 2005


Declaring Host Variables - C Program

EXEC SQL BEGIN DECLARE


SECTION;
struct {
char empno[7];
char lastname[21];
} employee;
double percent;
long code;
EXEC SQL END DECLARE SECTION;

© Copyright IBM Corporation 2005


Declaration Considerations For C
CREATE TABLE SIMPLE
(TITLE CHAR (20) NOT NULL
NUMBER SMALLINT NOT NULL)
EXEC SQL BEGIN DECLARE SECTION;
char title [21];
short number;
EXEC SQL END DECLARE SECTION;
main( )
{
EXEC SQL
SELECT TITLE INTO :title
FROM SIMPLE
WHERE NUMBER = :number;
} © Copyright IBM Corporation 2005
DCLGEN
Generate table declaration -
db2dclgn (DCLGEN)
Creates structures for host
variables
Languages supported
C, Java, COBOL, FORTRAN
db2dclgn -D sample -T employee -L Java

© Copyright IBM Corporation 2005


Host Structure Support in C
EXEC SQL BEGIN DECLARE SECTION;
struct
{
short id;
struct
{
short length;
char data[10];
} name;
struct
{
short years;
double salary;
} info;
} staff_record;
EXEC SQL END DECLARE SECTION;
. . .
EXEC SQL SELECT id, name, years, salary INTO :staff_record FROM staff
WHERE id = 10;

EXEC SQL SELECT id, name, years, salary INTO :staff_record.id,


:staff_record.name, :staff_record.info.years,
:staff_record.info.salary FROM staff WHERE id = 10;

© Copyright IBM Corporation 2005


Indicator Variables

SELECT COLA INTO :a:aind

a value aind -

INDICATOR VARIABLE (SMALLINT) is required if SELECTed


column allows NULL
If column is NULL, INDICATOR VARIABLE is set to negative value,
VALUE VARIABLE is untouched
INDICATOR VARIABLE can be set to negative value by program to
indicate NULL on UPDATE or INSERT

© Copyright IBM Corporation 2005


Indicator Variables Example - C Program
CREATE TABLE TEMPL
(EMPNO CHAR(6) NOT NULL,
LASTNAME VARCHAR(20) NOT NULL,
JOBCODE CHAR(2),
WORKDEPT CHAR(3) NOT NULL,
PHONENO CHAR(10))

EXEC SQL
SELECT JOBCODE,WORKDEPT,PHONENO
INTO :JC :JCI, :DPT, :PHO:PHOI
FROM TEMPL
WHERE EMPNO = :ID;
EMPNO LASTNAME JOBCODE WORKDEPT PHONENO
(6) (20) 0-99 (3) (10)
000070 JOHNSON 54 C01 5137853210
000120 SCOTT ? C01 8592743091
000320 MILLIGAN ? C01 ?
id jc jci
dpt
pho phoi
© Copyright IBM Corporation 2005
Testing for NULL on Select - C Program

EXEC SQL
SELECT PHONENO, SEX
INTO :phoneno :phoneind, :sex
FROM TEMPL
WHERE EMPNO = :eno;

if (phoneind < 0)
null_phone ();
else
good_phone ();

© Copyright IBM Corporation 2005


Passing NULL Value - C Program

if (some condition)
phoneind = -1;
else
phoneind = 0;

EXEC SQL
UPDATE TEMPL
SET PHONENO = :newphoneno :phoneind
WHERE EMPNO = :eno;

© Copyright IBM Corporation 2005


Indicator Variable Usage - NULL Values

HOST INDICATOR
VARIABLE VARIABLE COLUMN
:CD :CDI JOBCODE
60 0 60
SELECT/FETCH
UNCHANGED <0 NULL

UPDATE/INSERT 50 0 50
N/A <0 NULL

DB2 MANIPULATES INDICATOR

PROGRAM MANIPULATES INDICATOR

© Copyright IBM Corporation 2005


Indicator Variable
Usage - Numeric Conversion
Numeric conversion is handled by the database manager
Completed when host variable is of different type from
column
Normally transparent to the application
If column value cannot be stored in host variable
For example, DECIMAL(15) with 12 digits assigned to
INTEGER host variable
Results in -2 value in the indicator variable

© Copyright IBM Corporation 2005


SQLCA - SQL Communication Area

S
Q Information / SQLCODE
Program L
C
A

Executable SQL
DB2

© Copyright IBM Corporation 2005


SQLCODE and SQLSTATE

SQLCODE Detailed
Possibly platform dependent
Numeric

SQLSTATE First two characters - general


All five characters - more information
Not as detailed as SQLCODE,
but not as platform dependent

© Copyright IBM Corporation 2005


SQLCA Codes

INTEGER CHAR(5)
CONDITION SQLCODE SQLSTATE REQUEST STATUS

<0 >"02nnn" FAILED


ERROR
SATISFIED WITH
>0 & SPECIAL CONDITION
WARNING "01nnn"
<> 100 (SQLWARN0 = 'W')

(MORE)
NOTFOUND +100 "02nnn" DATA NOT FOUND

SUCCESS "00000"
0
SUCCESS

© Copyright IBM Corporation 2005


SQLCA Warnings
IF SQLWARN0 contains:
' ' -- SQLWARN1-A are all blank
'W' -- One or more of SQLWARN1-A is 'W'
SQLWARN1 -- String value truncated on assignment to host variable

SQLWARN2 -- NULL value(s) eliminated from evaluation of a column


function

SQLWARN3 -- Number of columns greater that number of host


variables

SQLWARN4 -- Prepared update or delete has no "WHERE" clause

SQLWARN6 -- DATE or TIMESTAMP value adjusted to correct an


invalid date resulting from arithmetic operation

SQLWARN8 -- Character that could not be converted was replaced


with a substitution character

SQLWARN9 -- Arithmetic expressions with errors ignored during


column function processing

SQLWARNA -- A conversion error was detected when converting a


character data value one of the fields in the SQLCA
© Copyright IBM Corporation 2005
SQLCA SQLERRD Third Element

PROGRAM:

SQLCA NUMBER
SQLCODE OF ROWS
SQLWARN0 AFFECTED
SQLERRD(3) DB2

INSERT T
ES
U
E Q
UPDATE R

DELETE

© Copyright IBM Corporation 2005


Coding Aids
WHENEVER Statement
For exception handling
Error message formatting routine
(z/OS platform) CALL 'DSNTIAR'
(UNIX/Windows platform) sqlaintp/sqlgintp
INCLUDE statement and INCLUDE files
To add SQLCA/SQLDA structures to program and to provide
function prototypes

© Copyright IBM Corporation 2005


WHENEVER Statement
EXEC SQL WHENEVER Condition Action;

Condition:
SQLERROR
Negative SQLCODE
SQLWARNING
Positive SQLCODE (not +100)
Or SQLWARN0 = 'W'
NOT FOUND
SQLCODE = +100
Action:
GO TO :X
Control transferred to statement labelled X
CONTINUE
Program continues with next statement
Used to cancel effect of prior WHENEVER

© Copyright IBM Corporation 2005


Get Error Message
Invoke sqlaintp() and pass it:
Output buffer
Size of buffer
Line lengths
Address of SQLCA
FORTRAN and COBOL use sqlgintp()

© Copyright IBM Corporation 2005


Alternative to WHENEVER - C Program
SQL statement
if (SQLCODE < 0)
process_error(&sqlca);
if (SQLCODE == 100)
printf("A record for key %d was not found \n", host_var);

void process_error (struct sqlca * sqlca)


{
char buffer [512];
short buff_size = sizeof(buffer);
short line_len = 50;

sqlaintp (buffer, buff_size, line_len, sqlca);


printf(buffer);
}
© Copyright IBM Corporation 2005
SQL INCLUDE Statement - C Program

To copy SQLCA, SQLDA, or textfile:


file.sqc file.c
EXEC SQL INCLUDE struct sqlca

...
SQLCA;
};
EXEC SQL BEGIN struct sqlca sqlca;
DECLARE SECTION;

EXEC SQL INCLUDE /* myfile.h contains


'myfile.h'; my host variables */

EXEC SQL END


DECLARE SECTION;

© Copyright IBM Corporation 2005


Program Flow Pseudocode

INCLUDE SQLCA

BEGIN DECLARE SECTION (optional in COBOL and PL/I)


define host variables
END DECLARE SECTION (optional in COBOL and PL/I)

Establish connection

Do database processing

COMMIT

© Copyright IBM Corporation 2005


Unit Summary
Having completed this unit, you should be able to:
Embed INSERT, UPDATE, DELETE and single-row SELECT
statements in application programs
Effectively communicate with DB2 when processing NULL values
and determining success of statement execution
Demonstrate use of DB2 coding aids
Code CONNECT statements within an application program
Identify connection types and impacts on a unit of work

© Copyright IBM Corporation 2005

You might also like