database smarmotech    
screen size 24 by 80
{
Codigo de Moneda          [a   ]
Descripcion Moneda        [f001                          ]
Simbolo                   [f006]
Tasa en el Mercado        [f007        ]
[j]
Usuario Creador  [f002     ]              Usuario Modificador [f004     ]
Fecha Creacion   [f003            ]       Fecha Modificacion  [f005            ]
}
end
tables
cotb00031
attributes
a = cotb00031.cod_mon,autonext,
       comments ="Digite el codigo de la Moneda";
f001 = cotb00031.descrip_mon,upshift,
       comments ="Digite la descripcion de la Moneda";
f006 = cotb00031.simbolo,upshift,
       comments ="Digite El Simbolo que representa la Moneda";
f007 = cotb00031.tasa_cambio,comments ="Digite la Tasa Imperante en el Mercado";
j = cotb00031.status_t,noentry;
f002 = cotb00031.us_crea,noentry;
f003 = cotb00031.fech_crea,noentry;
f004 = cotb00031.us_mod,noentry;
f005 = cotb00031.fech_mod,noentry;
instructions
   delimiters " "
end