database marmotech   
screen size 24 by 80
{
Codigo del Suplidor [p1]-[f000][g                                            ]
Codigo del Articulo [a]-[b]-[c1]-[d01] [h                             ]



[k]
Usuario Creador    [f003     ]            Usuario Modificador [f005     ]
Fecha Creacion     [f004            ]     Fecha Modificacion  [f006            ]
}
end
tables
cotb00002,
cotb00001,
intb00001
attributes
p1   = cotb00002.cod_sp, picture = "##", autonext,
       comments = "Codigo del Suplidor del Articulo";
f000 = cotb00002.cod_sp_sec, picture = "####", autonext,
       comments = "Codigo del Suplidor del Articulo";
g    = cotb00001.nom_sp, noentry;
a    = cotb00002.cod_n, autonext, 
       comments = "Codigo del Articulo";
b    = cotb00002.cod_grupo, autonext, 
       comments = "Codigo del Articulo";
c1   = cotb00002.cod_tipo, autonext, 
       comments = "Codigo del Articulo";
d01  = cotb00002.cod_sec, 
       comments = "Codigo del Articulo";
h    = intb00001.descrip_esp, noentry;
f003 = cotb00002.us_crea, noentry;
f004 = cotb00002.fech_crea, noentry;
f005 = cotb00002.us_mod, noentry;
f006 = cotb00002.fech_mod, noentry;
k = cotb00002.status_t,noentry;
instructions
  delimiters " "
end