filter=yes
!!reset varfilter_
!!set varfilter_cnt=!linecnt $varfilter
!!for v=1 to $varfilter_cnt
!!    var_line=!singlespace $(varfilter[$v;])
!!    var_line =!replace $ $ by , in $var_line
!!    varfilter_=!append line $var_line to $varfilter_
!!!next v

!reset listuser
!for id in $listiduser
    !reset var_filter_test
    !read adm/class/testfilter $id\
$varfilter_
    !if $var_filter_test=1
      listuser=!append item $id to $listuser
    !endif
!next id
!if $listuser=$empty
    !reset job
    !exit
!endif

