database marmotech
screen size 24 by 80
{
               Codigo        [a]-[b]-[c ]-[d  ]
}
end
tables
iptb00006
attributes
a    = iptb00006.cod_n,autonext;
b    = iptb00006.cod_grupo,autonext;
c    = iptb00006.cod_tipo,autonext;
d    = iptb00006.cod_sec,autonext;
  instructions
     delimiters " "
end