
  TYPE
    rat$subproduct_info_p = REL (rat$packing_list_sequence) ^cell;

*copyc rat$packing_list_sequence
