database marmotech   
screen size 24 by 80
{
         Suplidor      [p1]-[p2  ]
         Materia Prima [a]-[b]-[c ]-[d  ]
}
end
tables
intb00001,
cotb00014 
attributes
p1  = cotb00014.cod_sp;
p2  = cotb00014.cod_sp_sec;
a   = intb00001.cod_n;
b   = intb00001.cod_grupo;
c   = intb00001.cod_tipo;
d   = intb00001.cod_sec;
  instructions
     delimiters " "
end