>Don't judge him/her to fast or hard - notice that this is THE ONLY WAY >to write this >according to the strucutural programming school ...
The only way using structured programming??? huh, what? How about putting the opens in a SUBR and then saying: GOSUB OPEN.FILES IF ERROR THEN PRINT 'STUFF WENT BOOM' STOP END GOSUB MAIN PROCESSING.LOOP STOP Structured, and clean. I agree with the original "idiot" remark.... :-) -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ross Ferris Sent: Monday, July 30, 2007 14:19 To: [email protected] Subject: RE: [U2] RE: Cleaner Case Statement I see what you mean .... the indenting is off! No wonder it is hard for you to follow!! (and no doubt you would have simply used a COPY statement rather than writing a program?) Ross Ferris Stamina Software Visage > Better by Design! >-----Original Message----- >From: [EMAIL PROTECTED] [mailto:owner-u2- >[EMAIL PROTECTED] On Behalf Of Mats Carlid >Sent: Monday, 30 July 2007 7:47 PM >To: [email protected] >Subject: Re: [U2] RE: Cleaner Case Statement > >MAJ Programming skrev: >> ... >> > >> I've inherited code from an idiot programmer that looks like this: >> >> OPEN FILE1 TO F1 THEN >> OPEN FILE2 TO F2 THEN >> OPEN FILE3 TO F3 THEN >> LOOP WHILE READNEXT ID DO >> READ REC FROM F1, ID THEN >> WRITE REC ON F2, ID >> WRITE REC ON F3, ID >> END >> REPEAT >> END ELSE >> CANNOT OPEN FILE3 >> END ELSE >> CANNOT OPEN FILE2 >> END ELSE >> CANNOT OPEN FILE1 >> END >> >> C'mon. Just because something can be done differently doesn't mean >it's >> worth a hill of beans. >> >> > > > >Don't judge him/her to fast or hard - notice that this is THE ONLY WAY >to write this >according to the strucutural programming school ... > >-- mats >------- >u2-users mailing list >[email protected] >To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
