home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / order.cpy < prev    next >
Text File  |  1997-09-11  |  2KB  |  45 lines
  1.       ******* IBM TeamConnection DataAtlas V1.0.1  *******
  2.       *
  3.       * This Sample COBOL copy file represents data in the
  4.       *   DA_CELD sample DB2 database
  5.       * 
  6.       * To reconcile shareable data elements and shareable
  7.       *   data structures when populating this copy file use:
  8.       *      /samples/celdial/da_celd.map
  9.       *
  10.       * CelDial Billing System
  11.       * ORDER Packing Information
  12.        01  ORDER-PACKING.
  13.             05  ORDER-REFERENCE PIC X(5).
  14.             05  CUSTOMER-NUMBER PIC X(7).
  15.             05  CUSTOMER-NAME   PIC X(40).
  16.             05  SHIP-ID         PIC X(2).
  17.             05  SHIP-ADDRESS.
  18.                 10  STREET      PIC X(40).
  19.                 10  CITY        PIC X(30).
  20.                 10  COUNTRY     PIC X(20).
  21.                 10  ZIP         PIC X(10).
  22.                 10  ZIP-LOC     PIC X(1).
  23.             05  BILLING-ADDRESS.
  24.                 10  STREET      PIC X(40).
  25.                 10  CITY        PIC X(30).
  26.                 10  COUNTRY     PIC X(20).
  27.                 10  ZIP         PIC X(10).
  28.                 10  ZIP-LOC     PIC X(1).
  29.             05  ORDER-DATE      PIC X(10).
  30.             05  SHIP-DATE       PIC X(10).
  31.             05  ITEM-NUMBER     PIC 99      USAGE BINARY.
  32.             05  ORDER-ITEMS  OCCURS 1 TO 99 TIMES 
  33.                              DEPENDING ON ITEM-NUMBER.
  34.                 10  PART-NUMBER PIC X(5).
  35.                 10  MODEL       PIC X(5).
  36.                 10  PART-DESC   PIC X(20).
  37.                 10  PART-PRICE  PIC 9(7)V99 USAGE PACKED-DECIMAL.
  38.                 10  UNITS       PIC 9999    USAGE BINARY.
  39.                 10  UNITS-PRICE PIC 9(9)V99 USAGE PACKED-DECIMAL.
  40.             05  ORDER-TOTAL     PIC 9(10)V99 USAGE PACKED-DECIMAL.
  41.  
  42.  
  43.  
  44.  
  45.