RE: *INLR -- RPG400-L

If PGMA can do a sbmjob for PGMB I would suggest the amount of work to
change this to use a DTAQ (data queue) would be minimal and a significant
improvement. Additionally this approach enables multiple jobs to process
the requests should that be necessary now or in the future.

If you do not want to change PGMB, write a new program to monitor for new
entries on the data queue and call PGMB with the required parameters.

Cheers
Don

Â

Don Brown

Senior Consultant
Â
[1]OneTeam IT Pty Ltd
P: 1300 088 400

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
smith5646midrange@xxxxxxxxx
Sent: Friday, 17 April 2026 5:06 AM
To: 'Midrange RPG List' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: *INLR

Thanks everyone for your thoughts on how to rewrite this but
unfortunately, the logic was only an example to show the program flow.
Because of how the system is written and what needs to be done, PgmA
submitting PgmB as individual jobs is the only solutions without spending
a ton of hours doing code rewrite.

I think that I have my answer in that *inlr being on or off really makes
no difference because when the job ends, everything from PgmB gets cleaned
up either way. Feel free to correct that if I misunderstood some of the
explanations.

-----Original Message-----
From: smith5646midrange@xxxxxxxxx <smith5646midrange@xxxxxxxxx>
Sent: Wednesday, April 15, 2026 4:48 PM
To: Midrange RPG List <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: *INLR

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: [2]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
[3]https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
Message protected by MailGuard: e-mail anti-virus, anti-spam and content
filtering.
[4]https://www.mailguard.com.au

References

Visible links
1. https://www.oneteamit.com.au/
2. https://lists.midrange.com/mailman/listinfo/rpg400-l
3. https://archive.midrange.com/rpg400-l.
4. https://www.mailguard.com.au/