DATABASE smarmotech
 SCREEN SIZE 24 by 80
{
              Busqueda de Areas
   \g--------------------------------------------\g
      Codigo      Descripcion  
   \g--------------------------------------------\g
     [i   ] [f2                            ]
     [i   ] [f2                            ]
     [i   ] [f2                            ]
     [i   ] [f2                            ]
     [i   ] [f2                            ]
     [i   ] [f2                            ]
}
end

tables
prtb00016
attributes
i   = prtb00016.area_num;
f2  = prtb00016.nombre_area;

instructions
   screen record s_area[6] (area_num, nombre_area) 
   delimiters " "
end