No RETURN TOs !!!
So I think you'd get beat.
-----Original Message-----
From: John Hester <jhes...@momtex.com>
To: U2 Users List <u2-users@listserver.u2ug.org>
Sent: Thu, Jan 26, 2012 2:56 pm
Subject: Re: [U2] Passing by Value
We still maintain some AR code written in 1979 which I will put up
gainst anything as one of the best examples of a poorly written
aintenance minefield. Here's a snippet:
0150: 100: Z=1
151: CALL INPUT.VERIFY(Q,PCD(1))
152: 110: IF Q='' THEN
153: IF CUST='END' THEN RETURN
154: Q=CUST
155: END
156: IF Q='END' THEN RETURN
157: IF LEN(Q) = '11' THEN
158: READV Q FROM FILE.SI,Q,1 ELSE NULL
159: END
160: *****
161: *****
162: ***** Added locked clause for CR read
163: *****
164: * READU CR.ITEM FROM FILE.CR, Q ELSE
165: 115: *
166: READU CR.ITEM FROM FILE.CR, Q LOCKED
167: CALL PGMDP0940('AR1245','CR',Q,FILE.CR) ; GO 115
168: END ELSE
169: RELEASE FILE.CR, Q
170: LOCATE(Q,EXCEPTIONS;POSN) ELSE
171: IF NUM(Q) THEN INPUTCLEAR ; PRINTERR CHAR(7):Q:ERR(13)
GO 100
172: LENGTH=3
173: AMC=CR$S.NM
174: K=CR$ADDR1
175: CALL PGMAR3245(K,X)
176: CUST='' ; SAVE.NAME='' ; CR.ITEM=''
177: GOSUB 90000
178: IF Q='END' OR Q='' THEN GO 100
179: GO 110
180: END
181: GOSUB 99900
182: GO 100
183: END
184: RELEASE FILE.CR, Q
Need to figure out where Q, Z, X, or K get assigned or what they're for?
o need to bother. They get used over and over again throughout 5
ifferent subroutines and never for the same thing twice. The original
uthor dared to sign his name at the top of the code, but I'm too nice a
uy to post it. Hopefully he got out of the business long ago.
ortunately these 5 were the only programs on our system he wrote.
-John
-----Original Message-----
rom: u2-users-boun...@listserver.u2ug.org
mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Doug Averch
ent: Thursday, January 26, 2012 2:12 PM
o: U2 Users List
ubject: Re: [U2] Passing by Value
I posted a partial copy of a program written many 25 years ago that we
till maintain with a wonderful variables named like BIT. Not sure what
t does except you set it zero or one and it referenced all over the
lace.
This program has other gems like ATT which are screen positions and
lethora of GOTO's and their labels: Enjoy:
ttp://www.u2logic.com/images1/XLr8EditorOutline.jpg
Regards,
oug
ww.u2logic.com
On Thu, Jan 26, 2012 at 2:56 PM, Mecki Foerthmann <mec...@gmx.net>
rote:
> Not to mention L ;A= and L ;A =
______________________________________________
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
______________________________________________
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
