Programming Example

      EVAL      E@VNMCRTALEV   = VTXQNT@LEVEL
      EVAL      E@VNMCRTAST    = VTXQNT@STATE       
      EVAL      E@VNMCRTACOU   = VTXQNT@COUNTY      
      EVAL      E@VNMCRTACITY  = VTXQNT@CITY        
      EVAL      E@VNMCRTAZIP   = VTXQNT@ZIP         
      CALLP     U@GEOSETNMCRI                      
      IF        E@VERRORSTS = 'Y'                  
                OR  E@VERRORSTS = 'E'              
      EVAL      VTXQNT@ERROR   = E@VERRORMSG       
      EVAL      E@ERRVAR1      = VTXQNT@ERROR1     
      EVAL      E@ERRVAR2      = VTXQNT@ERROR2     
      EVAL      E@ERRORNBR     = 305               
      EVAL      E@ERRORCAT     = 'TXQNT'           
      RETURN                                       
      ENDIF                                         
      CALLP     U@GEOGETNXTG                        
      IF        E@VERRORSTS = 'Y'                   
                OR  E@VERRORSTS = 'E'               
      EVAL      VTXQNT@ERROR   = E@VERRORMSG        
      EVAL      E@ERRVAR1      = VTXQNT@ERROR1      
      EVAL      E@ERRVAR2      = VTXQNT@ERROR2      
      EVAL      E@ERRORNBR     = 305                
      EVAL      E@ERRORCAT     = 'TXQNT'            
      ENDIF