PARAMETERS LCADDRESS,LCCITY,LCSTATE loWS=Createobject("mssoap.soapclient30") loWS.mssoapinit("http://webservices.eraserver.net/zipcoderesolver/zipcoderesolver.asmx?WSDL") IF TYPE('lows')='U' loWS.mssoapinit("http://webservices.eraserver.net/zipcoderesolver/zipcoderesolver.asmx?WSDL") endif ON ERROR retry USPSAddress = loWS.CorrectedAddressXml("9999", LCADDRESS, LCCITY, LCSTATE) * XML returned *? USPSAddress.item(0).parentNode.xml LCZIP='' FOR i=0 TO USPSAddress.length-1 *? USPSAddress.item(i).nodeName + ":", USPSAddress.item(i).Text LCSTRING= UPPER(USPSAddress.item(i).nodeName ) IF LCSTRING='FULLZIP' LCZIP=USPSAddress.item(i).Text ENDIF ENDFOR RETURN (LCZIP)