DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
                     Busqueda de Transportista           
   \g-----------------------------------------------------------\g
      Codigo      Nombre 
   \g-----------------------------------------------------------\g
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
     [i ][j   ] [f2                                           ]
}
end

tables
vetb00015
attributes
i   = vetb00015.cod_transp,noentry;
j   = vetb00015.sec_transp,noentry;
f2  = formonly.descrip6, upshift, 
      comments = "                 <Esc>  Busca todos los Transportista";

instructions
   screen record s_transp[6] (cod_transp,sec_transp,descrip6)
   delimiters " "
end