CARV    QBPLRVFLUSERID  0
INCLUDE SQLCA
INCLUDE SQLDA
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER NOT FOUND GO TO error
WHENEVER SQLERROR GO TO error
INSERT INTO USERID.CAR (CATEGORY, COLOUR, LICENSE, MAKE, MODEL)             VALUES ( :CATEGORY:CATEGORYIND , :COLOUR:COLOURIND , :LICENSE, :MAKE:MAKEIND , :MODEL:MODELIND )
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO error
WHENEVER SQLERROR GO TO error
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
OPEN c1
FETCH c1 INTO :CATEGORY:CATEGORYIND , :COLOUR:COLOURIND , :LICENSE, :MAKE:MAKEIND , :MODEL:MODELIND 
CLOSE c1
WHENEVER SQLERROR CONTINUE
WHENEVER NOT FOUND GO TO notfound
WHENEVER SQLERROR GO TO error
PREPARE s1 FROM :_buf
DECLARE c2 CURSOR FOR s1
OPEN c2
FETCH c2 INTO :CATEGORY:CATEGORYIND , :COLOUR:COLOURIND , :LICENSE, :MAKE:MAKEIND , :MODEL:MODELIND 
CLOSE c2
WHENEVER SQLERROR CONTINUE
CATEGORY
CATEGORYIND
COLOUR
COLOURIND
LICENSE
MAKEIND
MODEL
MODELIND