CDO>  DEFINE RECORD PRODUCE.
  cont> UPC_CODE DATATYPE LONGWORD NOT NULL DEFERRABLE.
  cont> WEIGHT CONSTRAINT WNOTNULL NOT NULL.
  cont> PRICE CONSTRAINT PNOTNULL NOT NULL DEFERRABLE.
  cont> QUANTITY CONSTRAINT QNOTNULL NOT NULL NOT DEFERRABLE.
  cont> END.

      In this example, UPC_CODE is a local field.