36 lines
1007 B
Plaintext
36 lines
1007 B
Plaintext
{
|
|
-------------------------------------------------------------------------
|
|
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
|