! Command Language Descriptor for the FIXED_LENGTH program which
! copies one file to another setting the output file to be
! fixed length records of an arbitrary size.
!
! Change the IMAGE specification to match the location where the
! executable image will be on your system
!
! B. Z. Lederman

define verb FIXIT

image USER1:[LEDERMAN.PROGRAMS]FIXED_LENGTH

    parameter P1
	label = IN_FILE_SPEC
	value (required, type = $INFILE)
	prompt = "File to process"

    parameter P2
	label = OUT_FILE_SPEC
	value (type = $OUTFILE)
	prompt = "Output file"

    qualifier RECORD_SIZE,
	default, nonnegatable,
	value (default = "128", type = $NUMBER)