RE: [EXTERNAL] Help with Commit issue

Nevermind... it wasn't a commit issue after all.

We had a lock message on another job that was preventing these files from being updated.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Greg Wilburn
Sent: Thursday, August 14, 2025 3:14 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] Help with Commit issue

I have created a new procedure in an existing program that deletes multiple orders at a time. Everything is under commitment control.

I'm seeing something weird though... like it didn't commit my changes (I was stepping through the program in RDi debug).

I have no idea how to diagnose the issue... any suggestions?

My code looks like this:
....
For x = 1 to n;
Checks stuff here.
lSuccess = Astvv_DeleteOrder(gCompany :gOrder :lOrdStatus :lReasonCode :lRtnMessage);
if lSuccess;
lOrdersDeleted += 1;
else;
leave;
endif;
endfor;

if lSuccess;
exec sql commit;
return;
endif;

exec sql rollback;

end-proc;
[Logo]<https://www.totalbizfulfillment.com/> Greg Wilburn
Director of IT
301.895.3792 ext. 1231
301.895.3895 direct
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx<mailto:gwilburn@xxxxxxxxxxxxxxxxxxxxxxx>
1 Corporate Dr
Grantsville, MD 21536
www.totalbizfulfillment.com<http://www.totalbizfulfillment.com>
--
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.




[CAUTION! This email originated outside of the organization. Please do not open attachments or click links from an unknown or suspicious origin.]

Greg Wilburn
Director of IT
301.895.3792 ext. 1231