{
------------------------------------------------------------------------
 FORMULARIO        : ADFMWD001
 OBJETIVO          : Pantalla que muestra los departamentos de la empresa   
                     Es utilizada por: ADPRMT010,ADPRMT017,ADPRMT018
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Junio 24, 1993  
------------------------------------------------------------------------
}
SCHEMA smarmotech
 SCREEN SIZE 24 by 80
{
       Busqueda de Departamentos
\g-----------------------------------------\g
   Codigo  Descripcion
\g-----------------------------------------\g
   [f1  ] [f3                            ]
   [f1  ] [f3                            ]
   [f1  ] [f3                            ]
   [f1  ] [f3                            ]
   [f1  ] [f3                            ]
   [f1  ] [f3                            ]
}
end
tables
 adtb00001
attributes
f1  = adtb00001.departamento,autonext;
f3  = adtb00001.nom_dpto,upshift,
      comments = "<Esc> Busca Todos Los Departamentos";
instructions
   screen record s_depto[6] (departamento,nom_dpto)
 delimiters " "
end