30 lines
959 B
Plaintext
30 lines
959 B
Plaintext
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
|
|
|