pears.CommaThousandsDec [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

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

(in d double)
returns char(40)
begin
  declare rv char(40);
  declare s char(20);
  declare t char(20);
  declare i integer;
  declare c char(1);
  declare fract double;
  set fract=abs(remainder(d,1));
  if fract = 0 then set fract=null
  end if;
  if d is null then
    return null
  end if;
  if d < 0 then
    set d=abs(d);
    set c='-'
  else
    set c=''
  end if;
  set rv='';
  set s=trim(str(d,20,0));
  set i=-1;
  lbl: loop
    set t=substr(s,i,-3);
    if t = '' then
      leave lbl
    end if;
    if rv <> '' then
      set rv=','+rv
    end if;
    set rv=t+rv;
    set i=i-3
  end loop lbl;
  return(c+rv+string(fract))
end
}
</code>