Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
B–20 099331 Tandem Computers Incorporated
5 02 PARAMS-BUFFER-LEN PIC S9(4) COMP VALUE 180.
6 02 SRC-NAME-BUFFER-LEN PIC S9(4) COMP VALUE 34.
7 02 NUM-ERRORS PIC S9(4) COMP VALUE 0.
8 02 NEXT-P-OFFSET PIC S9(4) COMP VALUE 0.
9 02 FLAGS PIC S9(4) COMP VALUE 0.
10 02 PROCEDURE-ID PIC X(32) VALUE SPACES.
11 02 USER-LINE-NUMBER PIC S9(9) COMP VALUE -1.
12 02 SYNTAX-ERR-LOC PIC S9(4) COMP VALUE -1.
13 02 ERROR-LOCATION PIC X(40) VALUE SPACES.
14 02 ROWS PIC S9(9) COMP VALUE 0.
15 02 COST PIC S9(18) COMP VALUE 0.
16 02 SQLCA-RESERVED PIC X(40) VALUE SPACES.
17 02 ERRORS-ALL.
18 03 SQL-ERROR OCCURS 7 TIMES.
19 04 ERRCODE PIC S9(4) COMP VALUE 0.
20 04 SUBSYSTEM-ID PIC X.
21 04 SUPPRESS-DISPLAY PIC X.
22 04 PARAMS-OFFSET PIC S9(4) COMP VALUE -1.
23 04 PARAMS-COUNT PIC S9(4) COMP VALUE 0.
24 04 ARRIVAL-SEQ PIC S9(4) COMP VALUE -1.
25 02 SQLCODEA REDEFINES ERRORS-ALL.
26 03 SQLCODE PIC S9(4) COMP.
27 03 FILLER PIC X(68).
28 02 PARAMS-BUFFER PIC X(180) VALUE SPACES.
29 02 SRC-NAME-BUFFER PIC X(34) VALUE SPACES.
1160 *
1180 EXEC SQL INCLUDE SQLSA END-EXEC.
1 01 SQLSA.
2 02 EYE-CATCHER PIC X(2) VALUE "SA".
3 02 VERSION PIC S9(4) COMP VALUE 0.
4 02 DML.
5 03 NUM-TABLES PIC 9(4) COMP VALUE 0.
6 03 STATS OCCURS 16 TIMES.
7 04 TABLE-NAME PIC X(24) VALUE SPACES.
8 04 RECORDS-ACCESSED PIC S9(9) COMP VALUE 0.
9 04 RECORDS-USED PIC S9(9) COMP VALUE 0.
10 04 DISC-READS PIC S9(9) COMP VALUE 0.
11 04 MESSAGES PIC S9(9) COMP VALUE 0.
12 04 MESSAGE-BYTES PIC S9(9) COMP VALUE 0.
13 04 WAITS PIC S9(4) COMP VALUE 0.
14 04 ESCALATIONS PIC S9(4) COMP VALUE 0.
15 04 SQLSA-RESERVED PIC X(4) VALUE SPACES.
16 02 PREPARE REDEFINES DML.
17 03 INPUT-NUM PIC 9(4) COMP.
18 03 INPUT-NAMES-LEN PIC 9(4) COMP.
19 03 OUTPUT-NUM PIC 9(4) COMP.
20 03 OUTPUT-NAMES-LEN PIC 9(4) COMP.
21 03 NAME-MAP-LEN PIC 9(4) COMP.
22 03 SQL-STATEMENT-TYPE PIC 9(4) COMP.
23 88 SQL-STATEMENT-SELECT VALUE 1.
24 88 SQL-STATEMENT-INSERT VALUE 2.
25 88 SQL-STATEMENT-UPDATE VALUE 3.
26 88 SQL-STATEMENT-DELETE VALUE 4.
27 88 SQL-STATEMENT-DDL VALUE 5.
28 88 SQL-STATEMENT-CONTROL VALUE 6.
29 88 SQL-STATEMENT-DCL VALUE 7.