בעיה בהרצת PARTTREE

אני מנסה להריץ את תוכנית ה-PARTTREE מתוך הקוד.
כאשר מריצים לכמה אבות בודדים, זה עובד מצויין.

אבל כאשר מריצים לכל מוצרי P במערכת (בסביבות ה-10000) – התוכנית מסתיימת בערך בשליש ריצה ולא בונה את כל העצים.

יש למישהו רעיון מה אפשר לעשות?

בתודה מראש.

אפשר לראו מטה את קוד התוכנית:

/*-----------------------------------*/
SELECT SQL.TMPFILE INTO :PAR FROM DUMMY;
SELECT SQL.TMPFILE INTO :F2 FROM DUMMY;
/*----------------------*/
LINK PART LPART TO :PAR;
GOTO 333 WHERE :RETVAL <= 0; /*-----------------------------------*/ INSERT INTO PART LPART SELECT * FROM PART ORIG WHERE PART <> 0
AND TYPE = 'P';
/*-----------------------------------*/
EXECUTE PARTTREE :PAR, SQL.DATE8, :F2, 'F';
/*-----------------------------------*/
LINK PARTTREE TO :F2;
GOTO 444 WHERE :RETVAL <= 0; /*-----------------------------------*/ DELETE FROM ZYYY_PARTTREE_DAILY; /*----------*/ INSERT INTO ZYYY_PARTTREE_DAILY SELECT * FROM PARTTREE WHERE IND <> 0;
/*-----------------------------------*/
UNLINK PARTTREE;
LABEL 444;
UNLINK PART;
LABEL 333;