database smarmotech   
screen size 24 by 80
{
      Terminos de Pagos de Suplidores
\g------------------------------------------
  Codigo           Descripcion
\g------------------------------------------
   [f0]     [f001                          ]
   [f0]     [f001                          ]
   [f0]     [f001                          ]
   [f0]     [f001                          ]

}
end
tables
cotb00024
attributes
f0   = cotb00024.term_sp,noentry;
f001 = cotb00024.descrip_term, upshift, 
       comments = "<Esc> Busca los terminos de pago";
instructions
   screen record consart[4] (term_sp,descrip_term)
   delimiters " "
end