database marmotech   
 screen size 24 by 80
{
  Embarque: [k ]  [l                                                 ]
\g----------------------------------------------------------------------------\g
      Codigo                Descripcion               Unidad     Cantidad  
\g----------------------------------------------------------------------------\g
  [b][c][d ][e  ]  [f001                          ]    [g  ]   [f002       ]   
  Furgon:   [a ]  [h                                                 ]
  [b][c][d ][e  ]  [f001                          ]    [g  ]   [f002       ]   
  Furgon:   [a ]  [h                                                 ]
  [b][c][d ][e  ]  [f001                          ]    [g  ]   [f002       ]   
  Furgon:   [a ]  [h                                                 ]
  [b][c][d ][e  ]  [f001                          ]    [g  ]   [f002       ]   
  Furgon:   [a ]  [h                                                 ]
}
tables
 cotb00004,
 cotb00003,
 intb00001,cotb00027
attributes
k    = cotb00004.cod_embarque,autonext;
l    = cotb00027.descrip_emb,noentry;
b    = cotb00004.cod_n,noentry;
c    = cotb00004.cod_grupo,noentry;
d    = cotb00004.cod_tipo,noentry;
e    = cotb00004.cod_sec,noentry; 
f001 = intb00001.descrip_esp,noentry;
g    = intb00001.unidad_med,noentry;
f002 = cotb00004.cantidad,noentry;   
a    = cotb00004.cod_furg,autonext;
h    = cotb00003.descrip_furg,noentry;
instructions
     screen record consart[4] (cod_n,cod_grupo,cod_tipo,cod_sec,
            descrip_esp,unidad_med,cantidad,cod_furg,descrip_furg)
end