Re: long running RPG program

[Tony Carolla <carolla@xxxxxxxxx>]

I would first look at the disk I/O.  Is the program reading a huge number of
records, or CHAINing/READEing a high number of times.  Just a thought --
slow runtimes are often due to extensive DB lookups.

On 1/27/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:
>
> 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
> --
> 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.
>
>


--
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
"If all you have is a hammer, all your problems begin to look like nails"