NetBase SQL Shadowing Handbook

User Exits NetBase SQL
____________________________________________________________
3-18 QUEST Software, Inc. ver A0195
*******************************************************************
* *
* PROCEDURE DIVISION *
* *
*******************************************************************
PROCEDURE DIVISION.
000-MAIN-LOGIC SECTION 01.
000-EXIT.
EXIT.
$PAGE
A000-EXPORT-SQL-EXIT SECTION 01.
ENTRY "export_sql_exit" USING SQLCA-ARRAY,
COMAREA,
HEADER,
DATA-ARRAY,
UPDATE-ARRAY.
MOVE ZERO TO ACTION
IN COMAREA.
IF SHADNODE IN COMAREA = 0 THEN
* Display when customers dataset is modified. CUST_NUM is the
* forth column in table customers.
IF RECORD-TYPE IN HEADER = 26 AND
TABLE-NAME IN HEADER = "CUSTOMERS " THEN
MOVE ZERO TO UPD-OFFSET
PERFORM A100-COUNT-UPDATES
UNTIL UPD > UPDATE-COLUMNS IN HEADER AND
UPD-COL-NUM IN HDR-UPDATE-ARRAY(UPD) NOT = 4
IF UPD < UPDATE-COLUMNS IN HEADER THEN
PERFORM A200-INCREMENT-REC-COUNT
UNTIL REC = 4
PERFORM A300-DISPLAY-DATA
GOBACK
ELSE
PERFORM A300-DISPLAY-DATA
GOBACK
ELSE
GOBACK.
* Disable shadowing for the table "LOCAL_TABLE"
IF RECORD-TYPE IN HEADER NOT = 15 AND
RECORD-TYPE IN HEADER NOT = 1 AND
TABLE-NAME IN HEADER = "LOCAL_TABLE " THEN
MOVE 4 TO ACTION
IN COMAREA.
* Table GLOBAL_TABLE is shadowed both ways and is partitioned
* vertically. Any updates to this table require that the
* KEY_COL_SEARCH_OK flag be set on the apply.
IF RECORD-TYPE IN HEADER NOT = 15 AND
RECORD-TYPE IN HEADER NOT = 1 AND
TABLE-NAME IN HEADER = "GLOBAL_TABLE " THEN
MOVE 1 TO KEY-COL-SEARCH
IN FLAGS-REDF.
GOBACK.