在 PL/SQL package 中使用 Oracle 构造函数 function

Question

在ZA189C633D9995E11BF8607171717170EC9A4B8Z ADB（以为是19c），我有此工作Z9778840A0A0100CB30C982876741B0B0B0B5A2Z ZC1C1C1C425268EMAMEMEMENG ZC4252111BREMEMEAME ZB5111114.D174CEAB50214CAB5014CAB514CABREMEAME

declare
      namespace_name VARCHAR2(30) := 'XX';
      bucket_name varchar2(100) := 'XX';
      region VARCHAR2(30) := 'eu-frankfurt-1';
      cred VARCHAR2(30) := 'OCIDI_CRED';
      rename_values dbms_cloud_oci_object_storage_rename_object_details_t;
      result dbms_cloud_oci_obs_object_storage_rename_object_response_t;
    begin
      -- set the object name and rename values
      rename_values := dbms_cloud_oci_object_storage_rename_object_details_t(source_name                 => '1.txt',
                                                                             new_name                    => '2.txt', -- CSV_Manual/1.txt for example to put in folder
                                                                             src_obj_if_match_e_tag      => NULL,
                                                                             new_obj_if_match_e_tag      => NULL,
                                                                             new_obj_if_none_match_e_tag => NULL);
            

      -- Execute the task and get a status code and the task run key
      result := dbms_cloud_oci_obs_object_storage.rename_object(namespace_name        => namespace_name,
                                                bucket_name           => bucket_name,
                                                rename_object_details => rename_values,
                                                opc_client_request_id => NULL,
                                                region                => region,
                                                endpoint              => NULL,
                                                credential_name       => cred);
                
  dbms_output.put_line('status code: ' || result.status_code);
    end;

它正在使用一些已播种的 oracle 类型，它是一个构造函数 function 类型：dbms_cloud_oci_object_storage_rename_object_details_t; dbms_cloud_oci_obs_object_storage_rename_object_response_t；

如何正确转换此代码以在 plsql package 中运行？ 对如何以及在哪里申报有问题

谢谢

Answer 1

您只需要使用 package 语法包装 PL/SQL 块吗？

create or replace package cloud_storage is
      procedure rename_files;
end;
/

create or replace package body cloud_storage is
procedure rename_files is
      namespace_name VARCHAR2(30) := 'XX';
      bucket_name varchar2(100) := 'XX';
      region VARCHAR2(30) := 'eu-frankfurt-1';
      cred VARCHAR2(30) := 'OCIDI_CRED';
      rename_values dbms_cloud_oci_object_storage_rename_object_details_t;
      result dbms_cloud_oci_obs_object_storage_rename_object_response_t;
begin
      -- set the object name and rename values
      rename_values := dbms_cloud_oci_object_storage_rename_object_details_t(source_name                 => '1.txt',
                                                                             new_name                    => '2.txt', -- CSV_Manual/1.txt for example to put in folder
                                                                             src_obj_if_match_e_tag      => NULL,
                                                                             new_obj_if_match_e_tag      => NULL,
                                                                             new_obj_if_none_match_e_tag => NULL);
            

      -- Execute the task and get a status code and the task run key
      result := dbms_cloud_oci_obs_object_storage.rename_object(namespace_name        => namespace_name,
                                                bucket_name           => bucket_name,
                                                rename_object_details => rename_values,
                                                opc_client_request_id => NULL,
                                                region                => region,
                                                endpoint              => NULL,
                                                credential_name       => cred);
                
      dbms_output.put_line('status code: ' || result.status_code);
end;
end;
/

然后您可以调用 package 和程序：

begin
      cloud_storage.rename_files;
end;
/