USER>set addr = "One Memorial Drive", city = "Cambridge" ; for both examples below
USER>set st = "MA", zip = "02142" ; for both examples below
USER>set Pmail = addr _ "^" _ city _ "^" _ st _ "^" _ zip
USER>set Lmail = $listbuild(addr, city, st, zip)
USER>write $piece(Pmail, "^", 2), ?20, $list(Lmail, 2)
Cambridge Cambridge
USER>write $length(Pmail, "^"), ?20, $listlength(Lmail)
4 4
USER>write $find(Pmail, "MA"), ?20, $listfind(Lmail, "MA")
32 3
USER>write Pmail
One Memorial Drive^Cambridge^MA^02142
USER>zwrite Lmail
Lmail=$lb("One Memorial Drive","Cambridge","MA","02142")
USER>
