!
! File: UUDECODE.CLD
!
! Command definition for UUDECODE
!
! R.D. Eager   University of Kent   December 1988
!

define type FORMAT_TYPES
	keyword BINARY, nonnegatable
	keyword TEXT, default, nonnegatable

define verb UUDECODE

	image $users:[gih900.x]UUDECODE

	parameter P1
		prompt="File"
		value(noconcatenate,required,type=$infile)

	qualifier FORMAT
		default
		nonnegatable
		placement=global
		value(required,type=FORMAT_TYPES)

	qualifier LOG
		negatable
		placement=global

	qualifier VERSION
		nonnegatable
		placement=global

	disallow ANY2(FORMAT.BINARY, FORMAT.TEXT)
!
! End of file: UUDECODE.CLD
!