ALLBASE/SQL Reference Manual (36216-90216)

Chapter 11 459
SQL Statements E - R
Labeled Statement
INSERT INTO table2
VALUES (:value1, :param2);
UPDATE table3 SET column1 = CURRENT_DATE WHERE column2 = :value1;
IF ::sqlerrd2 < 1 THEN
INSERT INTO table3
VALUES (CURRENT_DATE, :value1);
ENDIF;
ENDWHILE;
loopexit:
CLOSE cursor1;
RETURN 0;
errorexit:
PRINT 'Procedure terminated due to error:';
PRINT ::
sqlcode;
END;
EXECUTE PROCEDURE Process19;