將舊版應用程式從 Oracle Pro*C 遷移至 ECPG

使用以下命令安裝所需的 PostgreSQL 套件。

yum update -y
yum install -y yum-utils
rpm -ivh https://download.postgresql.org/pub/repos/yum/reporpms/EL-8-x86_64/pgdg-redhat-repo-latest.noarch.rpm
dnf -qy module disable postgresql

使用以下命令安裝包含標頭檔案和程式庫的postgresql12-devel套件。在開發和執行期環境中安裝套件，以避免執行期環境中的錯誤。

dnf -y install postgresql12-devel
yum install ncompress zip ghostscript jq unzip wget git -y

僅針對開發環境，也請執行下列命令。

yum install zlib-devel make -y
ln -s /usr/pgsql-12/bin/ecpg /usr/bin/

設定 PostgreSQL 用戶端程式庫的環境路徑。

export PATH=$PATH:/usr/pgsql-12/bin

如果需要，請在 Oracle 中安裝 pgLoader作為 SQL*Loader 的替代。

wget -O /etc/yum.repos.d/pgloader-ccl.repo https://dl.packager.io/srv/opf/pgloader-ccl/master/installer/el/7.repo
yum install pgloader-ccl -y
ln -s /opt/pgloader-ccl/bin/pgloader /usr/bin/

如果您從 Pro*C 模組呼叫任何 Java 應用程式，請安裝 Java。

yum install java -y

安裝 ant 以編譯 Java 程式碼。

yum install ant -y

安裝 AWSCLI來執行命令，以從您的應用程式與 AWS Secrets Manager 和 Amazon Simple Storage Service （Amazon S3） 等AWS服務互動。

cd /tmp/
curl "https://awscli.amazonaws.com/awscli-exe-linux-x86_64.zip" -o "awscliv2.zip"
unzip awscliv2.zip
./aws/install -i /usr/local/aws-cli -b /usr/local/bin --update

識別您要從 Pro*C 轉換為 的應用程式ECPG。

移除 Postgre 中不需要的include 標頭SQL，例如 oci.h、 oratypes和 sqlda。

為用作主機變數的所有變數宣告新增EXEC SQL陳述式。

從您的應用程式中移除EXEC SQL VAR宣告，例如下列項目。

EXEC SQL VAR query IS STRING(2048);

Postgre 中無法使用該ROWNUM函數SQL。將此取代為SQL查詢中的ROW_NUMBER視窗函數。

Pro*C 程式碼：

SELECT SUBSTR(RTRIM(FILE_NAME,'.txt'),12) INTO :gcpclFileseq  
FROM   (SELECT FILE_NAME 
FROM  DEMO_FILES_TABLE 
WHERE FILE_NAME    LIKE '%POC%' 
ORDER BY FILE_NAME DESC) FL2 
WHERE ROWNUM <=1 ORDER BY ROWNUM;

ECPG 程式碼：

SELECT SUBSTR(RTRIM(FILE_NAME,'.txt'),12) INTO :gcpclFileseq  
FROM   (SELECT FILE_NAME , ROW_NUMBER() OVER (ORDER BY FILE_NAME DESC) AS ROWNUM
FROM  demo_schema.DEMO_FILES_TABLE 
WHERE FILE_NAME    LIKE '%POC%'
ORDER BY FILE_NAME DESC) FL2 
WHERE ROWNUM <=1 ORDER BY ROWNUM; 

在 Postgre 中SQL，函數參數無法用作主機變數。使用別名變數覆寫它們。

Pro*C 程式碼：

int processData(int referenceId){
  EXEC SQL char col_val[100];
  EXEC SQL select column_name INTO :col_val from table_name where col=:referenceId;
}

ECPG 程式碼：

int processData(int referenceIdParam){
  EXEC SQL int referenceId = referenceIdParam;
  EXEC SQL char col_val[100];
  EXEC SQL select column_name INTO :col_val from table_name where col=:referenceId;
}

如果struct類型變數用作主機變數typedef，則定義 EXEC SQL BEGIN和 END區塊中的struct類型。如果在標頭 （.h） 檔案中定義struct了類型，請包含EXEC SQL包含陳述式的檔案。

Pro*C 程式碼：

標頭檔案 （demo.h）

struct s_partition_ranges
{
 char   sc_table_group[31];
 char   sc_table_name[31];
 char   sc_range_value[10];
}; 
struct s_partition_ranges_ind
{
  short    ss_table_group;
  short    ss_table_name;
  short    ss_range_value;
}; 

