SQL/MP Programming Manual for COBOL85

SQL/MP Sample Database
HP NonStop SQL/MP Programming Manual for COBOL85—429326-004
A-4
*****************************************************
* Sales (SALES) *
*****************************************************
?SECTION CUSTOMER
* Record Definition for \SYS1.$VOL1.SALES.CUSTOMER
* Definition current at 17:09:10 - 10/10/94
01 CUSTOMER.
02 CUSTNUM PIC 9(4) COMP.
02 CUSTNAME PIC X(18).
02 STREET PIC X(22).
02 CITY PIC X(14).
02 STATE PIC X(12).
02 POSTCODE PIC X(10).
02 CREDIT PIC X(2).
?SECTION ORDERS
* Record Definition for \SYS1.$VOL1.SALES.ORDERS
* Definition current at 17:09:11 - 10/10/94
01 ORDERS.
02 ORDERNUM PIC 9(6) COMP.
02 ORDER-DATE PIC S9(6) COMP.
02 DELIV-DATE PIC S9(6) COMP.
02 SALESREP PIC 9(4) COMP.
02 CUSTNUM PIC 9(4) COMP.
?SECTION ODETAIL
* Record Definition for \SYS1.$VOL1.SALES.ODETAIL
* Definition current at 17:09:12 - 10/10/94
01 ODETAIL.
02 ORDERNUM PIC 9(6) COMP.
02 PARTNUM PIC 9(4) COMP.
02 UNIT-PRICE PIC S9(8)V9(2) COMP.
02 QTY-ORDERED PIC 9(5) COMP.
?SECTION PARTS
* Record Definition for \SYS1.$VOL1.SALES.PARTS
* Definition current at 17:09:13 - 10/10/94
01 PARTS.
02 PARTNUM PIC 9(4) COMP.
02 PARTDESC PIC X(18).
02 PRICE PIC S9(8)V9(2) COMP.
02 QTY-AVAILABLE PIC S9(7) COMP.
Example A-1. COPYLIB File for Sample Database (page 2 of 3)