DATABASE rayovac    
 SCREEN SIZE 24 by 80
{
                       Busqueda de Empleados               
   \g-----------------------------------------------------------\g
      Codigo      Nombre 
   \g-----------------------------------------------------------\g
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
}
end

tables
adtb00003
attributes
i   = formonly.cod_emp,noentry;
j   = formonly.cod_emp_sec,noentry;
f2  = formonly.descrip6, upshift, 
      comments = "                 <Esc>  Busca todos los Empleados";

instructions
   screen record s_empleados[6] (cod_emp, cod_emp_sec, descrip6)
   delimiters " "
end