home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / order.inc < prev    next >
Text File  |  1997-09-11  |  2KB  |  42 lines
  1.       /******* IBM TeamConnection DataAtlas V1.0.1  ******* */
  2.       /*                             */
  3.       /* This Sample PL/I 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_celdp.map                        */
  9.       /*                                                          */
  10.       /* CelDial Billing System                                    */
  11.       /* ORDER Packing Information                            */
  12.       Declare
  13.        01  ORDER_PACKING,
  14.             05  ORDER_REFERENCE CHAR(5),
  15.             05  CUSTOMER_NUMBER CHAR(7),
  16.             05  CUSTOMER_NAME   CHAR(40),
  17.             05  SHIP_ID         CHAR(2),
  18.             05  SHIP_ADDRESS,
  19.                 10  STREET      CHAR(40),
  20.                 10  CITY        CHAR(30),
  21.                 10  COUNTRY     CHAR(20),
  22.                 10  ZIP         CHAR(10),
  23.                 10  ZIP_LOC     CHAR(1),
  24.             05  BILLING_ADDRESS,
  25.                 10  STREET      CHAR(40),
  26.                 10  CITY        CHAR(30),
  27.                 10  COUNTRY     CHAR(20),
  28.                 10  ZIP         CHAR(10),
  29.                 10  ZIP_LOC     CHAR(1),
  30.             05  ORDER_DATE      CHAR(10),
  31.             05  SHIP_DATE       CHAR(10),
  32.             05  ITEM_NUMBER      PIC '99',
  33.             05  ORDER_ITEMS(1:99),
  34.                 10  PART_NUMBER CHAR(5),
  35.                 10  MODEL       CHAR(5),
  36.                 10  PART_DESC   CHAR(20),
  37.                 10  PART_PRICE  PIC '(7)9V99',
  38.                 10  UNITS       PIC '9999',
  39.                 10  UNITS_PRICE  PIC '(9)9V99',
  40.             05  ORDER_TOTAL     PIC '(10)9V99';
  41.  
  42.