37 lines
1.2 KiB
Plaintext
37 lines
1.2 KiB
Plaintext
{
|
|
--------------------------------------------------------------------------
|
|
FORMULARIO : VEFMWD101
|
|
OBJETIVO : Desplegar los empleados (VEPRMT101)
|
|
REALIZADO POR : Tadeo A. Ferreras F.
|
|
FECHA : Marzo 25, 1996
|
|
--------------------------------------------------------------------------
|
|
}
|
|
SCHEMA smarmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda de Empleados
|
|
\g-----------------------------------------------------------\g
|
|
Codigo Nombre
|
|
\g-----------------------------------------------------------\g
|
|
[j ] [f2 ][f3 ]
|
|
[j ] [f2 ][f3 ]
|
|
[j ] [f2 ][f3 ]
|
|
[j ] [f2 ][f3 ]
|
|
[j ] [f2 ][f3 ]
|
|
[j ] [f2 ][f3 ]
|
|
[j ] [f2 ][f3 ]
|
|
}
|
|
end
|
|
|
|
tables
|
|
adtb00003
|
|
attributes
|
|
j = adtb00003.num_emp,comments="Presione <ESC> en el registro deseado";
|
|
f2 = formonly.nom1_emp type char, upshift;
|
|
f3 = formonly.apell1_emp type char, upshift;
|
|
instructions
|
|
screen record s_empleados[7] (num_emp,nom1_emp,apell1_emp)
|
|
delimiters " "
|
|
end
|
|
|