database rayovac
screen size 24 by 80
{
Programa       [f000     ] Sistema [st] [f001                               ]
Programador    [f002] [nom                           ] Secuencia No.[ac     ]
No. Solicitud  [f1 ]
Fecha Creacion [f003      ]  Fecha Actualizacion[f005      ]
Descripcion    [f004                                                        ]

Objetivo       [f006                                                        ]
               [f008                                                        ]





}
end
tables
dstb00001,dstb00003
attributes
f000 = dstb00001.programa,upshift,comments = "Digite nombre del programa";
st   = dstb00001.cod_sistema,upshift,comments = 
      "Digite codigo del Sistema a Documentar";
f1   = dstb00001.no_solicitud,comments = 
"No. Solicitud Formulario Creacion/Modificacion Programas";
f001 = dstb00003.desc_sistema,noentry;
f002 = dstb00001.num_emp,comments = 
      "Digite Codigo del Empleado Para Deseplegar Nombre";
f003 = dstb00001.fecha_creacion,format = "dd/mm/yyyy",comments = 
      "Digite Fecha de Creacion del Programa si es documentado Por Primera Vez";
f005 = dstb00001.fecha_modificacion,format = "dd/mm/yyyy",comments =
  "Digite Fecha de Modificacion del Programa si ya ha sido documentado";
f004 = dstb00001.descripcion,upshift,comments=
      "Digte la Descripcion del Programa";
f006 = dstb00001.objetivo1,upshift,autonext,comments = 
"Digite Objetivo de Programa, presione ESC digitaras Entrada, Proceso y Salida";
f008 = dstb00001.objetivo2,upshift,comments =
"Digite Objetivo de Programa, presione ESC digitaras Entrada, Proceso y Salida";
ac   = dstb00001.numero_act,noentry;
nom  = formonly.nombre,noentry;
instructions delimiters " "
end