!***********************************ETAPE**************************************
define verb ETAPE
	image SYS$SYSTEM:ETAPE
   parameter P1 , label DEVICE , prompt="Device name"
   qualifier COMMAND