{
========================================================================
  FORMULARIO   : ACFMWD001
  OBJETIVO     : Desplegar los departamnetos que existe en la maestra
                 del mismo, usado por ACPRMT001
  AUTOR        : Tadeo A. Ferreras
  FECHA        : Sept. 29, 1993
========================================================================
}
database eurostone
screen 
{
\g--------------------------------------\g
  Dpto.  Nombre
\g--------------------------------------\g
 [f000][f001                          ]
 [f000][f001                          ]
 [f000][f001                          ]
 [f000][f001                          ]
 [f000][f001                          ]
 [f000][f001                          ]

}
end
tables
adtb00001
attributes
f000 = adtb00001.departamento,noentry;
f001 = adtb00001.nom_dpto;
instructions delimiters " "
 screen record dpto1[6](departamento,nom_dpto)
end