/*  this script will look up a name in the address book */

address 'ontheball'
options results
arg name

GetAddress name
if rc=0 then do
	parse var result name':'add1':'add2':'cty':'st':'zip':'con':'cmp':'wp':'hp .

	say 'Name:     ' name
	say 'Address:  ' add1
	say '          ' add2
	say 'City:     ' cty
	say 'State:    ' st
	say 'Zip:      ' zip
	say 'Contry:   ' con
	say 'Company:  ' cmp
	say 'Wrk Ph:   ' wp
	say 'Home Ph:  ' hp
end
else do
	say "Address Not Found"
end
