Rotina sqr para adformat: set global address line strings

!*********************************************************
! ADFORMAT: Set Global Address line strings *
!*********************************************************
!***********************************************************************
! *
! $Date: 2009/06/03:07:51:11
! $Release: FSCM91
! $Revision: 101
! *
!***********************************************************************
!
! Required Input:
! $NAME = From Global address subrecord
! $ADDRESS2 = From Global address subrecord
! $ADDRESS3 = From Global address subrecord
! $ADDRESS4 = From Global address subrecord
! $NUM1 = From Global address subrecord
! $NUM2 = From Global address subrecord
! $HOUSE_TYPE = From Global address subrecord
! $POSTAL = From Global address subrecord
! $CITY = From Global address subrecord
! $STATE = From Global address subrecord
! $COUNTY = From Global address subrecord
! $COUNTRY = From Global address subrecord
! $GEO_CODE = From Global address subrecord
! $IN_CITY_LIMIT = From Global address subrecord
!
! Usage: (for compacting address lines)
!
! if $ADDLINE1 ''
! print $ADDLINE1 (+2,1)
! end-if
! if $ADDLINE2 ''
! print $ADDLINE2 (+1,1)
! end-if
! if $ADDLINE3 ''
! print $ADDLINE3 (+1,1)
! end-if
! if $ADDLINE31 ''
! print $ADDLINE31 (+1,1)
! end-if
! if $ADDLINE4 ''
! print $ADDLINE4 (+1,1)
! end-if
! if $ADDLINE5 ''
!