Declare
   pl_id paramlist;
Begin
   pl_id := get_parameter_list('tmpdata');
   If Not id_null(pl_id) Then
      destroy_parameter_list(pl_id);
   End If;
   pl_id := create_parameter_list('tmpdata');
   add_parameter(pl_id, 'PC_SLIP_NO', text_parameter, :pallet.slip_no);
   add_parameter(pl_id, 'PC_CONTAINER', text_parameter, :control.nyk_container_no);
   add_parameter(pl_id, 'PC_RETURN', text_parameter, :control.txt_reason);
   add_parameter(pl_id, 'PC_WH', text_parameter, :control.from_loc);
   add_parameter(pl_id, 'PC_SEAL_NO', text_parameter, :control.nyk_seal_no);
   add_parameter(pl_id, 'PC_CAR_NO', text_parameter, :control.car_no);
   run_product(reports, 'DOCK_RECEIPT.rdf', synchronous, runtime, filesystem, pl_id, Null);
   If Not id_null(pl_id) Then
      destroy_parameter_list(pl_id);
   End If;
End;