#	@(#)Form.cancel_curr	13.1 (RC International) 91/08/23

form=Cancel Current Print Request

help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO 

init=`  if lpstat -o | grep -s '$';
	then
		echo "true";
	else
		echo "false";
		message -b "There are no print requests available";
	fi`

done=`cancel $F1`close

close=`unset -l defprt`

#F1
name=Printer:
lininfo="cancel_curr:F1"
nrow=1
ncol=1
frow=1
fcol=14
rows=1
columns=30
#value="`lpdata -t`"
value="`lpdata -t | set -l defprt;
	if lpdata -e | grep $defprt > /dev/null;
	then
		echo "$defprt";
	else
		echo "";
	fi`"
rmenu={ `lpdata -e` }
menuonly=true
choicemsg="Select printer then press ENTER"
fieldmsg="Type the name of the printer on which you want to cancel the current request"
invalidmsg="$F1 is not a valid printer"