database rayovac
screen size 24 by 80
{
   Codigo del Sistema [f0] 
   Nombre del Menu    [f001     ]
   Nombre del Programa[f002     ]
}
end
tables
dstb00004
attributes
f0   = dstb00004.cod_sistema,autonext,upshift,comments = 
       "Digite el Codigo del Sistema";
f001 = dstb00004.menu1,upshift,comments = "Digite Nombre del Menu ";
f002 = dstb00004.programa,upshift,comments = "Digite Nombre del Programa ";
instructions delimiters " "
end