query_window - beta testers wanted
Posted in 1994
Walt has had problems with my 4GL general selection window routine so I'm calling for beta testers before I send him the latest version. How do you use it? LET l_text = "SELECT prodno{k10}, proddesc{k30}, stockonhand{9.3} ", " FROM product, stock ", " WHERE product.prodno = stock.prodno" LET l_prodno = query_window(l_text, "Product,Description,OnHand",1,"1=1","") produces something like: +-----------------------------------------------+ | Query Next Previous Exit | | | | 1 Product Description OnHand | | 2 0100 Blue Widgets 100.000 | | 3 0200 Red Widgets 70.000 | | 4 0300 Green Widgets 0.000 | | 5 0400 Yellow Widgets 0.000 | | 6 0500 Magenta Widgets 4.000 | | | | | | Select line number | +-----------------------------------------------+ Volunteers to email me please, stating your platform type and Informix versions. Regards, Kerry S kerry@kcbbs.gen.nz