Programming Example

     CALLP     U@OPENVERTEX         
     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