SQL/MP Programming Manual for COBOL85

SQL/MP Sample Database
HP NonStop SQL/MP Programming Manual for COBOL85—429326-004
A-5
*****************************************************
* Inventory (INVENT) *
*****************************************************
?SECTION SUPPLIER
* Record Definition for \SYS1.$VOL1.INVENT.SUPPLIER
* Definition current at 17:09:14 - 10/10/94
01 SUPPLIER.
02 SUPPNUM PIC 9(4) COMP.
02 SUPPNAME PIC X(18).
02 STREET PIC X(22).
02 CITY PIC X(14).
02 STATE PIC X(12).
?SECTION PARTSUPP
* Record Definition for \SYS1.$VOL1.INVENT.PARTSUPP
* Definition current at 17:09:15 - 10/10/94
01 PARTSUPP.
02 PARTNUM PIC 9(4) COMP.
02 SUPPNUM PIC 9(4) COMP.
02 PARTCOST PIC S9(8)V9(2) COMP.
02 QTY-RECEIVED PIC 9(5) COMP.
?SECTION PARTLOC
* Record Definition for \SYS1.$VOL1.INVENT.PARTLOC
* Definition current at 17:09:16 - 10/10/94
01 PARTLOC.
02 LOC-CODE PIC X(3).
02 PARTNUM PIC 9(4) COMP.
02 QTY-ON-HAND PIC S9(7) COMP.
?SECTION ERRORS
* Record Definition for table \SYS1.$VOL1.INVENT.ERRORS
* Definition current at 17:09:16 - 10/10/94
01 ERRORS.
02 ERRORS-DATE PIC 9(6) COMP.
02 ERRORS-TIME PIC 9(6) COMP.
02 ERRORS-ID PIC 9(6) COMP.
02 ERRORS-SQL PIC 9(4) COMP.
02 ERRORS-TEXT1 PIC X(240).
02 ERRORS-TEXT2 PIC X(240).
Example A-1. COPYLIB File for Sample Database (page 3 of 3)