SQL/MP Programming Manual for COBOL85

Explicit Program Compilation
HP NonStop SQL/MP Programming Manual for COBOL85—429326-004
6-37
SQL Compiler Listings
Example 6-1. Sample SQL Compiler Listing (page 1 of 2)
SQL - Source File = \NEWYORK.$SQL.SQLPGMS.COBPGM
SQL - SLT Index = 0, Run-Unit = NEWPART
30 DECLARE GET_SUPPLIER_CURSOR CURSOR FOR
31 SELECT SUPPNUM,
32 SUPPNAME,
33 STREET,
34 CITY,
35 STATE,
36 POSTCODE
37 FROM =SUPPLIER
38 WHERE SUPPNUM = :SUPPLIER-OF-PARTS
39 REPEATABLE ACCESS
40
*** Statistics: Estimated cost: 1
SQL - SLT Index = 1, Run-Unit = NEWPART
73 BEGIN WORK
SQL - SLT Index = 2, Run-Unit = NEWPART
97 INSERT INTO =PARTLOC
98 VALUES (:LOC-CODE OF PARTLOC-REC,
99 :PARTNUM OF PARTLOC-REC,
100 :QTY-ON-HAND OF PARTLOC-REC)
101
*** Statistics: Estimated cost: 1
SQL - SLT Index = 3, Run-Unit = NEWPART
110 INSERT INTO =PARTS
111 VALUES (:PARTNUM OF PARTS-REC,
112 :PARTDESC OF PARTS-REC,
113 :PRICE OF PARTS-REC,
114 :QTY-AVAILABLE OF PARTS-REC)
115
*** Statistics: Estimated cost: 2
SQL - SLT Index = 4, Run-Unit = NEWPART
121 COMMIT WORK
SQL - SLT Index = 5, Run-Unit = NEWPART
137 ROLLBACK WORK
BINDER - OBJECT FILE BINDER - T9621D30 - (17JUL95) SYSTEM \NEWYORK
Copyright Tandem Computers Incorporated 1982-1995
Object file \NEWYORK.$SQL.SQLPGMS.COBOBJ
TIMESTAMP 1996-06-17 14:47:05
0 Binder Warnings
0 Binder Errors