SCHEMA Smarmotech
 SCREEN SIZE 24 by 80
{
           Busqueda de Productos Terminados    
   \g-----------------------------------------------------\g
         Codigo          Nombre             
   \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
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 ";
f3  = intb00001.unidad_med,noentry;
instructions
   screen record s_prod[5] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
                             unidad_med)
   delimiters " "
end