#
# WARNUSER.XEQ - Sends WARNF MESSAGE to USERSET (requires MPEX)
# Author: Ernie Newton
# Yolo County Superintendent of Schools
# ernien@yolo.k12.ca.us
#
# Tim Ericson - Modified to run from CI prompt.
#
SETVAR USERSET " "
SETVAR MESSAGE " "
INPUT USERSET;PROMPT="Enter userset: ";wait=120
INPUT MESSAGE;PROMPT="Enter message (40 char max): ";wait=120
IF  USERSET <> " " &
AND MESSAGE <> " "
  RUN MAIN.PUB.VESOFT, MPEX; NOCB; PARM=1; &
    INFO="WARNF !USERSET !HPTIMEF !MESSAGE (Press RETURN to clear)"
ENDIF