{
--------------------------------------------------------------------------
FORMULARIO    : VEFMWD001
OBJETIVO      : Desplegar los empleados (CCPRMT001)
REALIZADO POR : Lic. Abner Montalvo Z.
FECHA         : Diciembre 7, 1992 
--------------------------------------------------------------------------
}
DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
                       Busqueda de Empleados               
   \g-----------------------------------------------------------\g
      Codigo      Nombre 
   \g-----------------------------------------------------------\g
     [j   ] [f2                                           ]
     [j   ] [f2                                           ]
     [j   ] [f2                                           ]
     [j   ] [f2                                           ]
     [j   ] [f2                                           ]
     [j   ] [f2                                           ]
}
end

tables
adtb00003
attributes
j   = adtb00003.num_emp,noentry;
f2  = formonly.descrip6, upshift, 
      comments = "                 <Esc>  Busca todos los Empleados";
instructions
   screen record s_empleados[6] (num_emp,descrip6)
   delimiters " "
end