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.