First thing I would do is indent it to make it readable. This is the way I
see it:
IF P(2)-AR(12)<=28 THEN
CC=CC+1
INS 0 BEFORE AR(14)<1,1>
DEL AR(14)<1,9>
END ELSE
IF AR(13)=DATE() THEN
CC=CC
END ELSE
INS 1 BEFORE AR(14)<1,1>
DEL AR(14)<1,9>
END
END
Larry Hiscock
Western Computer Services
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Caleb Ng
Sent: Thursday, December 08, 2005 1:11 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Deciphering Pick UniBasic statement
I'm trying to decipher and break the following IF/THEN/ELSE statement
into multiple lines because I need to add some logic into it. Being a
PICK newbie, I'm having difficulty understanding it. I believe this
code was ported from an old MD Pick system but I want to make sure it
behaves in a similar fashion once I break it apart. I'm sure this will
be no problem to gurus like yourselves.
IF P(2)-AR(12)<=28 THEN CC=CC+1; INS 0 BEFORE AR(14)<1,1>; DEL
AR(14)<1,9>; ELSE IF AR(13)=DATE() THEN CC=CC ELSE INS 1 BEFORE
AR(14)<1,1>; DEL AR(14)<1,9>
Thanks in advance,
Caleb Ng
Systems Analyst
Sweetwater Authority
[EMAIL PROTECTED]
(619) 409-6763
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.13.13/195 - Release Date: 12/8/2005
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.13.13/195 - Release Date: 12/8/2005
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
