Aufruf SQL Prozedur von SQLRPGLE

[Dschainers]

Problem gelöst!

Mein Fehler war, dass ich mit TEST0002 aufgerufen habe, statt mit dem Namen der Prozedur.
Der Name der Prozedur ist "ReWe_FiBu_test".

Hier die Prozedur:

-- erst löschen
call dsg_drop_procedure('xxx', 'ReWe_FiBu_test');
--neu anlegen
create procedure xxx/ReWe_FiBu_test
(
-- Input-Parameter
In $In_MandKenn char(13),
-- OUTPUT
Out $Status char(1)
)
LANGUAGE SQL
SPECIFIC xxx/TEST0002
NOT DETERMINISTIC
MODIFIES SQL DATA
MAIN : BEGIN

declare i_Mandkenn char(13);
--declare O_Error_Nr numeric(4, 0);

Set i_Mandkenn = $In_Mandkenn;

--Delete from D_FYWAB
--where MANDKENN = I_MANDKENN;

set $status = i_mandkenn;

End MAIN;