schema smarmotech   
screen size 24 by 80
{
Ventas [b   ] [b1                                           ] 
Producto Terminado  [c ]-[d ]-[e  ]-[f  ] [f1                            ]
Porciento Ventas    [g          ]%
Porcentaje x Cobros [h          ]% 
[i] 
Usuario Creador [j        ]               Usuario Modificador [l        ]  
Fecha Creacion  [k               ]        Fecha Modificacion  [m               ]
}
end
tables
cctb00008, 
intb00001
attributes
b    = cctb00008.sec_vend;
b1   = formonly.descrip6,noentry; 
c    = cctb00008.cod_n,autonext,
      comments="Digite el Codigo del Producto Terminado o Ctrl-W para busqueda";
d    = cctb00008.cod_grupo,autonext,
      comments="Digite el Codigo del Producto Terminado o Ctrl-W para busqueda";
e    = cctb00008.cod_tipo,autonext,
      comments="Digite el Codigo del Producto Terminado o Ctrl-W para busqueda";
f    = cctb00008.cod_sec,autonext,
      comments="Digite el Codigo del Producto Terminado o Ctrl-W para busqueda";
f1   = intb00001.descrip_esp,noentry; 
h    = cctb00008.porc_cobros,required,
       comments = "Porcente Cobros A Pagar";
g    = cctb00008.porc_ventas,required,
       comments = "Porcentaje Sobre Ventas A Pagar";
i    = cctb00008.status_t,noentry;
j    = cctb00008.us_crea,noentry;
k    = cctb00008.fech_crea,noentry;
l    = cctb00008.us_mod,noentry;
m    = cctb00008.fech_mod,noentry;
end

instructions
delimiters " "