database rayovac   
screen size 24 by 80
{
Procedencia     [p ]
Descripcion     [f2                            ]
[i]
Usuario Creador [j        ]               Usuario Modificador [l        ]  
Fecha Creacion  [k               ]        Fecha Modificacion  [m               ]
}
end
tables
tetb00002 
attributes
p    = tetb00002.procedencia,comments = 
       "Digite la Codigo de Procedencia";
f2   = tetb00002.descripcion,upshift,comments = 
       "Digite descripcion de Procedencia";
i    = tetb00002.status_t,noentry;
j    = tetb00002.us_crea,noentry;
k    = tetb00002.fech_crea,noentry;
l    = tetb00002.us_mod,noentry;
m    = tetb00002.fech_mod,noentry;
end

instructions
delimiters " "