home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
datatl25.zip
/
DCTDSGN.Z
/
order.cpy
< prev
next >
Wrap
Text File
|
1997-09-11
|
2KB
|
45 lines
******* IBM TeamConnection DataAtlas V1.0.1 *******
*
* This Sample COBOL copy file represents data in the
* DA_CELD sample DB2 database
*
* To reconcile shareable data elements and shareable
* data structures when populating this copy file use:
* /samples/celdial/da_celd.map
*
* CelDial Billing System
* ORDER Packing Information
01 ORDER-PACKING.
05 ORDER-REFERENCE PIC X(5).
05 CUSTOMER-NUMBER PIC X(7).
05 CUSTOMER-NAME PIC X(40).
05 SHIP-ID PIC X(2).
05 SHIP-ADDRESS.
10 STREET PIC X(40).
10 CITY PIC X(30).
10 COUNTRY PIC X(20).
10 ZIP PIC X(10).
10 ZIP-LOC PIC X(1).
05 BILLING-ADDRESS.
10 STREET PIC X(40).
10 CITY PIC X(30).
10 COUNTRY PIC X(20).
10 ZIP PIC X(10).
10 ZIP-LOC PIC X(1).
05 ORDER-DATE PIC X(10).
05 SHIP-DATE PIC X(10).
05 ITEM-NUMBER PIC 99 USAGE BINARY.
05 ORDER-ITEMS OCCURS 1 TO 99 TIMES
DEPENDING ON ITEM-NUMBER.
10 PART-NUMBER PIC X(5).
10 MODEL PIC X(5).
10 PART-DESC PIC X(20).
10 PART-PRICE PIC 9(7)V99 USAGE PACKED-DECIMAL.
10 UNITS PIC 9999 USAGE BINARY.
10 UNITS-PRICE PIC 9(9)V99 USAGE PACKED-DECIMAL.
05 ORDER-TOTAL PIC 9(10)V99 USAGE PACKED-DECIMAL.