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-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org> On Behalf Of Greg Wilburn
Sent: Thursday, August 14, 2025 3:14 PM
To: RPG programming on IBM i <[email protected]>
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-kuYYJ3CQfvZxq3Q2jbZZw/[email protected]<mailto:gwilburn-kuYYJ3CQfvZxq3Q2jbZZw/[email protected]>
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: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support-FMtJrHiV//lnDLsaKlm4mFaTQe2KTcn/@public.gmane.org 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
-- 
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support-FMtJrHiV//lnDLsaKlm4mFaTQe2KTcn/@public.gmane.org for any subscription related questions.