DATABASE smarmotech    
 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  = intb00001.descrip_esp, upshift, 
      comments = "         <Esc> Busca todos los Productos Terminados ";

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