Re: *INLR

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Mark's provided a lot of good points.

I'll weigh in on the "Submitting a separate job for each such request, in
an attempt to achieve multi-threading, in this case, might actually be
worse, in overall elapsed time, due to the extra overhead of job start-up,
etc".

This...100%...this.  Assuming the "process invoice" doesn't take long, then
submitting each invoice as a separate job is going to hurt rather than help.

Not only job start & end, but assuming a true ILE program, then activation
group creation & destruction overhead comes into play.

One relatively easy change...
PgmA
  Do until shutdown
    Read Invoice Header File for unprocessed invoices
    If a new invoice is found
      Mark the invoice as In-Process
      write invoice# to DTAQ
    endif
  enddo


PgmB
  do until shutdown
    read dtaq
    if data
      Process invoice based on invoice number received
      Mark invoice as Processed
    endif
  enddo

You can then have as many PGMB's running in batch as you need.
(Personally, I like to have them in their own subsystem)

You can even have monitoring set up, if the DTAQ starts getting to many
records, add some more PGMB jobs.

But honestly, I've run 100K items a day through just 3 jobs.  (Granted, we
have some of the biggest boxes you can get)

HTH,
Charles


On Wed, Apr 15, 2026 at 2:48 PM <smith5646midrange@xxxxxxxxx> wrote:

> If I have PgmA and it repeatedly calls PgmB, I know not setting on LR makes
> the process faster because it doesn't have to reload PgmB into memory every
> time.
>
> The argument that we are having is related to PgmA submitting PgmB to
> enable
> multi-thread processing.  Does not setting on LR help in this case because
> they are different jobs?
>
> For example,
> PgmA
>         Do until shutdown
>                 Read Invoice Header File for unprocessed invoices
>                         If a new invoice is found
>                                 Mark the invoice as In-Process
>                                 Submit PgmB to process the invoice
>
>
> PgmB
>         Process invoice based on invoice number received
>         Mark invoice as Processed
>         ** Note: no *INLR logic here
>         Return
>
>         VS
>
>         Process invoice based on invoice number received
>         Mark invoice as Processed
>         *inlr = *on
>         Return
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.