CREATE PROCEDURE DB2ADMIN.ROUND (IN IP INTEGER, IN A INTEGER, IN Y INTEGER, IN Q INTEGER)
LANGUAGE SQL
DYNAMIC RESULT SETS 0
CONTAINS SQL
NOT DETERMINISTIC
NO EXTERNAL ACTION

BEGIN
DECLARE result decimal(10,2);
DECLARE f decimal(10,2);
DECLARE s decimal(10,2);
 
DECLARE Mach CURSOR FOR 
SELECT value from db2admin.reports where id_param = :IP and id_st_prm < 23 order by id_st_prm desc;
 
 SET result=0;
 SET f=0;
 SET s=0;

 OPEN Mach;

 FETCH FROM Mach INTO f;
  FETCH FROM Mach INTO s;
   result=f/s;
   trunc(result,2);

INSERT INTO DB2ADMIN.REPORTS (ID_PARAM, ID_ST_PRM, VALUE, AREA, YEAR, QUARTER) VALUES (:IP, '23', 'result', :A, :Y, :Q);
COMMIT;
    
CLOSE Mach;
END

BEGIN
DECLARE result decimal(10,2) default 0
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0104N  An unexpected token "END-OF-STATEMENT" was found following "imal(10,
2) default 0".  Expected tokens may include:  "<psm_semicolon>".  LINE 
NUMBER=6.  SQLSTATE=42601

DECLARE f decimal(10,2)
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0104N  An unexpected token "DECLARE f decimal" was found following 
"BEGIN-OF-STATEMENT".  Expected tokens may include:  "<values>".  LINE 
NUMBER=1.  SQLSTATE=42601

DECLARE	s decimal(10,2)
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0104N  An unexpected token "DECLARE s decimal" was found following 
"BEGIN-OF-STATEMENT".  Expected tokens may include:  "<values>".  LINE 
NUMBER=1.  SQLSTATE=42601

DECLARE Mach CURSOR FOR SELECT value from db2admin.reports where id_param = :IP and id_st_prm < 23 order by id_st_prm desc
DB20000I  The SQL command completed successfully.

SET result=0
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0206N  "RESULT" is not valid in the context where it is used.  
SQLSTATE=42703

SET f=0
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0206N  "F" is not valid in the context where it is used.  SQLSTATE=42703

SET s=0
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0206N  "S" is not valid in the context where it is used.  SQLSTATE=42703

OPEN Mach
DB21031E  The SQL statement using the cursor "MACH" ("SQLCUR1") returned:
SQL0313N  The number of host variables in the EXECUTE or OPEN statement is not 
equal to the number of values required.  SQLSTATE=07004

FETCH FROM Mach INTO f
SQL0104N  An unexpected token "INTO" was found following "<identifier>".  
Expected tokens may include:  "END-OF-STATEMENT".  SQLSTATE=42601

FETCH FROM Mach INTO s
SQL0104N  An unexpected token "INTO" was found following "<identifier>".  
Expected tokens may include:  "END-OF-STATEMENT".  SQLSTATE=42601

result=f/s
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0104N  An unexpected token "result" was found following 
"BEGIN-OF-STATEMENT".  Expected tokens may include:  "<variable_set>".  
SQLSTATE=42601

trunc(result,2)
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0104N  An unexpected token "(result,2)" was found following "trunc".  
Expected tokens may include:  "<space>".  SQLSTATE=42601

INSERT INTO DB2ADMIN.REPORTS (ID_PARAM, ID_ST_PRM, VALUE, AREA, YEAR, QUARTER) VALUES (:IP, '23', 'result', :A, :Y, :Q)
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0313N  The number of host variables in the EXECUTE or OPEN statement is not 
equal to the number of values required.  SQLSTATE=07004

COMMIT
DB20000I  The SQL command completed successfully.

CLOSE Mach
DB21030E  The cursor "MACH" has not been opened.

END
DB21034E  The command was processed as an SQL statement because it was not a 
valid Command Line Processor command.  During SQL processing it returned:
SQL0104N  An unexpected token "END-OF-STATEMENT" was found following "END".  
Expected tokens may include:  "JOIN <joined_table>".  SQLSTATE=42601

SQL0104N  An unexpected token "END-OF-STATEMENT" was found following "END".  Expected tokens may include:  "JOIN <joined_table>                              ".

CREATE PROCEDURE DB2BUDGET.ROUND (IN IP INTEGER, IN A INTEGER, IN Y INTEGER, IN Q INTEGER)
LANGUAGE SQL
BEGIN

DECLARE result decimal(10,2);
DECLARE f decimal(10,2);
DECLARE	s decimal(10,2);
DECLARE Mach CURSOR FOR
SELECT value from db2budget.reports where id_param = IP and id_st_prm < 23 order by id_st_prm desc;
 SET result=0;
 SET f=0;
 SET s=0;
 OPEN Mach;
 FETCH FROM Mach INTO f;
  FETCH FROM Mach INTO s;
   SET result=trunc(f/s,2);
INSERT INTO DB2BUDGET.REPORTS (ID_PARAM, ID_ST_PRM, VALUE, AREA, YEAR, QUARTER) VALUES (IP, '23', 'result', A, Y, Q);
CLOSE Mach;
COMMIT;
END
@