{
--------------------------------------------------------------------------
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