CREATE PROCEDURE NEW_PROCEDURE (
    D1 DATE,
    D2 DATE)
RETURNS (
    ID INTEGER,
    ORGNAME INTEGER,
    SERVICEPERCENT INTEGER)
AS
BEGIN

  FOR SELECT DISTINCT a.ID, a.ORGNAME, a.SERVICEPERCENT
  FROM INTERMED a
  JOIN ORD b ON (a.ID = b.ID)
  WHERE b.DATEJOIN BETWEEN (:D1 AND :D2) DO BEGIN
    SUSPEND;
  END

  FOR SELECT DISTINCT a.ID, a.ORGNAME, a.SERVICEPERCENT
  FROM INTERMED a
  JOIN ORD e ON (a.ID = e.ID)
  JOIN FULFILDOC c ON (c.NUM = d.FFDOCNUM)
  JOIN ORDITEMSTATE d ON (d.ORDNUM = e.NUM)
  WHERE (c.FFDOCT = 'L' OR c.FFDOCT = 'R') AND c.INPDATE BETWEEN (:D1 AND :D2)
  INTO :ID, :ORGNAME, :SERVICEPERCENT DO BEGIN
    SUSPEND;
  END

END

CREATE PROCEDURE Rep_PH (
    D1 TIMESTAMP,
    D2 TIMESTAMP)
RETURNS (
    ID CHAR( 2 ),
    ORGNAME VARCHAR( 80 ),
    SERVICEPERCENT NUMERIC( 9 ,  2 ),
    ZT NUMERIC( 9 ,  2 ),
    CC INTEGER,
    LT NUMERIC( 9 ,  2 ),
    RT NUMERIC( 9 ,  2 )
)
AS
BEGIN
  ZT= 0 ;
  CC= 0 ;
  LT= 0 ;
  RT= 0 ;

  FOR SELECT DISTINCT a.ID, a.ORGNAME, a.SERVICEPERCENT
  FROM INTERMED a
  JOIN ORD b ON (a.ID = b.ID)
  WHERE b.DATEJOIN >=:D1 AND b.DATEJOIN <= :D2 
  UNION
  SELECT DISTINCT a.ID, a.ORGNAME, a.SERVICEPERCENT
  FROM INTERMED a
  JOIN ORD e ON (a.ID = e.ID)
  JOIN ORDITEMSTATE d ON (d.ORDNUM = e.NUM)
  JOIN FULFILDOC c ON (c.NUM = d.FFDOCNUM)
  WHERE ((c.FFDOCT = 'L' OR c.FFDOCT = 'R') AND 
  (c.INPDATE  >= :D1) AND  (c.INPDATE <= :D2))

INTO :ID, :ORGNAME, :SERVICEPERCENT
  DO BEGIN

  select sum(TOTAL) from ORD  
  where (ID=:ID) and (DATEJOIN >=  :D1) and  (DATEJOIN <= :D2 )
  INTO :ZT ;

  select count (DISTINCT CLNUM) from ORD
  where (ID=:ID) and (DATEJOIN >= :D1) and (DATEJOIN <= :D2)
  INTO :CC ;

  select sum (b.TOTAL) 
  from 
  INTERMED a, ORDITEM b, FULFILDOC c, ORDITEMSTATE d, ORD e
  where
  ( (a.ID=:ID) and (e.ID = :ID) and (d.ORDNUM = e.NUM) and 
  (b.ITEMNUM = d.ITEMNUM) and
  (b.ORDNUM = d.ORDNUM) and
  (c.NUM = d.FFDOCNUM) and (c.FFDOCT = 'R') 
  and (c.INPDATE >= :D1 and c.INPDATE <= :D2 ) )
  INTO :RT ;

  select sum (b.TOTAL) 
  from 
  INTERMED a, ORDITEM b, FULFILDOC c, ORDITEMSTATE d, ORD e
  where
  ( (a.ID=:ID) and (e.ID = :ID) and (d.ORDNUM = e.NUM) and 
  (b.ITEMNUM = d.ITEMNUM) and
  (b.ORDNUM = d.ORDNUM) and
  (c.NUM = d.FFDOCNUM) and (c.FFDOCT = 'L') 
  and (c.INPDATE >= :D1 and c.INPDATE <= :D2 ) )
  INTO :LT ;

   SUSPEND;
  END


END

CREATE PROCEDURE Rep_PH (
    D1 TIMESTAMP,
    D2 TIMESTAMP)
