database marmotech 
screen size 24 by 80
{
Codigo              [b]-[c]-[d1]-[e01]
Descripcion Espanol [f004                          ]
Unidad de Medida    [a0 ]
Categoria           [k]
[j]


Usuario Creador     [f006     ]           Usuario Modificador [f008     ]
Fecha Creacion      [f007            ]    Fecha Modificacion  [f009            ]
}
end
tables
  intb00001
  cotb00021
attributes
b    = cotb00021.cod_n, autonext, 
       comments = "Digite el NIVEL del bien o Servicio";
c    = cotb00021.cod_grupo, autonext, 
       comments = "Digite el GRUPO del bien o Servicio";
d1   = cotb00021.cod_tipo, autonext, 
       comments = "Digite el TIPO del bien o Servicio";
e01  = cotb00021.cod_sec, autonext, 
       comments = "Digite el SECUENCIA del bien o Servicio";
f004 = intb00001.descrip_esp,noentry;
a0   = intb00001.unidad_med, noentry;
f006 = cotb00021.us_crea, noentry;
f007 = cotb00021.fech_crea, noentry;
f008 = cotb00021.us_mod, noentry;
f009 = cotb00021.fech_mod, noentry;
j = cotb00021.status_t, noentry;
k = cotb00021.categoria,upshift,required;
instructions
delimiters " "
end