NetBase SQL Shadowing Handbook

NetBase SQL User Exits
____________________________________________________________
ver A0195 QUEST Software, Inc. 3-17
Sample User Exit
Below is a sample PASCAL user exit which performs the same functions as the previous
example.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 REC PIC S9(09) COMP VALUE 1.
01 UPD PIC S9(09) COMP VALUE 1.
01 UPD-OFFSET PIC S9(09) COMP VALUE 1.
01 REC-OFFSET PIC S9(09) COMP VALUE 1.
01 MESSAGE-BUFFER PIC X(130).
01 HOLD-AREA PIC X(6).
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 SQLMESSAGE PIC X(132).
EXEC SQL END DECLARE SECTION END-EXEC.
LINKAGE SECTION.
EXEC SQL INCLUDE SQLCA END-EXEC.
01 SQLCA-ARRAY.
05 SQLCA-ENTRY PIC S9(09) COMP OCCURS 500 TIMES.
01 COMAREA.
05 ACTION PIC S9(09) COMP.
05 COMAREA-STATUS PIC S9(09) COMP.
05 ERROR1 PIC S9(09) COMP.
05 ERROR2 PIC S9(09) COMP.
05 ORIGNODE PIC S9(09) COMP.
05 SHADNODE PIC S9(09) COMP.
05 FLAGS PIC X(16).
05 FLAGS-REDF REDEFINES FLAGS.
10 FIRST-TIME PIC X(01).
10 KEY-COL-SEARCH PIC X(01).
10 FILLER PIC X(14).
05 USER-AREA PIC S9(09) COMP OCCURS 512 TIMES.
01 HEADER.
05 DBENAME PIC X(26).
05 OWNER-NAME PIC X(20).
05 TABLE-NAME PIC X(20).
05 USER-NAME PIC X(20).
05 COMMIT-TIME PIC X(24).
05 RECORD-TYPE PIC S9(04) COMP.
05 NUMBER-COLUMNS PIC S9(04) COMP.
05 UPDATE-COLUMNS PIC S9(04) COMP.
05 HDR-COLUMN-ARRAY OCCURS 256 TIMES.
10 COLUMN-TYPE PIC S9(04) COMP.
10 COLUMN-LENGTH PIC S9(04) COMP.
05 HDR-UPDATE-ARRAY OCCURS 256 TIMES.
10 UPD-COL-NUM PIC S9(04) COMP.
10 UPD-COL-TYPE PIC S9(04) COMP.
10 UPD-COL-LENGTH PIC S9(04) COMP.
01 UPDATE-ARRAY PIC X(2000).
01 DATA-ARRAY PIC X(2000).
$PAGE