database exterior 
screen size 24 by 80
{
  Codigo Materia Prima             [a][b][c ][d  ]
  Codigo Materia Prima Sustituta   [g][h][i ][j  ]
  Status Materia Prima Sustituta   [k]
}
end

tables
intb00003
attributes
a    = intb00003.cod_n,autonext,comments = "Digite el NIVEL";
b    = intb00003.cod_grupo,autonext,comments = "Digite el GRUPO";
c    = intb00003.cod_tipo,autonext,comments = "Digite el TIPO"; 
d    = intb00003.cod_sec,autonext,comments = "Digite la SECUENCIA"; 
g    = intb00003.cod_n_s,autonext,
       comments = "Digite el NIVEL del Sustituto"; 
h    = intb00003.cod_grupo_s,autonext,
       comments = "Digite el GRUPO del Sustituto";
i    = intb00003.cod_tipo_s,autonext,
       comments = "Digite el TIPO del Sustituto";
j    = intb00003.cod_sec_s,autonext,
       comments = "Digite la SECUENCIA del Sustituto";
k    = intb00003.cod_uso_s,autonext,
       comments="0 = Sustituto esta en uso,   1 = Sustituto no esta en uso";
end