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
