NetBase SQL Shadowing Handbook

User Exits NetBase SQL
____________________________________________________________
3-20 QUEST Software, Inc. ver A0195
IF DATA-ARRAY(REC-OFFSET:2) = "NW" THEN
DISPLAY "USEREXIT CUSTDBE:LOCAL CUST_NUM MODIFIED ",
ORIGNODE IN COMAREA
MOVE 1 TO ACTION IN COMAREA
ELSE
NEXT SENTENCE
ELSE
NEXT SENTENCE
ELSE
NEXT SENTENCE.
GOBACK.
B00A-EXIT.
EXIT.
$PAGE
C000-POST-SQL-EXIT-AFTER SECTION 01.
ENTRY "post_sql_exit_after" USING SQLCA,
COMAREA,
HEADER,
DATA-ARRAY,
UPDATE-ARRAY.
MOVE ZERO TO ACTION
IN COMAREA.
* Return if not an error
IF SQLCODE IN SQLCA = 0 THEN GOBACK.
* Display error message associated with error.
EXEC SQL SQLEXPLAIN : SQLMESSAGE END-EXEC.
DISPLAY SQLMESSAGE.
* Display type of transaction.
IF RECORD-TYPE IN HEADER >= 24 AND
RECORD-TYPE IN HEADER <= 26 THEN
PERFORM C010-DISPLAY-TRANSACTION
DISPLAY "Error occurred on table ",
TABLE-NAME IN HEADER
IF TABLE-NAME IN HEADER = "LOCAL_TABLE " THEN
MOVE 4 TO ACTION
IN COMAREA
ELSE
NEXT SENTENCE
ELSE
IF RECORD-TYPE IN HEADER = 1
DISPLAY "Error occurred on COMMIT record"
ELSE
DISPLAY "Error occurred on BEGIN record".
GOBACK.
C00A-EXIT.
EXIT.
$PAGE
C010-DISPLAY-TRANSACTION SECTION 01.
IF RECORD-TYPE IN HEADER = 24 THEN
DISPLAY "INSERT"
ELSE
IF RECORD-TYPE IN HEADER = 25 THEN