DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
            Busqueda de Repuestos / Materiales   
   \g-----------------------------------------------------------\g
         Codigo          Nombre                          Und.
   \g-----------------------------------------------------------\g
   [f]-[g]-[h ]-[i  ]  [f2                            ] [f3 ] 
   [f]-[g]-[h ]-[i  ]  [f2                            ] [f3 ] 
   [f]-[g]-[h ]-[i  ]  [f2                            ] [f3 ] 
   [f]-[g]-[h ]-[i  ]  [f2                            ] [f3 ] 
   [f]-[g]-[h ]-[i  ]  [f2                            ] [f3 ] 

}
end

tables
irtb00002
attributes
f   = formonly.cod_n,noentry;
g   = formonly.cod_grupo,noentry;
h   = formonly.cod_tipo,noentry;
i   = formonly.cod_sec,noentry;
f2  = irtb00002.descrip_esp, upshift, 
      comments = "         <Esc> Busca todos los Repuestos / Materiales"; 
f3  = formonly.unidad_med,noentry; 

instructions
   screen record s_desp2[5] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,unidad_med)
   delimiters " "
end