{
-------------------------------------------------------------------------
NOMBRE          : cgfmwd001
OBJETIVO        : Consulta de los departamentos de la empresa           
DISENO          : Ing. Juan F.Soto
FECHA REALIZADO : Septiembre 28, 1993.
MODULO UTILIZA  : cgprmt001
--------------------------------------------------------------------------
}
 database marmotech   
 screen
{ 
         Consulta departamentos
 \g-----------------------------------------------\g
    No.
    Departamento      Nombre
 \g-----------------------------------------------\g
    [de   ]     [n                               ]
    [de   ]     [n                               ]
    [de   ]     [n                               ]
    [de   ]     [n                               ]
    [de   ]     [n                               ]
}
end
tables
adtb00001
attributes

de = adtb00001.departamento,noentry;
n  = adtb00001.nom_dpto,upshift;

instructions
 screen record s_ws[5](departamento,nom_dpto)
  delimiters " "
end