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