database marmotech   
screen size 24 by 80
{
\g-------------------------------------------------------------------------
                                      ESB Part
Requisicion  Codigo     Cantidad       Number      Precio        Valor
\g-------------------------------------------------------------------------
[f2    ][a         ][f3         ][f5          ][f6          ][f7          ]
[f2    ][a         ][f3         ][f5          ][f6          ][f7          ]
[f2    ][a         ][f3         ][f5          ][f6          ][f7          ]
[f2    ][a         ][f3         ][f5          ][f6          ][f7          ]
[f2    ][a         ][f3         ][f5          ][f6          ][f7          ]
Descripcion  [f4                            ]                 Unidad [f8 ]
N.A.B.  [F9         ]        Nomenclatura [k                             ]


}
end
tables
cotb00005, cotb00006,
intb00001, cotb00008,
cotb00015
attributes
f2   = cotb00006.num_req,autonext;
a    = formonly.codigo,noentry; 
f4   = intb00001.descrip_esp,noentry;
f8   = intb00001.unidad_med,noentry;
k    = formonly.descrip1,noentry;    
f3   = cotb00008.cantidad,noentry;
f5   = cotb00015.num_parte,upshift;
f9   = cotb00005.cod_nab,noentry;
f6   = cotb00008.precio,noentry;
f7   = formonly.valor,noentry;
instructions
    screen record consart[5] (num_req,codigo,cantidad,num_parte,precio,valor)
end