database smarmotech   
screen size 24 by 80
{
\g-----------------------------------------------
 Codigo Mon.      Descripcion                  
\g-----------------------------------------------
[f001 ]         [a                             ]
[f001 ]         [a                             ]
[f001 ]         [a                             ]
[f001 ]         [a                             ]
[f001 ]         [a                             ]
}
end
tables
cotb00031
attributes
f001 = cotb00031.cod_mon;
a    = formonly.nombre_mon, comments = "<Esc> Busca todos los articulos";
instructions
   screen record consart_mon[5] (cod_mon,nombre_mon)
   delimiters " "
end