database rayovac
screen size 24 by 80
{
Tabla  [f000     ] Descripcion[f001                                    ]
Usuario[f002][nom                           ]Fecha[f003      ]Secuencia[na     ]  
------------------------------------------------------------------------------
   Campo            Descripcion Campo           Tipo      Longitud
------------------------------------------------------------------------------
[cc              ] [dc1                                               ]
                   [dc2                                               ]
                   [dc3                                               ]
                                              [tp      ] [lg              ]
[cc              ] [dc1                                               ]
                   [dc2                                               ]
                   [dc3                                               ]
                                              [tp      ] [lg              ]
}
end
tables
dstb00005
attributes
f000 = dstb00005.tabla,downshift,comments = "Digite nombre de la tabla";    
f001 = dstb00005.descripcion,upshift; 
f002 = dstb00005.num_emp1,comments = 
      "Digite Codigo del Creador/Modificador de la Tabla";
f003 = dstb00005.fecha_creacion,format = "dd/mm/yyyy",comments = 
      "Digite Fecha de Creacion/Modificacion de la Tabla ";
nom  = formonly.nombre type char,noentry;
na   = dstb00005.numero_act,noentry;

cc   = dstb00005.campo,upshift,comments= "Digite nombre de campo";
dc1  = formonly.descrip_campo1,autonext,
                 upshift,comments="Especifique utilidad de campo";
dc2  = formonly.descrip_campo2,autonext,
                 upshift,comments="Especifique utilidad de campo";
dc3  = formonly.descrip_campo3,wordwrap compress,
                 upshift,comments="Especifique utilidad de campo";
tp   = dstb00005.tipo,upshift,autonext,comments="Especifique tipo de campo";
lg   = dstb00005.longitud,upshift,comments="Especifique la longitud del campo";
instructions delimiters " "
delimiters "::"
  screen record scr_tabla[2] (campo,descrip_campo1,descrip_campo2,
                              descrip_campo3, tipo,longitud)
end