For multilingual. I go with 0/1 for no/yes, myself. But then you can use a code table - in any language - where the returned value is 1 or 2 and test for that in the programs. Also lets the code table or whatever other validation utility you use deal with the upper and lower case issue. Final result is 0/1 and all programs can use that and don't have to be changed when the language does.
I still wouldn't use that construct, but that could explain why the numeric. SJ -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Wjhonson Sent: Thursday, March 15, 2012 12:24 PM To: [email protected] Subject: Re: [U2] Unusual code I don't know why someone would have thought that Y equals 1 and N equals 2 that's just odd to me. The code is confusing enough to make me just want to say, if they entered a Y exit, if they entered a N continue or whatever. That's job security right there! -----Original Message----- From: Symeon Breen <[email protected]> To: 'U2 Users List' <[email protected]> Sent: Thu, Mar 15, 2012 2:42 am Subject: Re: [U2] Unusual code So you can answer y or n or 1 or 2 to this pompt, and if it is n or 2 you are aken to ENTER.PROBLEM.CODES ----Original Message----- rom: [email protected] [mailto:[email protected]] n Behalf Of Wjhonson ent: 15 March 2012 00:21 o: [email protected] ubject: [U2] Unusual code n my 25 years in Pick I have never seen a construction like this to test for Y r N or whatever it's doing. hat is this doing? What is this 1]2 and <1,1> doing ? Why do I need this? 297: CHECK: PRINT @(0,17): "Are the problem codes correct (Y/N)? " : 298: INPUT ANSWER 299: LOCATE ANSWER IN '?Y?N?1?2'<1,1> SETTING TEST ELSE PRINT BELL 300: LOCATE ANSWER IN '?Y?1'<1,1> SETTING TEST ELSE 301: PRINT @(0,13):CLEAR.REST.SCREEN ; GOTO ENTER.PROBLEM.CODES _______________________________________________ 2-Users mailing list [email protected] ttp://listserver.u2ug.org/mailman/listinfo/u2-users ----- o virus found in this message. hecked by AVG - www.avg.com ersion: 10.0.1424 / Virus Database: 2113/4870 - Release Date: 03/14/12 _______________________________________________ 2-Users mailing list [email protected] ttp://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information or otherwise protected by law. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. ------------------------------ _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users End of U2-Users Digest, Vol 35, Issue 14 **************************************** _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users
