database rayovac
screen size 24 by 80
{

 Sistema [f0] [f001                                         ]
-------------------------------------------------------------------------------
 Programa       Descripcion 
-------------------------------------------------------------------------------
[cc       ]  [dc                                                          ]
[cc       ]  [dc                                                          ]
[cc       ]  [dc                                                          ]
[cc       ]  [dc                                                          ]
[cc       ]  [dc                                                          ]
}
end
tables
dstb00003
attributes
f0   = dstb00003.cod_sistema,upshift;
f001 = formonly.desc_sistema type char,noentry;
cc   = formonly.programa type char;
dc   = formonly.descripcion type char,noentry; 
instructions delimiters " "
  screen record act2_s[5] (programa,descripcion)
end