My god, who would write a line of basic code like that? Must have been a former MUMPS programmer.
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 <<---huh? END ELSE INS 1 BEFORE AR(14)<1,1> DEL AR(14)<1,9> END > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Caleb Ng > Sent: Thursday, December 08, 2005 2: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/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
