{
------------------------------------------------------------------------
 FORMULARIO        : ADFMWD014
 OBJETIVO          : Pantalla que muestra los parentescos
                     Es utilizada por: ADPRMT013
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Julio 28, 1993  
------------------------------------------------------------------------
}
DATABASE rayovac        
 SCREEN SIZE 24 by 80
{
          Busqueda de Parentescos
\g-----------------------------------------\g
   Codigo  Descripcion
\g-----------------------------------------\g
    [f1]  [f3                            ]
    [f1]  [f3                            ]
    [f1]  [f3                            ]
    [f1]  [f3                            ]
    [f1]  [f3                            ]
    [f1]  [f3                            ]
}
end
tables
 adtb00025
attributes
f1  = adtb00025.cod_par,autonext;
f3  = adtb00025.desc_par,upshift,
      comments = "<Esc> Busca Todas Los Parentescos";
instructions
   screen record s_parece[6] (cod_par,desc_par)
 delimiters " "
end