Are you at EOF? The field will not be cleared if that's what you're expecting? How about adding if %EOF(CAFPMAST); leave; Endif; To the loop. Oh, and stop using the free-form stuff... You'll go blind! :) Bob Cozzi -----Original Message----- From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of jrc@xxxxxxxxxx Sent: Monday, March 24, 2003 1:19 PM To: web400@xxxxxxxxxxxx Subject: [WEB400] Re: HTTP Jobs hanging up Thanks to everyone who has responded to this: with Scott's help I was able to break into the running job in debug and find where the endless loop is occuring, but it makes no sense to me. Here is the loop: dow MLNAM = NAMEIN; if MMAP = LASTMAP; read cafpmast; leave; endif; read cafpmast; enddo; MLNAM is the field from the file and there is only one record in the file with this name. In debug I can see the read statement processing, but it never moves to the next record, so the field value cannot change. After EVERY read I get the same MLNAM and MMAP (both fields from cafpmast), so I never get out of the loop. How can this be??? Thanks, Joel >jrc@xxxxxxxxxx wrote: >> I'm experiencing a frustrating problem on our >web server (running Apache on V5R1). >> >> Recently, the server started hanging jobs for no >apparent reason. By hanging jobs, I mean that I >get several HTTP jobs that never stop running and >devouring CPU -like a program stuck in an endless >loop. >> >> I can end the jobs to recover. Sometimes I >won't see it for days and sometimes it will happen >five or six times a day. I can work with the job >before I end it and I have retrieved the program >and statement number (this appears to be the only consistency), but >according to the compile listing the statement is an ENDSR and I don't >see how a program could get endlessly stuck on an ENDSR. >> >> Most frustrating of all is that I cannot >reproduce the problem and I cannot seem to isolate >a set of like circumstances. Is their a way I can >get a program dump from a program that is running? >> >> Thanks, >> >> Joel >> _______________________________________________ >> This is the Web Enabling the AS400 / iSeries >(WEB400) mailing list >> To post a message email: WEB400@xxxxxxxxxxxx >> To subscribe, unsubscribe, or change list >options, >> visit: >http://lists.midrange.com/mailman/listinfo/web400 >> or email: WEB400-request@xxxxxxxxxxxx >> Before posting, please take a moment to review >the archives >> at http://archive.midrange.com/web400. >> >> > > > >_______________________________________________ >This is the Web Enabling the AS400 / iSeries >(WEB400) mailing list >To post a message email: WEB400@xxxxxxxxxxxx >To subscribe, unsubscribe, or change list options, >visit: >http://lists.midrange.com/mailman/listinfo/web400 >or email: WEB400-request@xxxxxxxxxxxx >Before posting, please take a moment to review the >archives >at http://archive.midrange.com/web400. > _______________________________________________ This is the Web Enabling the AS400 / iSeries (WEB400) mailing list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/web400 or email: WEB400-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/web400.