MOVE VGEOF1-VTX-GEOCODE-CODE TO VTX-GEOCRTA-GEOCODE.
MOVE VGEOF1-VTX-STATE-CODE TO VTX-GEOCRTA-STATE.
MOVE VGEOF1-VTX-COUNTY-CODE TO VTX-GEOCRTA-COUNTY.
MOVE VGEOF1-VTX-CITY-CODE TO VTX-GEOCRTA-CITY.
MOVE VGEOF1-VTX-LEVEL-CODE TO VTX-GEOCRTA-LEVEL.
PERFORM 900-GEO-SET-GEOCODE-CRITERIA.
IF (VTX-ERROR-STATUS = "Y")
MOVE VTX-ERROR-MSG TO VGEOF1-VTX-ERROR-MSG
|