Programming Example

MOVE VGEOF1-VTX-STATE              TO VTX-NAMECRTA-STATE.
MOVE VGEOF1-VTX-COUNTY             TO VTX-NAMECRTA-COUNTY.
MOVE VGEOF1-VTX-CITY               TO VTX-NAMECRTA-CITY.
MOVE VGEOF1-VTX-LEVEL              TO VTX-NAMECRTA-LEVEL.

PERFORM 900-GEO-SET-NAME-CRITERIA.
IF (VTX-ERROR-STATUS = "Y")
   MOVE VTX-ERROR-MSG       TO VGEOF1-VTX-ERROR-MSG
ELSE
   PERFORM 900-GEO-GET-NEXT-GEOCODE
   IF (VTX-ERROR-STATUS = "Y")
      MOVE VTX-ERROR-MSG       TO VGEOF1-VTX-ERROR-MSG
   ELSE
      IF (VTX-ERROR-STATUS = "E")
         MOVE VTX-ERROR-MSG       TO VGEOF1-VTX-ERROR-MSG
      ELSE
         MOVE "No Error"          TO VGEOF1-VTX-ERROR-MSG.