MODULE	TFTP_CLD
IDENT	"TFTP V01-00"

!++
!  Facility: TFTP Client - Comamnd line utility
!	
!  Author:
!	Ruslan R. Laishev
!
!  Creation Date:  14-MAY-2004
!
!  Modification History:
!
!--

DEFINE	TYPE	CMDKWDS
	KEYWORD	GET
	KEYWORD	PUT

DEFINE	TYPE	MODEKWDS
	KEYWORD	ASCII
	KEYWORD	NETASCII
	KEYWORD	OCTET
	KEYWORD	BINARY

DEFINE	VERB	RUN
	ROUTINE	TFTP_CMD_RUN

	PARAMETER	P1,LABEL=CMD, VALUE (TYPE=CMDKWDS,REQUIRED)
			PROMPT="Command <GET/PUT> :"
	PARAMETER	P2,LABEL=HOST,VALUE (TYPE=$QUOTED_STRING,REQUIRED)
			PROMPT="Host (in Internet notation) :"
	PARAMETER	P3,LABEL=FROMFILE, VALUE (TYPE=$FILE,REQUIRED)
			PROMPT="From File:"
	PARAMETER	P3,LABEL=TOFILE, VALUE (TYPE=$FILE)
			PROMPT="To File:"

	QUALIFIER	MODE, VALUE (TYPE=MODEKWDS,DEFAULT=BINARY)
	QUALIFIER	FDL,NEGATABLE, VALUE (TYPE=$FILE,REQUIRED)

	QUALIFIER	VERBOSE,NEGATABLE
	QUALIFIER	DEBUG,NEGATABLE