database smarmotech   
screen size 24 by 80
{
            BUSQUEDA EMPLEADOS
\g---------------------------------------------------\g
   Ficha    Nombre                 Apellido
\g---------------------------------------------------\g
  [a    ][d                    ][d1                ]
  [a    ][d                    ][d1                ]
  [a    ][d                    ][d1                ]
  [a    ][d                    ][d1                ]
  [a    ][d                    ][d1                ]
  [a    ][d                    ][d1                ]
  [a    ][d                    ][d1                ]

}
end
tables
cttb00001
attributes
a = formonly.num_emp;
d = formonly.nom1_emp,upshift;
d1 = formonly.apell1_emp;
instructions
 screen record sficha[7] (num_emp,nom1_emp,apell1_emp)
delimiters " "
end