database marmotech
screen size 24 by 80
{
\g-------------------------------------------------------------------------
Codigo           Descripcion           Medida    Cantidad          Precio 
\g-------------------------------------------------------------------------
[a][b][c ][d  ][e                     ][f  ][g           ][h             ] 
[a][b][c ][d  ][e                     ][f  ][g           ][h             ] 
[a][b][c ][d  ][e                     ][f  ][g           ][h             ] 
[a][b][c ][d  ][e                     ][f  ][g           ][h             ] 
[a][b][c ][d  ][e                     ][f  ][g           ][h             ] 
}
end
tables
intb00001, cotb00008 
attributes
a    = intb00001.cod_n,autonext;
b    = intb00001.cod_grupo,autonext; 
c    = intb00001.cod_tipo,autonext;
d    = intb00001.cod_sec,autonext;
e    = intb00001.descrip_esp,autonext;
f    = intb00001.unidad_med,noentry;
g    = cotb00008.cantidad,noentry;
h    = cotb00008.precio,noentry;

instructions
    screen record muestra[5] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,unidad_med,cantidad,precio) 
end