df/990416a.df

   1 ADD TABLE "TenantCall"
   2   DESCRIPTION "Register calls from tenants"
   3   DUMP-NAME "tnntcall"
   4   TABLE-TRIGGER "WRITE" OVERRIDE PROCEDURE "trigger/wrtntcal.p" CRC "?"
   5
   6 ADD FIELD "CallNumber" OF "TenantCall" AS integer
   7   FORMAT "->,>>>,>>9"
   8   INITIAL "0"
   9   LABEL "Call No"
  10   ORDER 10
  11
  12 ADD FIELD "PropertyCode" OF "TenantCall" AS integer
  13   FORMAT "99999"
  14   INITIAL "0"
  15   LABEL "Property"
  16   ORDER 20
  17
  18 ADD FIELD "Level" OF "TenantCall" AS integer
  19   FORMAT "->,>>>,>>9"
  20   INITIAL "0"
  21   ORDER 30
  22
  23 ADD FIELD "TenantCode" OF "TenantCall" AS integer
  24   DESCRIPTION "A code used to refer to this tenant."
  25   FORMAT "99999"
  26   INITIAL "0"
  27   ORDER 40
  28
  29 ADD FIELD "Problem" OF "TenantCall" AS character
  30   FORMAT "X(78)"
  31   INITIAL ""
  32   ORDER 50
  33
  34 ADD FIELD "Action" OF "TenantCall" AS character
  35   FORMAT "X(78)"
  36   INITIAL ""
  37   ORDER 60
  38
  39 ADD FIELD "DateOfCall" OF "TenantCall" AS date
  40   FORMAT "99/99/9999"
  41   INITIAL ?
  42   LABEL "Call Date"
  43   ORDER 70
  44
  45 ADD FIELD "CallCategoryCode" OF "TenantCall" AS character
  46   FORMAT "X(8)"
  47   INITIAL ""
  48   LABEL "Category"
  49   ORDER 80
  50
  51 ADD FIELD "CallStatusCode" OF "TenantCall" AS character
  52   FORMAT "X(8)"
  53   INITIAL ""
  54   LABEL "Call Status"
  55   ORDER 90
  56
  57 ADD INDEX "XPKTenantCall" ON "TenantCall"
  58   UNIQUE
  59   PRIMARY
  60   INDEX-FIELD "CallNumber" ASCENDING
  61
  62 ADD INDEX "XAK1TenantCall" ON "TenantCall"
  63   INDEX-FIELD "PropertyCode" ASCENDING
  64   INDEX-FIELD "DateOfCall" DESCENDING
  65
  66 ADD INDEX "XAK2TenantCall" ON "TenantCall"
  67   INDEX-FIELD "CallStatusCode" ASCENDING
  68   INDEX-FIELD "DateOfCall" ASCENDING
  69
  70 ADD INDEX "XAK3TenantCall" ON "TenantCall"
  71   INDEX-FIELD "TenantCode" ASCENDING
  72   INDEX-FIELD "DateOfCall" DESCENDING
  73
  74 ADD INDEX "XAK4TenantCall" ON "TenantCall"
  75   INDEX-FIELD "CallStatusCode" ASCENDING
  76   INDEX-FIELD "TenantCode" ASCENDING
  77   INDEX-FIELD "DateOfCall" DESCENDING
  78
  79 ADD INDEX "XAK5TenantCall" ON "TenantCall"
  80   INDEX-FIELD "CallCategoryCode" ASCENDING
  81
  82 ADD INDEX "XAK6TenantCall" ON "TenantCall"
  83   WORD
  84   INDEX-FIELD "Problem" ASCENDING
  85
  86 .
  87 PSC
  88 codepage=iso8859-1
  89 .
  90 0000002073