MODULE BLOCKING_CLD
IDENT "01-001"
!++
!  BLOCKING verb definition
!     Usage is:
!        BLOCKING filename.dat /key="Text"    [/length=n] [/fill=n]
!        BLOCKING filename.dat /key=hexnumber /hex [/length=n] [/fill=n]
!			........ [/HOLD]
!--
define verb blocking
	parameter	p1,		label=file,
					prompt="File",
					value(required,type=$infile)
	qualifier	fill,		nonnegatable,
					value(required,type=$number)
	qualifier	hexadecimal,	nonnegatable
	qualifier	hold,		nonnegatable
	qualifier	key,		nonnegatable,
					value(required)
	qualifier	length,		nonnegatable,
					value(required,type=$number)
	disallow	not key