RE: long running RPG program

Steve,
        If some one has not mentioned already, do not use CLx for
multiple lines of code. Instead do this "CL1    EXSR  SRCL1".  Each CLx
line is a separate condition test.

Thank you,
Matt Tyler
WinCo Foods, LLC


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
Sent: Friday, January 27, 2006 9:24 AM
To: RPG programming on the AS400 / iSeries
Subject: long running RPG program

HI I am looking at a program that takes several hours to run. I am
looking
for some obvious signs. For example this routine, is there
a better way to determine if the year on the record is what we want:

L1         BCBNYR    IFGE 97
L1         BCBNYR    ORGE 00
L1         BCBNYR    ANDLE40
L1                   EXSR SRBINV
L1                   EXSR SCBJ1
L1                   END

this loop occurs in a few places.

Also there is a SCAN in a few as this:

C           BDINV#    SCAN JBCMNT                   60
C           *IN60     IFEQ '1'
C           KEYJ1     CHAINOCPJ1                33
C           *IN33     IFEQ '1'
C           JBDIV     ANDEQ'07'
C                     MOVE '08'      JBDIV


Perhaps these are slowing things down, I can't exactly tell.

THanks,
Steve