module mcl
!
! an individual user should type
!	SET COMMAND MCL
! the system manager can add to DCLTABLES by
!	SET COMMAND/TABLE=SYS$LIBRARY:DCLTABLES.EXE-
!		/OUTPUT=SYS$LIBRARY:DCLTABLES.EXE MCL
! see utilities reference manual (remember to reinstall DCLTABLES...)
!
define type FF_TYPE
	keyword   COLUMN
	keyword   PAGE

define verb MCL
	image CES_SYSTEM:MCL
	parameter P1,		value (required, type=$file), prompt="File"
	qualifier OUTPUT,	value (required, type=$file)
	qualifier COLUMNS,	nonnegatable, value (type=$number, default=2)
	qualifier FTAB_EXPAND
	qualifier WIDTH, 	nonnegatable, value (type=$number, default=132)
	qualifier WRAP, 	default
	qualifier SEPARATOR, 	nonnegatable, value(default="|")
	qualifier HEADER,	value, default
	qualifier FF,           default, value (type=FF_TYPE, default=COLUMN)
	qualifier FOOTER,	value
	qualifier LOWER_CASE
	qualifier UPPER_CASE
	qualifier LENGTH,	nonnegatable, value (type=$number, default=60)
	qualifier PAUSE
	qualifier RIGHT,	value (required, type=$number)

	disallow LOWER_CASE and UPPER_CASE