Thank You very much Sir. It was exactly what I was looking for.
But since I got to this only now I have used a workaround until now based on component TOracleScript which I use to call procedures from application. Pls see the following code:
=================================================
dm.p_exec.Lines.Clear;
dm.p_exec.Lines.Add('EXEC SQL EXECUTE ');
dm.p_exec.Lines.Add('BEGIN');
dm.p_exec.Lines.Add('-- Name = RUN1');
dm.p_exec.Lines.Add( 'P_UNW_POLICY_HLH_DUP('
// UNW_POLICY
+ p_policy_id_old + ', '
+ p_dup_serial_new
+ '); ' ) ;
dm.p_exec.Lines.Add('END;');
dm.p_exec.Lines.Add('/');
//memo1.Lines := dm.p_exec.lines;
dm.p_exec.Execute;
if dm.p_exec.CommandByName('RUN1').ErrorCode 0 then
begin
Messagedlg_alb(MyDOAOraErrMsg(dm.p_exec.CommandByName('RUN1').ErrorMessage) , 'Gabim', mtError, [mbYes], 0);
dm.ImsL.Rollback;
exit;
end;
dm.ImsL.Commit; // commit if no error
=================================================
where p_exec is the TOracleScript component inside the DataModule. As you see I call a procedure (P_UNW_POLICY_HLH_DUP) with two parameters whose values are represented by the two variables (p_policy_id_old, p_dup_serial_new ).
Question: Can this solution lead to any potential problem ? Is OK what I am doing ?
Thanks and Regards
Altin