ECPG 程式碼：

標頭檔案 （demo.h）

EXEC SQL BEGIN DECLARE SECTION;
typedef struct 
{
  char   sc_table_group[31];
  char   sc_table_name[31];
  char   sc_range_value[10];
} s_partition_ranges; 
typedef struct 
{
  short    ss_table_group;
  short    ss_table_name;
  short    ss_range_value;
} s_partition_ranges_ind; 
EXEC SQL END DECLARE SECTION;

Pro*C 檔案 （demo.pc）

#include "demo.h"
struct s_partition_ranges gc_partition_data[MAX_PART_TABLE] ;
struct s_partition_ranges_ind gc_partition_data_ind[MAX_PART_TABLE] ;

ECPG 檔案 （demo.pc）

exec sql include "demo.h"
EXEC SQL BEGIN DECLARE SECTION;
s_partition_ranges gc_partition_data[MAX_PART_TABLE] ;
s_partition_ranges_ind gc_partition_data_ind[MAX_PART_TABLE] ;
EXEC SQL END DECLARE SECTION;

若要使用陣列變數從游標擷取多列，請將程式碼變更為使用 FETCH FORWARD。

Pro*C 程式碼：

EXEC SQL char  aPoeFiles[MAX_FILES][FILENAME_LENGTH];
EXEC SQL FETCH filename_cursor into :aPoeFiles;

ECPG 程式碼：

EXEC SQL char  aPoeFiles[MAX_FILES][FILENAME_LENGTH];
EXEC SQL int fetchSize = MAX_FILES;
EXEC SQL FETCH FORWARD :fetchSize filename_cursor into :aPoeFiles;

沒有傳回值的 Oracle 套件函數應該使用指標變數呼叫。如果您的應用程式包含多個具有相同名稱的函數，或如果未知類型函數產生執行期錯誤，請將值輸入至資料類型。

Pro*C 程式碼：

void ProcessData (char *data , int id)
{        
        EXEC SQL EXECUTE
               BEGIN
                  pkg_demo.process_data (:data, :id);                                                                                    
               END;
       END-EXEC;
}

ECPG 程式碼：

void ProcessData (char *dataParam, int idParam )
{
        EXEC SQL char *data = dataParam;
        EXEC SQL int id = idParam;
        EXEC SQL short rowInd;
        EXEC SQL short rowInd = 0;
        EXEC SQL SELECT pkg_demo.process_data (
                       inp_data => :data::text,
                       inp_id => :id
               ) INTO :rowInd;
}

重寫SQL_CURSOR變數及其實作。

Pro*C 程式碼：

/* SQL Cursor */
SQL_CURSOR      demo_cursor;
EXEC SQL ALLOCATE :demo_cursor;
EXEC SQL EXECUTE
  BEGIN
      pkg_demo.get_cursor(     
        demo_cur=>:demo_cursor
      );
  END;
END-EXEC;

ECPG 程式碼：

EXEC SQL DECLARE demo_cursor CURSOR FOR SELECT
         * from
    pkg_demo.open_filename_rc(
            demo_cur=>refcursor
          ) ;
EXEC SQL char open_filename_rcInd[100]; 
# As the below function returns cursor_name as 
# return we need to use char[] type as indicator. 
EXEC SQL SELECT pkg_demo.get_cursor (
        demo_cur=>'demo_cursor'
    ) INTO :open_filename_rcInd;

若要在偵錯模式下執行ECPG程式，請在主函數區塊中新增下列命令。

ECPGdebug(1, stderr); 

如果您有名為 的內嵌 SQL C 來源檔案prog1.pgc，您可以使用下列命令序列來建立可執行程式。

ecpg prog1.pgc
cc -I/usr/local/pgsql/include -c prog1.c
cc -o prog1 prog1.o -L/usr/local/pgsql/lib -lecpg

建立 make 檔案以編譯ECPG程式，如下列範例檔案所示。

CFLAGS ::= $(CFLAGS) -I/usr/pgsql-12/include -g -Wall
LDFLAGS ::= $(LDFLAGS) -L/usr/pgsql-12/lib -Wl,-rpath,/usr/pgsql-12/lib
LDLIBS ::= $(LDLIBS) -lecpg
PROGRAMS = test 
.PHONY: all clean
%.c: %.pgc
      ecpg $<
all: $(PROGRAMS)
clean:
    rm -f $(PROGRAMS) $(PROGRAMS:%=%.c) $(PROGRAMS:%=%.o)

測試轉換的應用程式程式碼，以確保其正常運作。