Programming Example

           EVAL      E@VNMCRTALEV   = VTXQNT@LEVEL       
           EVAL      E@VGCRTASTATE  = VTXQNT@STATE       
           EVAL      E@VGCRTACOU    = VTXQNT@COUNTY      
           EVAL      E@VGCRTACITY   = VTXQNT@CITY        
           EVAL      E@VGCRTASTATE  = VTXQNT@LEVEL       
           CALLP     U@GEOSETGCRIT                      
           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