integer function setmv(tagname,value1,value2)
char*0 tagname
double value1,value2
genname PID block1 ! declaration of a local generic name for the function "setmv"
assign tagname to block1
block1.MV = value1
wait until(block.PV >= value2)
IF (P01==1) then
LIC101.PV=50
P01=0
End If