-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of nb@xxxxxxxxxxxxx
Sent: Friday, August 24, 2007 3:13 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Strange RPG loop
I think you problem is the statement 436.00. If memory serves, it is looking at IN01 AND IN02 since its *in(02). Not quite the same as *in02. The if statement is looking at both indicators not just 1. So I bet the routine is not doing what you think it is.
Sharon
Hello. I got a nice problem with an RPG program.
Somtetimes (it is not very clear why) this program goes into a tight loop.
As usual, i open a STRSRVJOB/STRDBG to check why it goes in loop, and this
isi the strange: there's no loop in program !!!
Here is the code snippet:
1201 043600 C IF *IN(02)
1202 043700 C Z-ADD 12 Z
1203 043800 C EXSR MUOVETG
1204 043900 C EXSR PREPCD
1205 044000 c Eval *in02 = *off
1206 044100 C LEAVE
1207 044200 C ENDIF
the program loops between spec 439 and 441.
Looking by debugger with F10, when the program do the leave at 441, it
reaches the end of the subroutine (which is immediatly after the ENDDO) end
the calling SR, then came back directly into spec 439 and redo the tour.
I've tried to recompile the object, (we're at 5.3.0, with recent PTF) but
it still does it. Program is very 'old-fashion' written originally in
RPGIII, Convertet to RPGLE and have some minor manteinance.
Any hint on what i can check for??? i've lloked through the whole source,
but cannot realize why there should be a similar behavior.
Thanks
--
Nicola Brion
Tech Fossil (Often called a Dinosaur) - ancient animal that make things to
work.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
CONFIDENTIAL
This e-mail and any files transmitted with it are the property of
BillSoft, Incorporated and/or its affiliates, are confidential, and are
intended solely for the use of the individual or entity to whom this
e-mail is addressed. If there is a non-disclosure agreement in effect
between BillSoft and the recipient, the contents of this email and any
files transmitted with it should be treated as confidential under the
terms of such agreement. If you are not one of the named recipients or
otherwise have reason to believe that you have received this e-mail in
error, please notify the sender and delete this message immediately
from your computer. Any other use, retention, dissemination, forwarding,
printing or copying of this e-mail is strictly prohibited.
"BillSoft" and "EZTax" are registered trademarks of BillSoft,
Incorporated.
midrange.com
