[RBASE-L] - Re: Conditional Blank Lines in reports; bold included

[Lawrence Lustig]

Here's the other version of that FormatAddress stored procedure that supports 
passing a NULL name:

-----------------------------------------------------------------------------
-- FormatAddress: Formats mailing address
-- PUT FormatAddress.PRC AS FormatAddress pFA_Company TEXT(100) pFA_Addr1 
TEXT(100) pFA_Addr2 TEXT(100) pFA_City TEXT(50) pFA_State TEXT(50) pFA_Zip 
TEXT(10) RETURN NOTE
-----------------------------------------------------------------------------

IF pFA_Addr1 IS NOT NULL THEN
  IF pFA_Company IS NULL THEN
    SET VAR pFA_Company = (.pFA_Addr1)
  ELSE
    SET VAR pFA_Company = (.pFA_Company + CHAR(10) + .pFA_Addr1)
  ENDIF
ENDIF

IF pFA_Addr2 IS NOT NULL THEN
  IF pFA_Company IS NULL THEN
    SET VAR pFA_Company = (.pFA_Addr2)
  ELSE
    SET VAR pFA_Company = (.pFA_Company + CHAR(10) + .pFA_Addr2)
  ENDIF
ENDIF

IF pFA_City IS NOT NULL AND pFA_State IS NOT NULL THEN
  SET VAR pFA_City = (.pFA_City + ',' & .pFA_State)
ELSE
  IF pFA_City IS NULL AND pFA_State IS NOT NULL THEN
    SET VAR pFA_City = (.pFA_State)
  ENDIF
ENDIF

SET VAR pFA_City = (.pFA_City & .pFA_Zip)

IF pFA_City IS NOT NULL THEN
  IF pFA_Company IS NULL THEN
    SET VAR pFA_Company = (.pFA_City)
  ELSE
    SET VAR pFA_Company = (.pFA_Company + CHAR(10) + .pFA_City)
  ENDIF
ENDIF

RETURN (.pFA_Company)

--
Larry