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

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

(in reqpersonid char(20),in Capitalise smallint,in Style char(1))
returns char(300)
begin
  declare FormattedAddress char(300);
  declare addr1 char(40);
  declare addr2 char(40);
  declare addr3 char(40);
  declare town char(30);
  declare county char(30);
  declare country char(30);
  declare postcode char(30);
  declare Separator char(2);
  declare PrePostCodeSeparator char(2);
  /* 
  Set the seperator for block or line 
  */
  if style = 'B' then
    set Separator="char"(13)+"char"(10);
    set PrePostCodeSeparator=Separator
  else set Separator=', ';
    set PrePostCodeSeparator=' '
  end if;
  /*
  Fetch address fields
  */
  select person.addr1,person.addr2,person.addr3,person.town,person.county,person.country,person.postcode into addr1,
    addr2,addr3,town,county,country,postcode from person where
    personid = reqpersonid;
  /*
  If capitalise option is set, capitalise town. 
  */
  if Capitalise = 1 then set town=upper(Town)
  end if;
  /*
  Build Formatted Address
  */
  if isnull(addr1,'') <> '' then set FormattedAddress=FormattedAddress || trim(addr1)
  end if;
  if isnull(FormattedAddress,'') <> '' and isnull(addr2,'') <> '' then set FormattedAddress=FormattedAddress || Separator
  end if;
  if isnull(addr2,'') <> '' then set FormattedAddress=FormattedAddress || trim(addr2)
  end if;
  if isnull(FormattedAddress,'') <> '' and isnull(addr3,'') <> '' then set FormattedAddress=FormattedAddress || Separator
  end if;
  if isnull(addr3,'') <> '' then set FormattedAddress=FormattedAddress || trim(addr3)
  end if;
  if isnull(FormattedAddress,'') <> '' and isnull(town,'') <> '' then set FormattedAddress=FormattedAddress || Separator
  end if;
  if isnull(town,'') <> '' then set FormattedAddress=FormattedAddress || trim(town)
  end if;
  if isnull(FormattedAddress,'') <> '' and isnull(county,'') <> '' then set FormattedAddress=FormattedAddress || Separator
  end if;
  if isnull(county,'') <> '' then set FormattedAddress=FormattedAddress || trim(county)
  end if;
  if isnull(FormattedAddress,'') <> '' and isnull(country,'') <> '' then set FormattedAddress=FormattedAddress || Separator
  end if;
  if isnull(country,'') <> '' then set FormattedAddress=FormattedAddress || trim(country)
  end if;
  if isnull(FormattedAddress,'') <> '' and isnull(postcode,'') <> '' then set FormattedAddress=FormattedAddress || PrePostCodeSeparator
  end if;
  if isnull(postcode,'') <> '' then set FormattedAddress=FormattedAddress || trim(postcode)
  end if;
  return FormattedAddress
end
}
</code>