Manualshelf

Data Build Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series
171172173174175176177178179180
SQL-INSERT Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–41
1180 ?NOLIST
1240 EXEC SQL END DECLARE SECTION END-EXEC.
1260 *
1280 EXEC SQL INCLUDE SQLCA END-EXEC.
1 01 SQLCA.
2 02 EYE-CATCHER PIC X(2) VALUE "CA".
3 02 VERSION PIC S9(4) COMP VALUE 0.
4 02 NUM-ERR-ENTRIES PIC S9(4) COMP VALUE 7.
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.
1300 *
1320 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.