!   Extract.Cld -- command defintion for Extract
!                                                       Pat Rankin, Oct'88
!                                                          revised, Apr'89
!
  module Extract_Cmd    !@.obj version
define verb extract
!$image Extract         !$ dcl version
!@routine Extract_Cmd   !@.obj version
    parameter p1, value(required,list,type=$infile),
				label=Input_Extr, prompt="File"
    qualifier blocks,   value(list,type=blk_rcrd_keywords)
    qualifier columns,  value(required,list) !,type=$number)
    qualifier edit,     value(required,list,type=edit_keywords)
    qualifier expand_tabs, negatable
    qualifier head,     value(type=$number,default=22)
    qualifier identify, negatable
    qualifier output,   value(type=$outfile,default="SYS$OUTPUT"), default
    qualifier records,  value(list,type=blk_rcrd_keywords)
    qualifier tail,     value(type=$number,default=22)
    qualifier translate, value(required,type=xlate_keywords)
 !  qualifier truncate
    qualifier vfc_header, value(type=vfc_keywords), negatable
 !  qualifier width
 !  qualifier wrap
    disallow  ANY2(head,tail,records,blocks)
	   or blocks and (columns or expand_tabs or translate or vfc_header)
	   or neg records and not (blocks or head or tail)
    disallow  records.end and records.count and records.start
	   or blocks.end and blocks.count and blocks.start
define type blk_rcrd_keywords
    keyword start,      value(type=$number,default=1)
    keyword end,        value(type=$number,default=-1)
    keyword count,      value(type=$number,required)
define type edit_keywords
    keyword collapse,   negatable
    keyword compress,   negatable
    keyword lowercase,  negatable
    keyword trim,       negatable
    keyword uncomment,  negatable
    keyword upcase,     negatable
    keyword strip_trailing, negatable
    keyword ignore_quotes,  negatable
    keyword format,     negatable       !, default
    keyword fallback,   negatable
define type vfc_keywords
    keyword data
    keyword ignore
    keyword keep,       default
define type xlate_keywords
    keyword ascii_to_ebcdic
    keyword ebcdic_to_ascii

!***
!!define verb EXIT
!!    synonym EX
!!    cliroutine EXIT, cliflags(immediate)