More sexy 4.1 4GL functions offered...

In article <q4KXjq4b9xMq057yn@kcbbs.gen.nz>, Kerry Sainsbury wrote: > > ---------------------------------------------- > | CHOOSE: Yes No | > | | > | message_prompt.4gl is a really handy little | > | routine which lets you create cute message | > | boxes for your users, without YOU having to | > | do very much thinking at all. | > | | > | Try it, you'll like it! | > ---------------------------------------------- > > > eg: LET l_text = "WARNING:<", > "This option will delete all stock records ", > "for this warehouse, are you SURE that this ", > "is REALLY what you want to do?" > IF message_prompt(l_text,"Yes,No")="Yes" THEN > CALL delete_everything() > END IF > > or, for when you just want to tell the user something happened: > > CALL message_prompt("Batch updated successfully!","") > > Note that a null second parameter means that nothing is returned. > Ummm, did anybody look at this function? Did anybody like it? Hate it? Was posting it a good idea? Was zipping it a bad idea? I have another 4.1 function which gives a pop-up selection window (with Query-by-example!), based entirely on a SQL-like command parameter: LET l_text = "SELECT product.prodno{k15}, product.desc{k30}, ", " stock.onhand{7.3} ", " FROM product, stock ", " WHERE product.prodno = stock.prodno ", " AND stock.warehouse = '",l_warehouse CLIPPED,"'" LET product_code = query_window(l_text, "Product,Description,OnHand", 1, "") The numbers inside the squiggles indicate the width of the column, and the "k" means it's an indexed key and can be used in the QBE sub-window. Anybody interested? kerry@kcbbs.gen.nz