{
-----------------------------------------------------------------------------
 FORMULARIO        : COFMWD001
 OBJETIVO          : Desplegar los empleados que solicitan Requisiciones
 PROGRAMADOR       : Ing. Juan Soto.        
 FECHA REALIZACION : Septiembre 1, 1992.
-----------------------------------------------------------------------------
}
DATABASE marmotech   
SCREEN SIZE 24 by 80
{
            Busqueda de Empleados
\g------------------------------------------\g
   Codigo  Nombre
\g------------------------------------------\g
  [f1   ]  [f3                             ]
  [f1   ]  [f3                             ]
  [f1   ]  [f3                             ]
  [f1   ]  [f3                             ]
  [f1   ]  [f3                             ]
  [f1   ]  [f3                             ]
}
end

tables
adtb00003
attributes
f1  = formonly.codigo,noentry,
      comments = "Elija Este Registro Con La Tecla <Esc";
f3  = formonly.nom_emp,upshift,comments = "<Esc> Busca Todos Los Empleados";
instructions
   screen record s_desp[6] (codigo,nom_emp)
 delimiters " "
end