אין לי מושג כמובן מה הבעיה, אבל אני רוצה לתאר בעיה אפשרית ואיך פתרתי אותה.
ההודעה באה ממשק וסביר להניח שהנתונים עבור הממשק מוכנסים לתוך טבלת GENERALLOAD. בדקתי פעם את עשרות ההפעלות שיש אצלנו במסך ORDERS וגיליתי לא מעט מקרים בהם יש שימוש בטבלה הזו. בתחילת כל הפעלה יש פקודה LINK GENERALLOAD TO טבלה זמנית ובסוף יש UNLINK (היו גם מקרים עם LINK ללא UNLINK!!). לכאורה הכל נראה תקין.
אבל מתברר שכל פעם מתבצע לינק לאותה טבלה ולפעמים הלינק ייכשל מפני שטבלה עדיין מלונקקת. יש לי שתי הצעות: 1) להרחיב את ה-UNLINK אל UNLINK AND REMOVE.
2) להשתמש ב-ALIAS.
הנה קצת קוד שכתבתי אתמול שמשתמש בשני הפתרונות הללו
SELECT SQL.TMPFILE INTO :CCT FROM DUMMY;
LINK GENERALLOAD CCT TO :CCT;
GOTO 57 WHERE :RETVAL <= 0;
SELECT ENTMESSAGE ('ORDERS', 'F', 8300) INTO :PAR1 FROM DUMMY;
INSERT INTO GENERALLOAD CCT (LINE, RECORDTYPE, INT1, TEXT6)
VALUES (1, '1', :CC, :PAR1);
EXECUTE INTERFACE 'TEST_UPDCCSTATUS', SQL.TMPFILE, '-L', :CCT;
:XMSG = ";
SELECT MESSAGE INTO :XMSG FROM ERRMSGS
WHERE USER = SQL.USER AND TYPE = 'i';
GOTO 56 WHERE :RETVAL <= 0;
:PAR1 = STRIND (:XMSG, 1, 60);
:PAR2 = STRIND (:XMSG, 61, 60);
:PAR3 = STRIND (:XMSG, 121, 60);
WRNMSG 35;
LABEL 56;
UNLINK AND REMOVE GENERALLOAD CCT;
LABEL 57;
השינויים הללו מאד עזרו לי.
