database marmotech   
screen
{
               Ano [k   ]
               Mes [p ]

               Codigo [a]-[b]-[c ]-[d  ]
}
end
tables
intb00006
attributes
k   = formonly.ano1 type char,comments = "Introduzca Ano del Inventario";
p   = formonly.mes1,comments = "Introduzca mes del Inventario";
a    = intb00006.cod_n,autonext;
b    = intb00006.cod_grupo,autonext;
c    = intb00006.cod_tipo,autonext;
d    = intb00006.cod_sec;
  instructions
     delimiters " "
end