File size enlarge each time procedure is called

SET TERM ^ ;

create or alter procedure NAPUNI_SVE (
    IN_KOMERCIJALISTA integer not null)
returns (
    REZULTAT blob sub_type 1 segment size 100 character set ISO8859_2 collate ISO8859_2)
as
declare variable A_ARTIKAL varchar(10) character set ISO8859_2 collate ISO8859_2;
declare variable A_NAZIV varchar(50) character set ISO8859_2 collate ISO8859_2;
declare variable A_JM integer;
declare variable A_BREND integer;
declare variable A_S varchar(1) character set ISO8859_2 collate ISO8859_2;
declare variable A_E varchar(1) character set ISO8859_2 collate ISO8859_2;
declare variable A_NL varchar(1) character set ISO8859_2 collate ISO8859_2;
declare variable A_VRSTA integer;
declare variable A_GRUPA integer;
declare variable A_KOMITENT varchar(5) character set ISO8859_2 collate ISO8859_2;
declare variable A_PIB integer;
declare variable A_GRAD integer;
declare variable A_KO_SIF varchar(10) character set ISO8859_2 collate ISO8859_2;
declare variable A_POSLOVNICA varchar(5) character set ISO8859_2 collate ISO8859_2;
declare variable A_ADRESA varchar(50) character set ISO8859_2 collate ISO8859_2;

begin

 a_s = '|';
 a_e = ':';
 a_nl = ASCII_CHAR(13);

 rezultat = '#tables#';
 /* -------------- jm ----------------------------------------------- */
  rezultat = rezultat  || a_nl || 'jm';

  for select jm, naziv from JME
   into :a_jm, :a_naziv do
    begin
     rezultat = rezultat || a_nl || :a_jm
                         || a_s || :a_naziv;
    end

  rezultat = rezultat || a_e ; 
 /* ----------------- brendovi ------------------------------------- */
  rezultat = rezultat  || a_nl || 'brendovi';

  for select brend, naziv from brendovi
   into :a_brend, :a_naziv do
    begin
     rezultat = rezultat || a_nl || :a_brend
                         || a_s || :a_naziv;
    end

  rezultat = rezultat || a_e ; 
 /* ------------------ vrste ---------------------------------------*/
  rezultat = rezultat  || a_nl || 'vrste';

  for select vrsta, naziv from vrste
   into :a_vrsta, :a_naziv do
    begin
     rezultat = rezultat || a_nl || :a_vrsta
                         || a_s || :a_naziv;
    end

  rezultat = rezultat || a_e ; 
 /* -------------------- grupe -------------------------------------- */
  rezultat = rezultat  || a_nl || 'grupe';

  for select grupa, naziv from grupe
   into :a_grupa, :a_naziv do
    begin
     rezultat = rezultat || a_nl || :a_grupa
                         || a_s || :a_naziv;
    end

  rezultat = rezultat || a_e ; 
 /* --------------------------- artikli ------------------------------*/
 rezultat = rezultat || a_nl || 'artikli';

 FOR SELECT artikal from hh_artikli
  where komercijalista = :in_komercijalista
  order by artikal
   into :a_artikal do
    begin
     SELECT naziv, jm, brend, vrsta, grupa  FROM artikli
      where artikal = :a_artikal
      and aktivan = 1 /* za svaki slucaj */
      into :a_naziv, :a_jm, :a_brend, :a_vrsta, :a_grupa;

     rezultat = rezultat || a_nl || :a_artikal
                         || a_s || :a_naziv
                         || a_s || :a_jm
                         || a_s || :a_brend
                         || a_s || :a_vrsta
                         || a_s || :a_grupa
                         || a_s || 'INS';
    end

    rezultat = rezultat || a_e ; 



  /* -------------------------- gradovi ------------------------------ */
  rezultat = rezultat  || a_nl || 'gradovi';

  /*for select grad, naziv from gradovi */
  /* samo gradovi od poslovnica i komitenata */
  for select distinct gradovi.grad, gradovi.naziv from gradovi
       inner join komitenti on (gradovi.grad = komitenti.grad)
       inner join komercijalisti_pos on (komitenti.komitent = komercijalisti_pos.komitent)
       where  komercijalisti_pos.komercijalista = 1
      union
       select distinct gradovi.grad, gradovi.naziv from poslovnice
        inner join gradovi on (poslovnice.grad = gradovi.grad)
        inner join komercijalisti_pos on (poslovnice.komitent = komercijalisti_pos.komitent) and (poslovnice.poslovnica = komercijalisti_pos.poslovnica)
        where komercijalisti_pos.komercijalista = 1
   into :a_grad, :a_naziv do
    begin
     rezultat = rezultat || a_nl || :a_grad
                         || a_s || :a_naziv;
    end

  rezultat = rezultat || a_e ; 
  /* ---------------------------- komitenti -------------------------- */
 rezultat = rezultat || a_nl || 'komitenti';

 FOR SELECT komitent from hh_komitenti
  where komercijalista = :in_komercijalista
  order by komitent
   into :a_komitent do
    begin
    SELECT naziv, pib, grad, ko_sif  FROM komitenti
      where komitent = :a_komitent
      and aktivan = 1
      into :a_naziv, :a_pib, :a_grad, :a_ko_sif;

     if (:a_pib is null) then
      a_pib = 0;

     if (:a_grad is null) then
      a_grad = 0;

     rezultat = rezultat || a_nl || :a_komitent
                         || a_s || :a_naziv
                         || a_s || :a_pib
                         || a_s || :a_grad
                         || a_s || :a_ko_sif
                         || a_s || 'INS';
    end

    rezultat = rezultat || a_e ; 



 /* ---------------------------- poslovnice ------------------------- */
 rezultat = rezultat || a_nl || 'poslovnice';

 FOR SELECT komitent,poslovnica from hh_poslovnice
  where komercijalista = :in_komercijalista
  order by komitent,poslovnica
   into :a_komitent, :a_poslovnica do
    begin
    SELECT naziv, adresa, grad, ko_sif  FROM poslovnice
      where komitent = :a_komitent
      and poslovnica = :a_poslovnica
      and aktivan = 1
      into :a_naziv, :a_adresa, :a_grad, :a_ko_sif;

     if (:a_adresa is null) then
      a_adresa = ' ';

     if (:a_grad is null) then
      a_grad = 0;

     rezultat = rezultat || a_nl || :a_komitent
                         || a_s || :a_poslovnica
                         || a_s || :a_naziv
                         || a_s || :a_adresa
                         || a_s || :a_grad
                         || a_s || :a_ko_sif
                         || a_s || 'INS';
    end

   rezultat = rezultat || a_e ;

 
end^

SET TERM ; ^