Programming Example

     EVAL      E@VTRNSUBTYPE  = *BLANKS  
     EVAL      E@VJURISINOUT  = '1'                      
     EVAL      E@VFRJURISIO   = '1'                      
     ENDIF                                               
     IF        VTXQNT@THRPRT = 'Q'           
     EVAL      E@VERTEXFLAG   = 'G'          
     ELSE                                    
     EVAL      E@VERTEXFLAG   = *BLANKS      
     ENDIF                                   
     EVAL      E@VCUSTEXEMPT  = 'D'          
     EVAL      E@VPRODEXEMPT  = 'D'          
     CALLP     U@CALCVTXTAX                  
     IF        E@VERRORSTS = 'Y'                  
     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