database smarmotech   
screen size 24 by 80
{
            BUSQUEDA SEMI-ELABORADOS
\g----------------------------------------------\g
   CODIGO   DESCRIPCION                MEDIDA
\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.cod_prod;
d = formonly.descripcion;
d1 = formonly.unidad_med;
instructions
 screen record sprod[7] (cod_prod,descripcion,unidad_med)
delimiters " "
end