Abend occurs on panel P506 while using cursor tigpoli4.csm.
From the P310, input PO# 1449. Click on the SUMMARY tab and navigate to the P506, then double arrow down and receive a fatal error.
TIGCURS: CM9030-DB-CDB-MISMATCH EXPECTED INSERT LINE
DATA PROBABLY NOT SORTED UNIQUELY WITHIN THE CURSOR OR ANOTHER TASK HAS ALTERED A PAGE VIEWED BY THE CURRENT TASK HAS ALTERED A PAGE VIEWED BY THE CURRENT TASK (CONCURRENT UPDATE PROBLEM)
STACK: TIGCURS POLI4
Ventyx fixes in Asset Suite 6.0.2 with Change Request 88611.
Copy change is picked up in compile and I believe the architecture combines "TBL-ID" with code in ccp program populating CURSOR-NAME-CM. It's still baffling what the .tbl file does.
A000-OPEN-CURSORS.
** OPEN CURSOR FOR TIGPOLI4
MOVE 'POLI4' TO CURSOR-NAME-CM.
MOVE OPEN-CURSOR-CM TO FUNCTION-CODE-CM.
MOVE 05 TO CURSOR-DATA-AREA-OCCURS-CM.
MOVE LINE-MAX-POLI4 TO NBR-OCCURS-CM.
2669 01 CURSOR-DATA-ROW.
2670* SQL DECLARE CURSOR STATEMENTS FOR GLOBAL VIEW *
2671* EXEC SQL
2672* INCLUDE 'ticpoli4'
2673* END-EXEC.
2674* VIRTUAL COLUMNS FOR USE BY APPLICATION PROGRAM *
2675******************************************************************
2676* COBOL WORKING-STORAGE FOR TABLE TIDPOLI4 *
2677* MEMBER: TICPOLI4 *
2678* COMMENT: SEARCH CURSOR OVER TABLE POLIN *
2679******************************************************************
2680 05 TIDPOLI4-POLI4.
2681******************************************************************
2682* KEY DEFINITION FOLLOWS *
2683******************************************************************
2684 10 TBL-ID-POLI4.
2685 15 PURCHASE-ORDER-NBR-POLI4 PIC X(0008). TIG00201
2686 15 PO-RELEASE-NBR-POLI4 PIC X(0005). TIG02148
2687 15 PO-LINE-POLI4 PIC X(0004). TIG00362
2688 15 PO-LINE-TYPE-POLI4 PIC X(0001). TIG06064
2689 15 FACILITY-POLI4 PIC X(0003). TIG00068
2690 15 CATALOG-ID-POLI4 PIC X(0010). TIG00495
2691 15 Q-LEVEL-POLI4 PIC X(0001). TIG02001
2692 15 VENDOR-CODE-POLI4 PIC X(0012). TIG00134
2693 15 VENDOR-SUFFIX-POLI4 PIC X(0002). TIG00560
2694 15 PO-LINE-COST-POLI4 PIC S9(0012)V9(04) TIG00365
2695 COMP-3. TIG00365
2696 15 PO-REVISION-NBR-POLI4 PIC X(0003). TIG02870
2697 15 FACILITY-GROUP-POLI4 PIC X(0003). TIG03026
2698 15 COMPANY-POLI4 PIC X(0003). TIG03025
2699 15 PO-ISSUE-DATE-POLI4 PIC X(0008). TIG02538
2700 15 CURRENCY-CODE-POLI4 PIC X(0003). TIG10075
2701 15 TIME-STAMP-POLI4 PIC X(0026).