DATABASE smarmotech
 SCREEN SIZE 24 by 80
{
               Listado de Puertos
   \g---------------------------------------\g
     Codigo  Puerto
   \g---------------------------------------\g
     [f1  ] [f2                            ]
     [f1  ] [f2                            ]
     [f1  ] [f2                            ]
     [f1  ] [f2                            ]
     [f1  ] [f2                            ]
}
end

tables
cotb00019
attributes
f1  = cotb00019.cod_pt,noentry,
      comments = "<Esc> Busca todos los Puertos";
f2  = cotb00019.nom_pt,upshift, 
      comments = "<Esc> Busca todos los Puertos";

instructions
   screen record consart[5] (cod_pt,nom_pt)
   delimiters " "
end