database smarmotech 
screen size 24 by 80
{
  Departamento [a   ][des                            ] 
  Maquina      [cod] [f000                           ]

[j] 
Usuario Creador      [f004     ]         Usuario Modificador  [f006     ]
Fecha Creacion       [f005            ]  Fecha Modificacion   [f007            ]
}
end
tables
adtb00001,irtb00009,irtb00029 

attributes
a    = irtb00029.departamento,autonext,
       comments= "Digite el Codigo del Departamento o <Ctrl-W> para ver departamentos";                     
cod  = irtb00029.maquina, autonext,
       comments= "Digite el Codigo de la Maquina o <Ctrl-W> para ver maquinas"; 
des  = adtb00001.nom_dpto,noentry;
f000 = irtb00009.nombre,noentry;  
f004 = irtb00029.us_crea, noentry;
f005 = irtb00029.fech_crea, noentry;
f006 = irtb00029.us_mod, noentry;
f007 = irtb00029.fech_mod, noentry;

j    = irtb00029.status_t, noentry;
instructions
delimiters " "
end