Several years go I wrote a utility to clean source code for Unidata, for this very same reason. The utility added END statements when need. It also accounted for all Unidata functions, Verbs. An added feature that I was not able to complete, due to time, was a flowchart. A second program would take the cleaned source and build a Visio flowchart. Maybe I'll finish it one of these days.
Pete -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Caleb Ng Sent: Thursday, December 08, 2005 2:11 PM To: [email protected] 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 [email protected] To unsubscribe please visit http://listserver.u2ug.org/ R ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
