{
-----------------------------------------------------------------------------
 FORMULARIO        : IRFMWD068
 OBJETIVO          : Desplegar las maquinas 
 PROGRAMADOR       : Lic. Abner Montalvo 
 FECHA REALIZACION : Julio 14, 1998.
-----------------------------------------------------------------------------
}
DATABASE marmotech   
SCREEN SIZE 24 by 80
{
        Busqueda De Maquinarias  
\g-----------------------------------------\g
 Codigo          Descripcion
\g-----------------------------------------\g
[f1       ] [f2                             ]
[f1       ] [f2                             ]
[f1       ] [f2                             ]
[f1       ] [f2                             ]
[f1       ] [f2                             ]
[f1       ] [f2                             ]
}
end
tables
 irtb00009
attributes
f1  = formonly.maquina,noentry,
    comments = "Elegir Este Registro Con La Tecla <Esc>";
f2  = irtb00009.nombre,upshift, 
    comments = "<Esc> Busca Todos Las Maquinas";
instructions
   screen record s_desp1[6] (maquina,nombre)
 delimiters " "
end