Re: [U2] Unusual code
It isn't unusual for a multi-lingual system where the Y/N flags would be stored as boolean values and the text corresponding to the letters Y/N would be stored in a file somewhere. Many languages have 'N' for no but have a different letter for Yes. (Si, Oui, Ja for example). From: Wjhonson wjhon...@aol.com To: u2-users@listserver.u2ug.org Sent: Thursday, March 15, 2012 1:23 PM 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 syme...@gmail.com To: 'U2 Users List' u2-users@listserver.u2ug.org 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: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] n Behalf Of Wjhonson ent: 15 March 2012 00:21 o: u2-users@listserver.u2ug.org 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 2-us...@listserver.u2ug.org 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 2-us...@listserver.u2ug.org ttp://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
the code is so old it was before they invented the concept of zero ;-) -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Horn, John Sent: Thursday, March 15, 2012 11:20 AM To: U2 Users List Subject: Re: [U2] Unusual code Our system does the 1=Y, 2=N thing too. It is so that folks who are keying on the keypad all day can stay on the keypad as much as possible without having to go look for the Y or N keys. Keeps up productivity. Or at least that is the theory. That's my story and I'm sticking with it. - jmh -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, March 15, 2012 12:24 PM To: u2-users@listserver.u2ug.org 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 syme...@gmail.com To: 'U2 Users List' u2-users@listserver.u2ug.org 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: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] n Behalf Of Wjhonson ent: 15 March 2012 00:21 o: u2-users@listserver.u2ug.org 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 2-us...@listserver.u2ug.org 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 2-us...@listserver.u2ug.org ttp://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org 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 U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
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 taken to ENTER.PROBLEM.CODES -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: 15 March 2012 00:21 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 - No virus found in this message. Checked by AVG - www.avg.com Version: 10.0.1424 / Virus Database: 2113/4870 - Release Date: 03/14/12 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
Never heard of matches obviously bob -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: 15 March 2012 00:21 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 __ This email has been scanned by the Symantec Email Security.cloud service. For more information please visit http://www.symanteccloud.com __ Confidentiality Notice: This e-mail and any attachments are intended solely for the addressee and may contain confidential or privileged information. If you are not the named addressee, or the person responsible for delivering the message to the named addressee, please notify the sender as soon as possible and delete the material from your computer. This message will be protected by copyright. If it has come to you in error, you must not take any action based on its contents nor must you copy or show the message to any person other than the intended recipient. _ This email has been scanned by the Symantec Email Security.cloud service. For more information please visit http://www.symanteccloud.com __ ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
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 syme...@gmail.com To: 'U2 Users List' u2-users@listserver.u2ug.org 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: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] n Behalf Of Wjhonson ent: 15 March 2012 00:21 o: u2-users@listserver.u2ug.org 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 2-us...@listserver.u2ug.org 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 2-us...@listserver.u2ug.org ttp://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
Our system does the 1=Y, 2=N thing too. It is so that folks who are keying on the keypad all day can stay on the keypad as much as possible without having to go look for the Y or N keys. Keeps up productivity. Or at least that is the theory. That's my story and I'm sticking with it. - jmh -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, March 15, 2012 12:24 PM To: u2-users@listserver.u2ug.org 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 syme...@gmail.com To: 'U2 Users List' u2-users@listserver.u2ug.org 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: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] n Behalf Of Wjhonson ent: 15 March 2012 00:21 o: u2-users@listserver.u2ug.org 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 2-us...@listserver.u2ug.org 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 2-us...@listserver.u2ug.org ttp://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org 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 U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
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: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, March 15, 2012 12:24 PM To: u2-users@listserver.u2ug.org 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 syme...@gmail.com To: 'U2 Users List' u2-users@listserver.u2ug.org 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: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] n Behalf Of Wjhonson ent: 15 March 2012 00:21 o: u2-users@listserver.u2ug.org 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 2-us...@listserver.u2ug.org 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 2-us...@listserver.u2ug.org ttp://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org 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 U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users End of U2-Users Digest, Vol 35, Issue 14 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
The code will perform the Enter Problem codes sub if anything except Y or 1 are entered. So why test for N and 2 at all? Just to let the terminal beep which doesn't work on a terminal emulator anyway? I would have just used IF THEN ELSE. On 15/03/2012 19:18, Susan Joslyn wrote: 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 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
It checks the others to show you have not entered a valid response. - I think most terminal emulators will interpret the beep and do a sound, or even flash the screen. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Mecki Foerthmann Sent: 15 March 2012 19:33 To: u2-users@listserver.u2ug.org Subject: Re: [U2] Unusual code The code will perform the Enter Problem codes sub if anything except Y or 1 are entered. So why test for N and 2 at all? Just to let the terminal beep which doesn't work on a terminal emulator anyway? I would have just used IF THEN ELSE. On 15/03/2012 19:18, Susan Joslyn wrote: 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 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users - No virus found in this message. Checked by AVG - www.avg.com Version: 10.0.1424 / Virus Database: 2113/4872 - Release Date: 03/15/12 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
Using 1 and 2, they are next to each other, you can have one finger over 1 and 2, and pinky on enter Using 0 and 1, they are on different levels, it's a lot harder to hover over 0 and 1, and hit the enter with the same hand. Now why 1=y and 2=n vs 1=n and 2=yCan't answer that one! -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Susan Joslyn Sent: Thursday, March 15, 2012 3:18 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Unusual code 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: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, March 15, 2012 12:24 PM To: u2-users@listserver.u2ug.org 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! ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
Like many of the others we do a similar thing where I work. Our collectors don't have the time to hunt the keyboard for various alpha keys while discussing a customers bill on the phone. So we try to centralize movement to the ten-key pad. It leave one hand free for other things while they talk through their headsets. Same thing for data entry. Jerry On 3/15/2012 12:23 PM, Wjhonson wrote: 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 Breensyme...@gmail.com To: 'U2 Users List'u2-users@listserver.u2ug.org 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: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] n Behalf Of Wjhonson ent: 15 March 2012 00:21 o: u2-users@listserver.u2ug.org 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 and1,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 2-us...@listserver.u2ug.org 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 2-us...@listserver.u2ug.org ttp://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Unusual code
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
Re: [U2] Unusual code
I use IF INDEX(*Y*N*1*2*,*:ANSWER:*,1)#0 THEN ELSE ... But hey, to each their own George Gallen Senior Programmer/Analyst Accounting/Data Division ggal...@wyanokegroup.com ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.com From: u2-users-boun...@listserver.u2ug.org [u2-users-boun...@listserver.u2ug.org] On Behalf Of Mitchell, Stewart [stewart.mitch...@symbion.com.au] Sent: Wednesday, March 14, 2012 8:36 PM To: U2 Users List Subject: Re: [U2] Unusual code 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 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
