database rayovac
screen size 24 by 80
{
  Codigo del Sistema [f0] [f001                               ]
  Nombre del Menu    [f002     ] [f003                               ]
  ---------------------------------------------------------------------------
  Programa    Descripcion                                             Opcion
  ---------------------------------------------------------------------------
  [pg1      ][dp                                                     ][oc]
  [pg1      ][dp                                                     ][oc]
  [pg1      ][dp                                                     ][oc]
  [pg1      ][dp                                                     ][oc]
  [pg1      ][dp                                                     ][oc]

}
end
tables
dstb00003,dstb00004
attributes
f0   = dstb00004.cod_sistema,autonext,upshift,comments = 
       "Digite el Codigo del Sistema";
f001 = dstb00003.desc_sistema,noentry;
f002 = dstb00004.menu1,upshift,comments = "Digite Nombre del Menu ";
f003 = formonly.desc_menu,upshift,comments = "Digite Nombre del Menu ";
pg1 = dstb00004.programa,upshift;
dp   = formonly.desc_pr,noentry; 
oc   = formonly.opcion,comments="Digite Numero de Opcion en el Menu";
instructions delimiters " "
 SCREEN RECORD programa1(programa,desc_pr,opcion)
end