database smarmotech   
screen size 24 by 80
{

   Fecha de Corte   [c       ] 
   Dias Vencimiento [d       ] 
   Codigo Suplidor  [cs]
}
end
tables
cptb00001
attributes
c  = formonly.fecha_corte type date, autonext, format = "dd/mm/yy", 
     comments = "Digite la fecha de Corte del Reporte"; 
d  = formonly.dias_venc type integer, autonext, 
     comments = "Digite los dias de Vencimiento"; 
cs = formonly.cod_sup type smallint;
end