What is this 1]2 and <1,1> doing ? that is the correct syntax for a multi-value locate statement, 1]2 is part of the multi-value array. Why do I need this? That for you to work out. What is this doing? The only valid value for the variable ANSWER are blank (no value) or Y or N or 1 or 2. Where blank (no value) or Y or 1 equal to Yes the problem codes are correct.
If you don’t like it change it, it's only software, just be sure to get the right result. Regards, Stewart Mitchell Business Systems Manager Symbion IT Symbion Pty Ltd Tel: +61 8 8408 3685 Mob: +61 421 612 672 Email: stewart.mitch...@symbion.com.au Building D, 75 Hardys Road I Underdale SA 5032 I Australia -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, 15 March 2012 10:51 AM To: u2-users@listserver.u2ug.org Subject: [U2] Unusual code In my 25 years in Pick I have never seen a construction like this to test for Y or N or whatever it's doing. What is this doing? What is this 1]2 and <1,1> doing ? Why do I need this? 0297: CHECK: PRINT @(0,17): "Are the problem codes correct (Y/N)? " : 0298: INPUT ANSWER 0299: LOCATE ANSWER IN '²Y²N²1²2'<1,1> SETTING TEST ELSE PRINT BELL 0300: LOCATE ANSWER IN '²Y²1'<1,1> SETTING TEST ELSE 0301: PRINT @(0,13):CLEAR.REST.SCREEN ; GOTO ENTER.PROBLEM.CODES _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users Effective October 2011 Symbion Pharmacy Services has changed its name to Symbion. My email address has changed from @symbionpharmacy.com to @symbion.com.au. The company's ABN (25 000 875 034) remains the same. This email and any attachments are confidential. They may contain legally privileged information or copyright material. You should not read, copy, use or disclose them without authorisation. If you are not an intended recipient, please contact us at once by return email and then delete the original message and all copies. We do not accept liability in connection with computer virus, data corruption, delay, interruption, unauthorised access or unauthorised amendment. _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
