database smarmotech    
 screen size 24 by 80
{

     Codigo: [e]-[f]-[g ]-[h  ]  [k                             ]
\g------------------------------------------------------------------------------
                                 Punto      Dia de       Costo 
  C o d i g o      Existencia   Reorden     Llegada     Promedio       Valor
\g-------------------------------------------------------------------------------\g
[a]-[b]-[c ]-[d  ][a4         ][f001       ][m  ]    [a5         ] [a6         ]
Descripcion:  [a2                            ]  Unidad:  [a3 ]   Bodega: [l ] 
[a]-[b]-[c ]-[d  ][a4         ][f001       ][m  ]    [a5         ] [a6         ]
Descripcion:  [a2                            ]  Unidad:  [a3 ]   Bodega: [l ] 
[a]-[b]-[c ]-[d  ][a4         ][f001       ][m  ]    [a5         ] [a6         ]
Descripcion:  [a2                            ]  Unidad:  [a3 ]   Bodega: [l ] 
[a]-[b]-[c ]-[d  ][a4         ][f001       ][m  ]    [a5         ] [a6         ]
Descripcion:  [a2                            ]  Unidad:  [a3 ]   Bodega: [l ] 
}
tables
 intb00001,
 intb00002,
 cotb00015

attributes
e     = intb00001.cod_n,autonext,
          comments = "Digite el NIVEL";
f     = intb00001.cod_grupo,autonext,
          comments = "Digite el GRUPO";
g     = intb00001.cod_tipo,autonext,
          comments = "Digite el TIPO";
h     = intb00001.cod_sec,autonext,
          comments = "Digite la SECUENCIA";
k     = intb00001.descrip_esp,noentry;
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    = intb00001.unidad_med,noentry;
l     = intb00002.bodega,noentry;
a4    = intb00002.existencia,noentry;
f001  = intb00002.pto_reorden,noentry;
m     = intb00002.dia_llegada,noentry;
a5    = cotb00015.precio,noentry;
a6    = formonly.valor,noentry; 
instructions
     delimiters " "
     screen record consart[4] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,
             descrip_esp1,unidad_med,bodega,existencia,pto_reorden,
             dia_llegada,precio,valor)
end