RE: worst RPG ever seen?

If myfile is a SFL then that could BE a valid structure if you wanted to
"crawl" through the SFL data...(minus the GOTO TAG garbage that is... 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, March 02, 2006 8:47 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: worst RPG ever seen?

I've worked with "experienced" RPG programmers who didn't know about
setll 
or read.  If the key was numeric they would do something like
(pseudo code because I've tried to forget fixed format)
x=1
loop tag
x   chain myfile  90
90  GOTO END
  do stuff
  goto loop
end tag

Rob Berendt