Wow, you're right. I'm guessing Bellevue. We used to be a division of big conglomerate and inherited a lot of their legacy code.
-----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Richard A. Wilson Sent: Thursday, January 26, 2012 3:03 PM To: U2 Users List Subject: Re: [U2] Passing by Value I think that code started out in Either Bellevue or Denver right? any calls to the PCD (prompt control definition) yep, still supporting and actively enhancing for a couple of clients Rich John Hester wrote: > We still maintain some AR code written in 1979 which I will put up > against anything as one of the best examples of a poorly written > maintenance minefield. Here's a snippet: > > 0150: 100: Z=1 > 0151: CALL INPUT.VERIFY(Q,PCD(1)) > 0152: 110: IF Q='' THEN > 0153: IF CUST='END' THEN RETURN > 0154: Q=CUST > 0155: END > 0156: IF Q='END' THEN RETURN > 0157: IF LEN(Q) = '11' THEN > 0158: READV Q FROM FILE.SI,Q,1 ELSE NULL > 0159: END > 0160: ***** > 0161: ***** > 0162: ***** Added locked clause for CR read > 0163: ***** > 0164: * READU CR.ITEM FROM FILE.CR, Q ELSE > 0165: 115: * > 0166: READU CR.ITEM FROM FILE.CR, Q LOCKED > 0167: CALL PGMDP0940('AR1245','CR',Q,FILE.CR) ; GO 115 > 0168: END ELSE > 0169: RELEASE FILE.CR, Q > 0170: LOCATE(Q,EXCEPTIONS;POSN) ELSE > 0171: IF NUM(Q) THEN INPUTCLEAR ; PRINTERR CHAR(7):Q:ERR(13) > ; GO 100 > 0172: LENGTH=3 > 0173: AMC=CR$S.NM > 0174: K=CR$ADDR1 > 0175: CALL PGMAR3245(K,X) > 0176: CUST='' ; SAVE.NAME='' ; CR.ITEM='' > 0177: GOSUB 90000 > 0178: IF Q='END' OR Q='' THEN GO 100 > 0179: GO 110 > 0180: END > 0181: GOSUB 99900 > 0182: GO 100 > 0183: END > 0184: RELEASE FILE.CR, Q > > Need to figure out where Q, Z, X, or K get assigned or what they're for? > No need to bother. They get used over and over again throughout 5 > different subroutines and never for the same thing twice. The > original author dared to sign his name at the top of the code, but I'm > too nice a guy to post it. Hopefully he got out of the business long ago. > Fortunately these 5 were the only programs on our system he wrote. > > -John > > -----Original Message----- > From: [email protected] > [mailto:[email protected]] On Behalf Of Doug Averch > Sent: Thursday, January 26, 2012 2:12 PM > To: U2 Users List > Subject: Re: [U2] Passing by Value > > I posted a partial copy of a program written many 25 years ago that we > still maintain with a wonderful variables named like BIT. Not sure > what it does except you set it zero or one and it referenced all over > the place. > This program has other gems like ATT which are screen positions and > plethora of GOTO's and their labels: Enjoy: > http://www.u2logic.com/images1/XLr8EditorOutline.jpg > > Regards, > Doug > www.u2logic.com > > On Thu, Jan 26, 2012 at 2:56 PM, Mecki Foerthmann <[email protected]> > wrote: > > >> Not to mention L ;A= and L ;A = >> > _______________________________________________ > U2-Users mailing list > [email protected] > http://listserver.u2ug.org/mailman/listinfo/u2-users > _______________________________________________ > U2-Users mailing list > [email protected] > http://listserver.u2ug.org/mailman/listinfo/u2-users > > -- Richard A Wilson Lakeside Systems Smithfield, RI, USA Voice 401-231-3959 Fax 206-202-2064 _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list [email protected] http://listserver.u2ug.org/mailman/listinfo/u2-users
