database rayovac
screen size 24 by 80
{
                                                               Cantidad
 Sistema        Descripcion                                    Programa
-------------------------------------------------------------------------------
 [f0]         [f001                                         ] [cp         ]
 [f0]         [f001                                         ] [cp         ]
 [f0]         [f001                                         ] [cp         ]
 [f0]         [f001                                         ] [cp         ]
 [f0]         [f001                                         ] [cp         ]
}
end
tables
dstb00003
attributes
f0   = dstb00003.cod_sistema,upshift;
f001 = formonly.desc_sistema type char,noentry;
cp   = formonly.numero,noentry;
instructions delimiters " "
  screen record act5_s[5] (cod_sistema,desc_sistema,numero)
end