&ACCESS RVP
DEF  GripOpen ( )
   
   Q_GripPosIndex=101
   Q_GripPosCount=I_GripPosCountRet+1
   IF Q_GripPosCount>1000 THEN
      Q_GripPosCount=1
   ENDIF
   WAIT FOR (I_GripPosIndexRet==Q_GripPosIndex) AND (I_GripPosCountRet==Q_GripPosCount) AND I_GripOpen
   
END