307: BEGIN
308: gPendingCommitRecords := gPendingCommitRecords + SQL%ROWCOUNT;
309: if (gPendingCommitRecords >= gCommitSize) then
310: -- debug(DEBUG_LEVEL, 'Commit ' || gPendingCommitRecords || ' Records');
311: -- FND_CONCURRENT.AF_COMMIT is used by concurrent programs that
312: -- use a particular rollback segment. This rollback segment must
313: -- be defined in the Define Concurrent Program form.
314: FND_CONCURRENT.AF_COMMIT;
315:
310: -- debug(DEBUG_LEVEL, 'Commit ' || gPendingCommitRecords || ' Records');
311: -- FND_CONCURRENT.AF_COMMIT is used by concurrent programs that
312: -- use a particular rollback segment. This rollback segment must
313: -- be defined in the Define Concurrent Program form.
314: FND_CONCURRENT.AF_COMMIT;
315:
316: gPendingCommitRecords := 0;
317: end if;
318: END extCommit;
319:
320: PROCEDURE extAFCommit IS
321: BEGIN
322: -- debug(DEBUG_LEVEL, 'Commit ' || gPendingCommitRecords || ' Records');
323: -- FND_CONCURRENT.AF_COMMIT is used by concurrent programs that
324: -- use a particular rollback segment. This rollback segment must
325: -- be defined in the Define Concurrent Program form.
326: FND_CONCURRENT.AF_COMMIT;
327: gPendingCommitRecords := 0;
322: -- debug(DEBUG_LEVEL, 'Commit ' || gPendingCommitRecords || ' Records');
323: -- FND_CONCURRENT.AF_COMMIT is used by concurrent programs that
324: -- use a particular rollback segment. This rollback segment must
325: -- be defined in the Define Concurrent Program form.
326: FND_CONCURRENT.AF_COMMIT;
327: gPendingCommitRecords := 0;
328: END extAFCommit;
329:
330: PROCEDURE extRollback IS
328: END extAFCommit;
329:
330: PROCEDURE extRollback IS
331: BEGIN
332: -- FND_CONCURRENT.AF_ROLLBACK is used by concurrent programs that
333: -- use a particular rollback segment. This rollback segment must
334: -- be defined in the Define Concurrent Program form.
335: FND_CONCURRENT.AF_ROLLBACK;
336: gPendingCommitRecords := 0;
331: BEGIN
332: -- FND_CONCURRENT.AF_ROLLBACK is used by concurrent programs that
333: -- use a particular rollback segment. This rollback segment must
334: -- be defined in the Define Concurrent Program form.
335: FND_CONCURRENT.AF_ROLLBACK;
336: gPendingCommitRecords := 0;
337: END extRollback;
338:
339: --------------------------------------------------------------