home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / arcustm.dcl < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.9 KB  |  53 lines
  1. /************************************************
  2. *         CUSTOMER MASTER RECORD        *
  3. ************************************************/
  4.  
  5.         /* * *  BT-80 HEADER  * * */
  6.           2  CSID    CHAR(06), /* RECORD ID */
  7.           2  REC_LEN    BIN(7),   /* RECORD LENGTH */
  8.           2  DEL_FLG    BIN(7),   /* DELETE FLAG */
  9.  
  10.         /* * *  BILLING DATA  * * */
  11.           2  CSBILCON   CHAR(32), /* CONTACT */
  12.           2  CSBILCMP    CHAR(32), /* COMPANY NAME */
  13.           2  CSBILAD1    CHAR(32), /* ADDRESS LINE 1 */
  14.           2  CSBILAD2    CHAR(32), /* ADDRESS LINE 2 */
  15.           2  CSBILAD3    CHAR(23), /* ADDRESS LINE 3 */
  16.           2  CSBILZIP    CHAR(9),  /* ZIP CODE */
  17.           2  CSBILTEL    CHAR(10), /* TELEPHONE NUMBER */
  18.           2  CSBILEXT    BIN(15),  /* TEL. EXTENSION */
  19.  
  20.         /* * *  TECHNICAL DATA  * * */
  21.           2  CSTECCON   CHAR(32), /* CONTACT */
  22.           2  CSTECCMP    CHAR(32), /* COMPANY NAME */
  23.           2  CSTECAD1    CHAR(32), /* ADDRESS LINE 1 */
  24.           2  CSTECAD2    CHAR(32), /* ADDRESS LINE 2 */
  25.           2  CSTECAD3    CHAR(23), /* ADDRESS LINE 3 */
  26.           2  CSTECZIP    CHAR(9),  /* ZIP CODE */
  27.           2  CSTECTEL    CHAR(10), /* TELEPHONE NUMBER */
  28.           2  CSTECEXT    BIN(15),  /* TEL. EXTENSION */
  29.  
  30.         /* * *  GENERAL DATA  * * */
  31.           2  CSSTAT    CHAR(2),  /* RECORD STATUS */
  32.           2  CSTERM    CHAR(2),  /* BILLING TERMS (30, 60, 90, ETC.)
  33.                          */
  34.           2  CSBALTYP    CHAR(1),  /* BALANCE TYPE */
  35.                       /* F - BALANCE FORWARD */
  36.                       /* O - OPEN ITEM */
  37.           2  CSPRCCOD    CHAR(1),  /* PRICE CODE (0-9) */
  38.           2  CSDISC    CHAR(1),  /* DISCOUNT CODE (0-9) */
  39.           2  CSTAXCOD    CHAR(1),  /* TAX CODE (0-9) */
  40.  
  41.         /* * *  DOLLAR AMOUNTS  * * */
  42.           2  CSCURAMT    DEC(9,2), /* CURRENT AMOUNT */
  43.           2  CS30DAMT    DEC(9,2), /* 30-59 DAYS AMOUNT */
  44.           2  CS60DAMT    DEC(9,2), /* 60-89 DAYS AMOUNT */
  45.           2  CSOVRAMT    DEC(9,2), /* OVER 90 DAYS AMOUNT */
  46.           2  CSLYRAMT    DEC(9,2), /* LAST YEARS TOTAL AMOUNT */
  47.  
  48.         /* * *  MISCELLANEOUS DATA  * * */
  49.           2  CSSPCL    CHAR(20), /* MISCELLANEOUS DATA */
  50.  
  51.         /* * *  TRAILING BT-80 FILLER  * * */
  52.           2  FILLER    CHAR(081);
  53.