database smarmotech    
 screen size 24 by 80
{

 Codigo: [e]-[f]-[g ]-[h  ]Descripcion Espanol [k                             ]
                           Descripcion Ingles  [k1                            ]
\g------------------------------------------------------------------------------
  C o d i g o      Existencia      Dia Llegada  Precio Prom.       Valor
\g-------------------------------------------------------------------------------\g
[a]-[b]-[c ]-[d  ][a4         ]        [m  ]    [a5         ] [a6         ]
Descrip Esp:  [a2                            ]  Unidad:  [a3 ]   
Descrip Ing:  [a7                            ]  
[a]-[b]-[c ]-[d  ][a4         ]        [m  ]    [a5         ] [a6         ]
Descrip Esp:  [a2                            ]  Unidad:  [a3 ]  
Descrip Ing:  [a7                            ]  
[a]-[b]-[c ]-[d  ][a4         ]        [m  ]    [a5         ] [a6         ]
Descrip Esp:  [a2                            ]  Unidad:  [a3 ] 
Descrip Ing:  [a7                            ]  
}
tables
 irtb00002,
 intb00002,
 cotb00015
attributes
e     = irtb00002.cod_n,autonext,
          comments = "Digite el NIVEL";
f     = irtb00002.cod_grupo,autonext,
          comments = "Digite el GRUPO";
g     = irtb00002.cod_tipo,autonext,
          comments = "Digite el TIPO";
h     = irtb00002.cod_sec,autonext,
          comments = "Digite la SECUENCIA";
k     = irtb00002.descrip_esp,upshift;
k1    = irtb00002.descrip_ing,upshift;
a     = formonly.cod_n1,noentry;
b     = formonly.cod_grupo1,noentry;
c     = formonly.cod_tipo1,noentry;
d     = formonly.cod_sec1,noentry;  
a2    = formonly.descrip_esp1,noentry;
a3    = irtb00002.unidad_med,noentry;
a4    = intb00002.existencia,noentry;
m     = intb00002.dia_llegada,noentry;
a5    = cotb00015.precio,noentry;
a6    = formonly.valor,noentry; 
a7    = formonly.descrip_esp2,noentry;
instructions
     delimiters " "
     screen record consart[3] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,
             descrip_esp1,unidad_med,existencia,dia_llegada,precio,
             descrip_esp2,valor)
end