home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / customer.inc < prev    next >
Text File  |  1997-09-11  |  2KB  |  36 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.       /*   either:                                                  */
  9.       /*      /samples/datatlas.map                                 */
  10.       /*      /samples/celdial/da_celdp.map                      */
  11.       /*                                                                     */
  12.       /* CelDial Billing System                                        */
  13.       /* CUSTOMER INFORMATION                                   */
  14.       Declare
  15.        01  CUSTOMER_ALL,
  16.             05  CUSTOMER_NUMBER CHAR(7),
  17.             05  CUSTOMER_NAME   CHAR(40),
  18.             05  SALES_REP       CHAR(5),
  19.             05  CONTACT         CHAR(30),
  20.             05  CONTACT_PHONE   CHAR(17),
  21.             05  CONTACT_FAX     CHAR(17),
  22.             05  SHIP_ID         CHAR(2),
  23.             05  SHIP_ADDRESS,
  24.                 10  STREET      CHAR(40),
  25.                 10  CITY        CHAR(30),
  26.                 10  COUNTRY     CHAR(20),
  27.                 10  ZIP         CHAR(10),
  28.                 10  ZIP_LOC     CHAR(1),
  29.             05  BILLING_ADDRESS,
  30.                 10  STREET      CHAR(40),
  31.                 10  CITY        CHAR(30),
  32.                 10  COUNTRY     CHAR(20),
  33.                 10  ZIP         CHAR(10),
  34.                 10  ZIP_LOC     CHAR(1);
  35.  
  36.