database rayovac
screen size 24 by 80
{
 Programa [f0       ] [f001                                         ]
-------------------------------------------------------------------------------
 Tabla          Descripcion 
-------------------------------------------------------------------------------
[cc       ]  [dc                                                          ]
[cc       ]  [dc                                                          ]
[cc       ]  [dc                                                          ]
[cc       ]  [dc                                                          ]
[cc       ]  [dc                                                          ]
}
end
tables
dstb00006
attributes
f0   = formonly.programa type char,upshift;
f001 = formonly.descripcion1 type char,noentry;
cc   = dstb00006.tabla;
dc   = formonly.descripcion type char,noentry; 
instructions delimiters " "
  screen record act1_s[5] (tabla,descripcion)
end