define(&line1,string,'')
define(&line2,string,'')
define(&line3,string,'')
define(&line4,string,'')
define(&commaPos,integer,0)
%Where the recipient name is
&line1 := regionline(0.74,9.28,3.54,9.52)
%Where the first line of address is
&line2 := regionline(0.76,9.53,3.56,9.74)
%Where the second line of address or the city, state zip one is
&line3 := regionline(0.76,9.72,3.51,9.94)
%Where the city, state zip line is (or empty line)
&line4 := regionline(0.76,9.93,3.52,10.13)
&commaPos := pos(',',&line1)
%reverse the first and last name
&RecipientName := right(&line1,length(&line1)-&commaPos)+' '+left(&line1,&commaPos-1)
&addr1 := &line2
if(pos(',',&line3) > 0)
&addr2 := ''
&cityStateZip := &line3
else
&addr2 := &line3
&cityStateZip := &line4
endif
Previous Topic
Index