SQL Programming Manual for TAL

Error and Status Processing
HP NonStop SQL Programming Manual for TAL—527887-001
6-3
Using the SQLCODE Variable
Figure 6-1. Checking the SQLCODE Variable
! Begin TMF transaction and check SQLCODE:
EXEC SQL BEGIN WORK;
IF SQLCODE < 0 THEN CALL handle^errors;
IF SQLCODE > 0 AND SQLCODE <> 100 THEN
CALL handle^warnings;
EXEC SQL INCLUDE SQLCA; ! Include the SQLCA structure !
! for detailed error information !
INT SQLCODE; ! Include the SQLCODE variable !
! for simple error checking !
EXEC SQL END DECLARE SECTION;
END;
EXEC SQL BEGIN DECLARE SECTION;
! Variable declarations
STRUCT .in^parts^rec;
BEGIN
INT in^partnum;
FIXED(2) in^price;
STRING in^partdesc[0:17];
. . .
PROC driver MAIN;
BEGIN
! Blank fill in^partdesc:
in^parts^rec.in^partdesc ':='
[ $OCCURS(in^parts^rec.in^partdesc) * [" "] ] ;
! Do an SQL INSERT into the parts table:
in^parts^rec.in^partnum := 4120;
in^parts^rec.in^price := 60000.00;
in^parts^rec.in^partdesc ':=' "V8 DISK OPTION";
EXEC SQL
INSERT INTO sales.parts (partnum, price, partdesc)
VALUES ( :in^parts^rec.in^partnum,
:in^parts^rec.in^price,
:in^parts^rec.in^partdesc);
! Check SQLCODE for errors and warnings:
IF SQLCODE < 0 THEN CALL handle^errors;
IF SQLCODE > 0 AND SQLCODE <> 100 THEN
CALL handle^warnings;
! End TMF transaction and check SQLCODE:
EXEC SQL COMMIT WORK;
IF SQLCODE < 0 THEN CALL handle^errors;
IF SQLCODE > 0 AND SQLCODE <> 100 THEN
CALL handle^warnings;
END;
VST0601.vsd