====== pears.GetEmployeePhoneInBlock ======
<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"."GetEmployeePhoneInBlock" IS 
{create function GetEmployeePhoneInBlock 

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

(in reqemploymentid 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='CP' and whoid=reqemploymentid 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>