RETURNS (
    ID CHAR( 2 ),
    ORGNAME VARCHAR( 80 ),
    SERVICEPERCENT NUMERIC( 9 ,  2 ),
    ZT NUMERIC( 9 ,  2 ),
    CC INTEGER,
    LT NUMERIC( 9 ,  2 ),
    RT NUMERIC( 9 ,  2 )
)
AS
BEGIN
  FOR SELECT DISTINCT a.ID, a.ORGNAME, a.SERVICEPERCENT
  FROM INTERMED a
  JOIN ORD b ON (a.ID = b.ID)
  WHERE b.DATEJOIN >=:D1 AND b.DATEJOIN <= :D2 
  UNION
  SELECT DISTINCT a.ID, a.ORGNAME, a.SERVICEPERCENT
  FROM INTERMED a
  JOIN ORD e ON (a.ID = e.ID)
  JOIN ORDITEMSTATE d ON (d.ORDNUM = e.NUM)
  JOIN FULFILDOC c ON (c.NUM = d.FFDOCNUM)
  WHERE ((c.FFDOCT = 'L' OR c.FFDOCT = 'R') AND 
  (c.INPDATE  >= :D1) AND  (c.INPDATE <= :D2))

  INTO :ID, :ORGNAME, :SERVICEPERCENT
  DO BEGIN
 
  ZT= 0 ;
  CC= 0 ;
  LT= 0 ;
  RT= 0 ;
  select sum(b.TOTAL) from  
  ORDITEM b, FULFILDOC c, ORDITEMSTATE d, ORD e
  where
  ( (e.ID = :ID) and (d.ORDNUM = e.NUM) and 
  (b.ITEMNUM = d.ITEMNUM) and
  (b.ORDNUM = d.ORDNUM) and
  (d.FFDOCTYPE = 'A') and (d.STATECODE IN ('0','1')) 
  and (c.NUM = d.FFDOCNUM) 
  and (c.INPDATE >= :D1 and c.INPDATE <= :D2 ) )
  INTO :ZT ;

  select count (DISTINCT e.CLNUM) from
  ORDITEM b, FULFILDOC c, ORDITEMSTATE d, ORD e
  where
  ( (e.ID = :ID) and (d.ORDNUM = e.NUM) and 
  (b.ITEMNUM = d.ITEMNUM) and
  (b.ORDNUM = d.ORDNUM) and
  (d.FFDOCTYPE = 'A') and (d.STATECODE IN ('0','1')) 
  and (c.NUM = d.FFDOCNUM) 
  and (c.INPDATE >= :D1 and c.INPDATE <= :D2 ) )
  INTO :CC ;

  select sum (b.TOTAL) 
  from 
  INTERMED a, ORDITEM b, FULFILDOC c, ORDITEMSTATE d, ORD e
  where
  ( (a.ID=:ID) and (e.ID = :ID) and (d.ORDNUM = e.NUM) and 
  (b.ITEMNUM = d.ITEMNUM) and
  (b.ORDNUM = d.ORDNUM) and
  (c.NUM = d.FFDOCNUM) and (c.FFDOCT = 'R') 
  and (c.INPDATE >= :D1 and c.INPDATE < :D2 ) )
  INTO :RT ;

  select sum (b.TOTAL) 
  from 
  INTERMED a, ORDITEM b, FULFILDOC c, ORDITEMSTATE d, ORD e
  where
  ( (a.ID=:ID) and (e.ID = :ID) and (d.ORDNUM = e.NUM) and 
  (b.ITEMNUM = d.ITEMNUM) and
  (b.ORDNUM = d.ORDNUM) and
  (c.NUM = d.FFDOCNUM) and (c.FFDOCT = 'L') 
  and (c.INPDATE >= :D1 and c.INPDATE < :D2 ) )
  INTO :LT ;

  LT=LT-RT;  

   SUSPEND;
  END


END

CREATE PROCEDURE RP0
RETURNS (
    ID CHAR( 2 ),
    IT NUMERIC( 9 ,  2 ),
    cc integer   
    )
AS
declare variable n integer;
BEGIN
n= 0 ;
  FOR 
SELECT DISTINCT O2.ID, SUM(O.TOTAL),
 COUNT(DISTINCT O2.CLNUM)
FROM ORDITEM O, ORDITEMSTATE O1,
 FULFILDOC F, ORD O2
WHERE
(O1.ORDNUM = O.ORDNUM)
 AND (O1.ITEMNUM = O.ITEMNUM)
 AND (O1.FFDOCTYPE = 'A')
 AND (O1.STATECODE IN ('0','1'))
 AND (F.NUM = O1.FFDOCNUM)
 AND (F.INPDATE >= '10.10.2003')
 AND (F.INPDATE <= '15.10.2003')
 AND (O2.NUM = O.ORDNUM)
GROUP BY O2.ID
ORDER BY O2.ID,  2 ,  3 
into :ID, :IT, :CC
  do begin
  if (n> 1 ) then exit;
  n=n+ 1 ;
   SUSPEND;
  end
END

vs

CREATE PROCEDURE RP1
RETURNS (
    ID CHAR( 2 ),
    ORGNAME VARCHAR( 80 ),
    SERVICEPERCENT NUMERIC( 9 ,  2 ),
    IT NUMERIC( 9 ,  2 ),
    cc integer   
    )
AS
declare variable n integer;
BEGIN
n= 0 ;
  FOR 
SELECT DISTINCT O2.ID, a.ORGNAME, a.servicepercent, SUM(O.TOTAL),
 COUNT(DISTINCT O2.CLNUM)
FROM ORDITEM O, ORDITEMSTATE O1,
 FULFILDOC F, ORD O2, intermed A
WHERE
(O1.ORDNUM = O.ORDNUM)
 AND (O1.ITEMNUM = O.ITEMNUM)
 AND (O1.FFDOCTYPE = 'A')
 AND (O1.STATECODE IN ('0','1'))
 AND (F.NUM = O1.FFDOCNUM)
 AND (F.INPDATE >= '10.10.2003')
 AND (F.INPDATE <= '15.10.2003')
 AND (O2.NUM = O.ORDNUM)
 AND (A.ID = o2.ID)
GROUP BY O2.ID, a.ORGNAME, a.servicepercent
ORDER BY O2.ID,  2 ,  3 ,  4 ,  5 
into :ID, :ORGNAME, :SERVICEPERCENT, :IT, :CC
  do begin
  if (n> 1 ) then exit;
  n=n+ 1 ;
   SUSPEND;
  end
END