/*====================================================================+
  COMANDO....: SCHFLD                                                 +
  DESCRIPCION: Buscar field en archivo fuente.                        +
  AUTOR......: Diego M. ACEVEDO  -Buenos Aires- Argentina             +
  			                                              +
  ===================================================================*/
Cmd 'Buscar campo en archivo fuente'

Parm File Elem1 Min(1) Prompt('Archivo fuente')
Parm Field *Char 14 Min(1) Prompt('Campo')
Parm Position *Char 7 Rstd(*yes) Dft(*target) Values(*source *target) +
     Prompt('Posici¢n')

Parm Output *Char 8 Rstd(*yes) Dft(*) Values(*outfile) Spcval((* *di+
     splay)) Prompt('Output')

Parm Outfile Qual1 Pmtctl(PmtCtl1) Prompt('Output file')
Parm Outmbr  Elem2 Pmtctl(Pmtctl1) Prompt('Output options')


Elem1: +
Elem *Name 10
Elem *Name 10 Dft(*libl) SpcVal(*libl) Prompt('Biblioteca')
Elem *Generic 10 Dft(*first) SpcVal(*first *all) Prompt('Miembro')

Qual1: +
Qual *Name 10
Qual *Name 10 Dft(*libl) SpcVal(*libl) Prompt('Biblioteca')

Elem2: +
Elem *Name 10 Dft(*first) SpcVal(*First) Prompt('Member')
Elem *Char  8 Rstd(*yes) Dft(*Replace) Values(*add) SpcVal(*Replace) P+
     rompt('Option')

PmtCtl1: +
PmtCtl Output Cond((*eq '*OUTFILE'))

Dep Ctl(&Output *eq *outfile) Parm((&Outfile *ne ' ')) Msgid(CPD9861)