database smarmotech 
screen size 24 by 80
{
  Codigo Repuesto     [a][b][c ][d  ] [des                            ][un ]
  Codigo Maquina      [cod] [f000                           ]
  Numero              [nu                   ]
  Serie               [se                   ]
  Distribuidor        [dis                                          ]
  Fabricante          [fab                                          ]
  Localizacion        [lo                                           ]
  Material            [ma                   ]
  Dureza              [du        ]
  Motor Electrico     [mo ] 
[j]
Usuario Creador      [f004     ]         Usuario Modificador  [f006     ]
Fecha Creacion       [f005            ]  Fecha Modificacion   [f007            ]
}
end
tables
irtb00008,irtb00009
attributes
a = irtb00008.cod_n,autonext;                     
b = irtb00008.cod_grupo,autonext;                     
c = irtb00008.cod_tipo,autonext;                     
d = irtb00008.cod_sec ,autonext;                     
cod= irtb00008.cod_maq, autonext; 
nu = irtb00008.numero,autonext,upshift;
se = irtb00008.serie,autonext,upshift;
dis= irtb00008.distribuidor,upshift,autonext;
fab= irtb00008.fabricante,autonext;
lo = irtb00008.localizacion,autonext,upshift;
ma = irtb00008.material,autonext,upshift;
du = irtb00008.dureza,autonext,upshift;
mo = irtb00008.motor_elec,autonext;                     
des  = formonly.descrip_esp,noentry;
un   = formonly.unidad_med,noentry;
f000 = irtb00009.nombre,noentry;  
f004 = irtb00008.us_crea, noentry;
f005 = irtb00008.fech_crea, noentry;
f006 = irtb00008.us_mod, noentry;
f007 = irtb00008.fech_mod, noentry;

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