CREATE PROCEDURE ERBUSER.UDOX019 
( OUT OOSQLCODE INTEGER 
, IN IIKONTONUMMER DECIMAL(18,0) 
, IN IIBEZUGSDATUM DATE 
, OUT OOKONTOSALDO DECIMAL(15,2) 
, OUT OOVORZINS DECIMAL(15,2) 
, OUT OOZINSSATZ DECIMAL(13,4) 
, OUT OOSPERRE_18 CHAR(01) 
, OUT OOSPERRE_20 CHAR(01) 
, OUT OOSPERRE_26 CHAR(01) 
, OUT OOADTM DATE 
, OUT OOSPARFORM INTEGER 
, OUT OOFAELLIGKEIT DATE 
) 
RESULT SET 0 
LANGUAGE SQL 
READS SQL DATA 

P1:BEGIN 
DECLARE SQLCODE INTEGER DEFAULT 0; 
DECLARE EXIT HANDLER FOR SQLEXCEPTION SET OOSQLCODE = SQLCODE;

SELECT Account / 100
From Myschema.MYTABLE
WHERE ACCOUNT = IIACCOUNT
;

SET OOSQLCODE = SQLCODE;

END P1;

An unexpected token "END-OF-STATEMENT" was found following "DE INTEGER DEFAULT 0".  Expected tokens may include:  "<psm_semicolon>".. SQLCODE=-104, SQLSTATE=42601, DRIVER=3.61.65 

An unexpected token "<space>" was found following "EXIT".  Expected tokens may include:  "HANDLER".. SQLCODE=-104, SQLSTATE=42601, DRIVER=3.61.65 

"IIKONTONUMMER" is not valid in the context where it is used.. SQLCODE=-206, SQLSTATE=42703, DRIVER=3.61.65 

"OOSQLCODE" is not valid in the context where it is used.. SQLCODE=-206, SQLSTATE=42703, DRIVER=3.61.65 

An unexpected token "END-OF-STATEMENT" was found following "END P1".  Expected tokens may include:  "JOIN <joined_table>".. SQLCODE=-104, SQLSTATE=42601, DRIVER=3.61.65

CREATE PROCEDURE ERBUSER.UDOX019 
( OUT OOSQLCODE INTEGER 
, IN IIKONTONUMMER DECIMAL(18,0) 
, IN IIBEZUGSDATUM DATE 
, OUT OOKONTOSALDO DECIMAL(15,2) 
, OUT OOVORZINS DECIMAL(15,2) 
, OUT OOZINSSATZ DECIMAL(13,4) 
, OUT OOSPERRE_18 CHAR(01) 
, OUT OOSPERRE_20 CHAR(01) 
, OUT OOSPERRE_26 CHAR(01) 
, OUT OOADTM DATE 
, OUT OOSPARFORM INTEGER 
, OUT OOFAELLIGKEIT DATE 
) 
RESULT SET 0 
LANGUAGE SQL 
READS SQL DATA 

P1:BEGIN 
DECLARE SQLCODE INTEGER DEFAULT 0; 
DECLARE EXIT HANDLER FOR SQLEXCEPTION SET OOSQLCODE = SQLCODE;

SELECT Account / 100
From Myschema.MYTABLE
WHERE ACCOUNT = IIACCOUNT
;

SET OOSQLCODE = SQLCODE;

END P1 @