database marmotech
 screen size 24 by 80
{
        Furgon [a1]
\g---------------------------------------------------------------------------\g
        Codigo    Descripcion                            
\g---------------------------------------------------------------------------\g
         [a ]    [b                                                 ]
         [a ]    [b                                                 ]
         [a ]    [b                                                 ]
         [a ]    [b                                                 ]
         [a ]    [b                                                 ]
         [a ]    [b                                                 ]
         [a ]    [b                                                 ]
}
tables
 cotb00003
attributes
a1    = cotb00003.cod_furg,autonext;
a     = formonly.codigo,noentry;
b     = cotb00003.descrip_furg,noentry;
instructions
     screen record consart[7] (codigo,descrip_furg)
end