UPDATE USERID.CAR SET CATEGORY = :CATEGORY:CATEGORYIND, COLOUR = :COLOUR:COLOURIND, MAKE = :MAKE:MAKEIND, MODEL = :MODEL:MODELIND WHERE LICENSE = :LICENSE
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO error
WHENEVER SQLERROR GO TO error
DELETE FROM USERID.CAR WHERE LICENSE = :LICENSE
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO error
WHENEVER SQLERROR GO TO error
SELECT CATEGORY, COLOUR, LICENSE, MAKE, MODEL INTO :CATEGORY:CATEGORYIND , :COLOUR:COLOURIND , :LICENSE, :MAKE:MAKEIND , :MODEL:MODELIND FROM USERID.CAR WHERE LICENSE = :LICENSE
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO notfound
WHENEVER SQLERROR GO TO error
DECLARE c1 CURSOR FOR SELECT CATEGORY, COLOUR, LICENSE, MAKE, MODEL FROM USERID.CAR