Stored Porcedures Problem

[marciboy]

Meint ihr das??

Delphi-Quellcode:

SET TERM ^ ;

CREATE PROCEDURE P_MODELL (
    p_khernr varchar(5),
    p_kmodnr varchar(5))
returns (
    kmodnr varchar(5),
    bez varchar(60),
    khernr varchar(5),
    sort1 varchar(3),
    bjvon varchar(6),
    bjbis varchar(6))
as
begin
  if (:p_kmodnr is null ) then
  for
    select * from tab110
    where khernr = :p_khernr
    order by sort1
    into :KMODNR,:BEZ,:KHERNR,
         :SORT1,:BJVON,:BJBIS
  do
  begin
    suspend;
  end
  else
  for
    select * from tab110
    where kmodnr = :p_kmodnr
    order by sort1
    into :KMODNR,:BEZ,:KHERNR,
         :SORT1,:BJVON,:BJBIS
  do
  begin
    suspend;
  end
end^

SET TERM ; ^