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>