Programming Example

      EVAL      E@VACCESSMODE  = 'R' 
      CALLP     U@GEOCONNECT                             
      IF        E@VERRORSTS = 'Y'              
      EVAL      VTXQNT@ERROR   = E@VERRORMSG              
      EVAL      E@ERRVAR1      = VTXQNT@ERROR1            
      EVAL      E@ERRVAR2      = VTXQNT@ERROR2            
      EVAL      E@ERRORNBR     = 301                      
      EVAL      E@ERRORCAT     = 'TXQNT'                  
      RETURN                                              
      ENDIF