Re: Pick List.
Posted in 1997
This is a multi-part message in MIME format. --------------3498149D7803 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Ian J wrote: > > I am trying to develop a pick-list in one of my programs i.e. page full of > options and you choose multiple items...... > > Anyone able to provide source?? > > Informix 4gl 4.14 > Attached are modules that will probably do the job. It was written long ago and memory is rusty, but I'm pretty sure there's ways of setting how many items can be picked (1-n). The module "ptest.4gl" is for testing; there are commented examples of how to set it up. No warranty, but let me know if you have questions. > Please e-mail. > > -- > Regards, > Ian J. //////////////// ======================================================= ////////// // Dennis J. Pimple Informix Software, Inc. ////// / /// Principal Consultant 6300 S Syracuse Way Ste 205 ///// // //// dennisp@informix.com Englewood CO 80111 //// // ///// /// // ////// recept: 303-850-0210 // // /////// direct: 303-740-5611 Opinions expressed are mine, / /////////// fax: 303-779-4025 and do not necessarily //////////////// http://www.informix.com reflect those of my employer --------------3498149D7803 Content-Type: application/x-zip-compressed; name="picklist.zip" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="picklist.zip" UEsDBBQAAAAIALtKgSNujlfoFhIAAKtUAAAIAAAAcGljay40Z2ztXFtz20aWfnet/0OPWE4o h1KkSbwPceQqmgJtzlKkhhc72ZTLBZFNCRMQ4ACgKO2vn3PpBhqNBkVrRM/sVPCQiEBfz+U7 lz7thriI5+tQ/iReXLwQYtzpjOHP3gvx4vLF82cNcZnE14m//Em8PP7xOqA362QVp9Chu45m WRBHqchisYmT38UmyG6EL65lJJNgJlbB7HfhJ4l/j/3a6+wmTn4S5zKKglT85VhcBstVKPHb uZ/hCt7BtFOYFl/N4nWUycQafOl/xlGfPzv3ur2BJ5b46/OdoGd80e73e4OJMJ4GdLnjRYg0 +D9p9Uy39UxniZSRSOQsTuZWx2xbxyzO/FD1S0UQiUwuVyLzr3C3xUCpDLM7NVDnfXvUfHVy clgaaCxDOcvELPTXaakrk4GbtUej9q+/nb76JIZdMfI6w9H582d6jJVqReOfHrZ43Nk6SePk +yBarTOxCGQ4L3r8bQ1rzXucUJcGNxIb+W0iqUUQXcM2X4vB0BtMRr8W3ecSyKa7//jqkCf0 o3sRZzcyEfMgXYX+vdHTG5znyzb2N1OUce0PRozi6Egx6NYP1zItlgDcpv9r5vAOWAao7WsB jIG1bCQwJ5VJJucCFqc5Vow0i+f0/zIt4K1EsUxktk4isbmBNSA7pEHFmUNAGsW03NyYFBZS pkRBC2I1CA8O8W/HXkXbLezVPf8juPJfAE1HT/E0nj/rTgedSW84gEmCjJjcPCSgTK7XSxll 6U9i8H27BLlC9KBt4IeAZGKJwO0nQLwkQGhJxSJOCCuRewSXtKHkGMcwnskN4O9CobdIb+I1 8P5KipkfhnJOeAUUuGj3BiJeCOnPbqwBaGYg9o2fgareCwAngH1jshHxIMUF8xYeJsgOTwO1 ou9NctQ/E6evzDepeoNLmMe0i+yGiCHxN5IHdyNmN350jVKm1vz8WQfkAXieyoIRzPicSY0y m/YiCOUFPCAJnVAC82mPuXUBRZyLVSJXfkK6sAjCUAQZCwM0tfhINoTREznti0hueKCWQFFi cz4PFguZwDLE2Ot7nYk1CBsn7I9rSf2l5CG+niBkwPYT9ULZ1DNxcMByAEye+bA+EIEb/1bS ImnfJtXCRPrz+5aYJ/EK6PX82cf33sD74I2ENxoNR6IzHEx6g6kHoDwaXopJ+23fEwqWK43H k+Elz71BHLlaB+Hc5hOJYRYAra7kjOgXZN+m7DmBFpLDtPBTcIBQyyLgwjnQfuKJ7mh4oWcW MPHIE6dnpzQZAh5NQzPc+Cn0CuMMOWO4Iri7zshrw1gT76KyF+Rok/9n2xZ+W7Ef/LpiF/j1 04D+4wD/UWCPjQ7Z+nb6baDuLDe/neloDOztDkfcjLVBvCzxhD+BrQBxePsr7tSBJGU93wuU gB7wBCFrhI0navFKeREZtWJYMHMuoQ2gCfsUOahgy2OwJPmHi+l4grOCv2oBhLzzZ1l4DxOA t8aeRtqiKZUbe4wy1WIRaolvkLEViyWVf7EBwdFryFVZ+YFg1W4DH+XIwFDjWSTxEnRC8VGZ OTR6aCK0PdwvbCmfLnS6/sVnw7vXHi89DS2qmmGa4PjxyzTT1inb++x1Rd8bvJu8bypMPRRv xIloQ6MCZPU+JoCAPGwDLW6KrMitAe0F0OhKwqrBsqQxOO9galD5FCf9az+IXusRrsBrJRVh DkNvw4clSx2twzDnMRNpMh0NeA+9LqNvMYQBvCwD4K6ClbwN4nVKC6hxACAE1CaDCU10jyTs GLHbNjmKGtjzcuRdInqkPBxDRP69jC0GsOj2OAT89Nqd97oRANhQCcbxS4MUubTrb4qTqrsD feag0TY27AWDSlx6wJsZ29ymwB9HYFk3Aui9ehXTy3M0jRrzx8BgXNKZGEz7/RbaFPA1TMNb IW9p13uKF0ost4lboGmL/EHUdOXkAUnZysL/stjSDYsjXQ2xFe0BrwJR8/4oWUcK/v8ZvC7k 8fCrYK8Jrv8qdC07r/qv7wQIVG/Qm/Ta/d7/GqH/8UsB2o8iqLrmH2hZZxoY8JfdgleYN6Gf dht00/Jl2B9xL3l3ss3Wd+V/9wZjbzRhoNL686Hdn3rjprERd2RlC/Se9GbF08wq7lAHs43o Kd/EG3BLwD5ol3mDLgI7lqJ52oqQwyVZB1k5EQFFP/dFU9AP8iTaaQpzsDR7v0zE/3i/klKC gfjQG07H/AKjNRB6sIjxYmGN3xxe4urHRX+MRkbD/tFfW+Vh8veWJvcGl9MJp9FQF2l9cSRx 5UuwyIWvvX/ly5N6+GjHPP+amZ8rX0FIW6xsrq9hlhR9VchCfzdInU/TTIQyw4Bq6WczzAqY A19XpuWuRqSCpLsGzIzzfqtVgSPWlERj5bWo1net+1Zqz1Is/3eQHv3AB+8dBBA8Fs8Osrm4 Dj+HEBRCU/ZPwEczIuCSFxYhgxcg1cpt4tD0YBArbjfTQ/58UOdADS+9gfjYG5wPP/J22hPx Q+sHeDV5j97FhTjA16p/ezIZ9d5OJ17zLQU/rc7w4sIDMvZxd/32eKI8KtAUDL78NAVp98VJ C38upR9lnE8qqxH8WqIu0V5n9jYRh2aZiVzF8sk5QneODhKaKkFEi1CxT2c4HUyaL5UHSbCV abSvhnRs8tkXOHhzoMiPEvsG11D2gGXhXqptwM5u/DnZQZVig05gAN9wfE+5GcW59fKKI1TO VyiFjeINt9jJQ+GmxroLrMblqs9Iv4w6zEq0w/ekFGdokNSv4gfbE/WDU/W/QYNPyoycuK0L JSnCOF5hAKBQlazXeiWSeJMCJKFrwTqaSj/BtOPH972+UtA3elco9aWx/3RWWUXBDnxIFpD0 pZhB75e5X0CkPlxBQR/CW9DQ9rQ/GbNQpCUXHB+wLIi+ze6PLW/caV96h8U3fABFZjO5yspv vV96E57WMdKfW90fWhrOP1TGW/rJ7xxn6bMp87sRufFOmCwgJIeW/phPIQv4X/JEXE3sIbU2 1LXVTNEjV1vm2yknMtHyot47B87ZzyuwF/VQL+XulGXmoU4MNKUtVbuQpK1Xc92reVhto2Dj rAwb9nPeG1/2C2nkKckNZAn8DbTwkymG5uMSrvybIfb5u/7Yc3FmHRFvAsdOy/Jy5JIX05O1 xSZ3Z13jVgTnZMviHBlwiCgSiZ4dZ3j4JPk/UZQwYpmvZyqfjBYlUi7LNyWaXMVoSVyz5Das DhfwwcwEnbYg25QldbfEB/GZ93ZH7HvDIlI/vH4M1t99KhGJfzqFTD8usTa/5Wlb+yE6o8Tk hM4oPnANUtEbxzvYPgrFz/mZlHvjDXYmOZuUaONuPuTvd3te/1yooM38WqeyfIYbc3ITvUUc vGVOtvKvZbXno/Fmiz6csjH+rl5myp6G62vubNgf6zDO5kluVE8LkzqpmNT38VIKcKxfi0m8 qjBULaKWlb7KM4Jzo8/BKMVBdPcx9WEPqgYuE6p+CjUNn1PRdDwVhjU8VY3ks9vvMND4GBLm hLo6napx76pdRcPNv0cJW72s1MrJVifr9MdcHt5W5OFtnGXx0ikID2t2hKduUa59yChm0mvS wxuZOBTQ2F6tujwGEipSlqsjoL4OH7dJHSOKlj0LWXBv9PfXl8KnRSxFiKOcOLUu8ENM+nJg epUL4rQiiEUgWYHtRxGAzB0OSk0+46i2Z2FssuLMbNeo/8430q1spMb2PH4TOODTbeKthycm YjT8WB3njgf5PFsniT1PNdoCZwXj2m3BFp8SoP4QIsQOvVFuxJm4O9puFCCUzu5XErzeeEPe HyglpqpkJhBoaIIrH5MQsdsM4bMDoptN642yE4LwaXDa51ot9LXySK4cOKuff0JPt1muen9j V83Fpw61lBzV4FmRS6mTp4K88N/PYRBVJJslAxMifiXToZ8G+DJyJZbxLZ5tI8GrbR4wJo49 G9Q7qX5Z7RJB7ajuRj5xhKU1YzOp0u5OvNE2CmMu+KGF1CQzVo9dcR0qwFqKk3Nc2J8oY1LL N0qJkSqrAzqVEaO8KCt64GDmo6JSlReLihgTV+vEInvsbeEiqfoMqwqjbzMa35lBwIc9A5i1 JQ7EYAjyOJwOzp/YUQAnVEpMPJc3EVDKsc5v2T3mLcW7ivKlibZHvoZS3dW3ImiqjWHrdl4b +MKa78TPuROzlZlYP+gbtKIKDhJTJaH1ISw+O0gmoDlCnhPJ8fnSdBY+5LeCjdV1JuaCy8tx rnxvgSkszEIGB37hYdCZfd5jtsq9A6dkItQ0jUHgr1s/bB4grBw49BtVsNqa6+p2b++vsxhF 4eDQ6lIHdRlEFJnptsSJLuajQoM8xvDZ+62xYwbFHHnCHVxFPcjTOAY5a6xxCP+rVFuvbApv J9d6pYhFJDq1KLR2+Hc70Gd7PKAH8Z8o8MEHqLRVhOpTLbdxwFWbuvH3USyjLLkXV+vrvNKZ q0OvZPiAcvtJDe7suhl2Riphwxd7DTyOY8LH+h9BlH1ehP41auvf10HxQzmPdRb8S7ioj3Px pBJtPa4Hj3Wje667x2T8RibFKWYchZhCkC17nDyVr0pwNuj4LDKS8srWKDV8ShqVVQ6FzQcZ /ceh1pZOT3YS8SgpNUWK/i6krlaAy4wmYaVDYmOULp9lq9fPn3X6XntkljLgq+HYK7/CkgEM XrGav5iPh+URxp2RpyeniS9Hw3ej9oXqo9erGpRyXkj1fD9notumOBlXyZM6SqLMWqX9lGdW jOIONZpgfiwvGox3lAWzYOXTdaJ4wX76Zfudt+dazS3yXz15qMQwb9y5hFIlB6MbIhii23XM 1+K4mhENsVhgGke5xbpTymTKa5vNRoU07JjYKIoyLAGpcm8vQlL1DJ5ISPLKtX8LQTnaIig/ l4SiJlNWy6cqAffCJwueH2DSdDX3M5lXBaHB+Qat6pWPVVnAoNIOv2rJNVO5qGoqmUVV3mTa L27PVU5+Nfh2cMQi1V7Y4ThPdtebcrVXalxI8hcZl3/NlZ+7jthA2ddyVIlDQYpWfplso3tR jZ0uEtp/eWdewFnUNzpL6nX5S36iz/yjQgTyp1yXFmyC7oVxjmxYiXHdICkqSdUFUqQ+pRf4 pCyMY7qBu+CyeINpfax+y26SeH19k9Mjy8tWVJZK1cbhSqxSYJ+zGHxZm2oKr+R1EKUc9cBq qzx+rT0yjVYrMGIZ3QQoqpx1oeiTl9rrmlxVHFvUwuodVetg9WLx6x+33cW/+N8goFQuXvHW abTQFGGKs9W9wE0wk1QanwbRjBAI9YAjcFfSTQkeqhPddSqSrX/mHZTvP6FEGFegcBgjmKB0 prt6oqFPrBesueb6j4+Py40xK1G2/bvlchs4FB+54AQoT4DvQahkbIWJrILOrv5ArzTzSQpc p4H6AnJxrcv8aofm1VO4nAoprACg5gvJ8OZLyKDwS94FmYIzPItUqddHU0AnwHfYvfW7tBtU d3D6QFgQnFzislF187RcrKInG5zSXSaFnCqXbC3DuUA7xC012LIyyhba8coWFpixir7ayhLP 1wpBMtHEFDtjRrTMEYxbmdahdPn0wQyy6SU5zQ/T2OU6l/YIQ+aS62p8ssXPdhjuPTkIu19q pCt0jPnKCnPWVi3za3hk2g5VLe0fNvj/iQ0uagZO7FvB9VaxaskegA9lqdZZhpyww3d0F+GP Uzr7IztHyZBiALeBMtGvVPpQ5GJr8q/F4vPUZ6Vl6e6jBp6atuVbkNjYr