DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
           Busqueda de Productos Terminados    
   \g-----------------------------------------------------\g
         Codigo          Nombre
 \g---------------------------------------------------------------\g
  [f]-[g]-[h ]-[i  ][f2                                           ]
  [f]-[g]-[h ]-[i  ][f2                                           ]
  [f]-[g]-[h ]-[i  ][f2                                           ]
  [f]-[g]-[h ]-[i  ][f2                                           ]
  [f]-[g]-[h ]-[i  ][f2                                           ]

}
end
tables
intb00001
attributes
f   = formonly.cod_n,noentry;
g   = formonly.cod_grupo,noentry;
h   = formonly.cod_tipo,noentry;
i   = formonly.cod_sec,noentry;
f2  = formonly.descripcion, upshift, 
      comments = "         <Esc> Busca todos los Productos Terminados ";

instructions
   screen record s_pilas[5] (cod_n,cod_grupo,cod_tipo,cod_sec,descripcion)
   delimiters " "
end