Thanks for any help. set var vmsg = 'Cust #:' set var vmsg = (.vmsg & .this_POn & 'Contacts - Call In Order Listed - ENTER to Zoom, ESC to Return')
choose VCONTACTN from #values for + '<NEW>', 0 from CustContacts where count = 1 + union all sel '<VIEW OR EDIT ALL>', -1 from CustContacts where count = 1 + union all sel + ( + ( (LJS(CC_contact, 30)) + & (lJS(CC_OfficeExt, 5)) & (LJS(CC_Mobile1, 12)) + & (RJS(CC_HomePhone, 14)) ) from CustContacts + where custnub2 = .This_Custnub2 at 2 2 foot title .vmsg Steve

