database rayovac   
screen size 24 by 80
{

Codigo       [p  ]
Descripcion  [f2                            ]
Tipo         [f3]
[i]
Usuario Creador [j        ]               Usuario Modificador [l        ]  
Fecha Creacion  [k               ]        Fecha Modificacion  [m               ]
}
end
tables
tetb00003 
attributes
p    = tetb00003.codigo,comments = "Digite la Codigo de Partida";
f2   = tetb00003.descripcion,upshift,comments = "Digite descripcion de Partida";
f3   = tetb00003.tipo,include = ("IG","DI","DL"),upshift,comments =
"Tipo:  IG = Ingresos,  DL = Desembolso Local,  DI = Desembolso Internacional";
i    = tetb00003.status_t,noentry;
j    = tetb00003.us_crea,noentry;
k    = tetb00003.fech_crea,noentry;
l    = tetb00003.us_mod,noentry;
m    = tetb00003.fech_mod,noentry;
end

instructions
delimiters " "