DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
          Descuentos                      
 \g---------------------------\g
     Codigo Porciento Cantidad
 \g---------------------------\g
     [i   ]  [j    ]  [c      ]
     [i   ]  [j    ]  [c      ]
     [i   ]  [j    ]  [c      ]
     [i   ]  [j    ]  [c      ]
     [i   ]  [j    ]  [c      ]
     [i   ]  [j    ]  [c      ]
}
end

tables
vetb00002
attributes
i   = formonly.codigo,noentry;
j   = formonly.porc,noentry;
c   = formonly.valor,noentry;
instructions
   screen record s_desc[6] (codigo,porc,valor)
   delimiters " "
end