====== pears.GetCompanyPhoneInBlock ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetCompanyPhoneInBlock" IS 
{create function GetCompanyPhoneInBlock 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in reqcompanyid char(20))
returns long varchar
begin
  declare phones long varchar;
  declare newline char(2);
  declare loopcounter tinyint;
  declare tab char(1);
  declare TabString char(2);
  set newline="char"(13)+"char"(10);
  set phones='';
  set loopcounter=0;
  set tab="char"(9);
  for fetchfor as fetchcursor no scroll cursor for
    select phonetype.name as nextname,phone.number as nextnumber from phone key join
      phonetype where phone.who = 'C' and whoid = reqcompanyid order by
      phone.whoid asc,phonetype.sortorder asc,phonetype.name asc for read only do
    if loopcounter > 0 then
      set phones=phones || newline
    end if;
    if length(nextname) < 8 then set TabString=Tab+Tab
    else set TabString=Tab
    end if;
    set phones=phones || nextname || TabString || nextnumber;
    set loopcounter=loopcounter+1 end for;
  return phones
end
}
</code>