/*====================================================================+
  COMANDO....: SCHINSRC                                               +
  DESCRIPCION: Buscar string en archivo fuente.                       +
  AUTOR......: Diego M. ACEVEDO        -Argentina                     +
  FECHA......: 24/09/2004                                             +
  ===================================================================*/
Cmd 'Buscar en archivo fuente'

Parm File Elem1 Min(1)
Parm Search Elem2 max(9)


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


Elem2: +
Elem *Char 5 Rstd(*yes) dft(*None) Values(*none *And *Or) Prompt('Rela+
      ci¢n')
Elem *Char 10 Rstd(*yes) dft(*All) Values(*All Factor1 CodOpe Factor2 +
      Factor2Ext Result IndHI IndLO IndEQ Comment) Prompt('Buscar en:')
Elem *Char 3 Rstd(*yes) dft(*eq) Values(*Eq *Ne *Ge *Gt *Le *Lt *Lk *N+
                                        l) Prompt('Criterio')
Elem *Char 10 Prompt('Valor')

Dep1:
Dep  Ctl(&Search *eq '*ALL ') Parm((&Search *NE '*NONE'))