database rayovac 
screen size 24 by 80
{
         Compania           [c]
         Mes Comision       [m1]
         Ano Comision       [a   ]
         Codigo Vendedor    [b1]-[c1   ]
}
end
tables
vetb00028,
vetb00003
attributes
c   = vetb00003.cod_cia,include = (1,2),comments = 
"1- Rayovac     2- Distribuidora";
m1  = formonly.mes type smallint,include = (1 to 12),comments =
"Digite en formato MM eje. 01 (Enero)";
a   = formonly.ano;

b1  = vetb00028.cod_vend,autonext,
      comments = "Digite el codigo del vendedor o el criterio de seleccion";
c1  = vetb00028.sec_vend,
      comments = "Digite el codigo del vendedor o el criterio de seleccion";
instructions
     delimiters " "
end