Migrasi aplikasi lama dari Oracle Pro*C ke ECPG

Instal paket PostgreSQL yang diperlukan dengan menggunakan perintah berikut.

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

Instal postgresql12-devel paket, yang berisi file header dan pustaka, dengan menggunakan perintah berikut. Instal paket di lingkungan pengembangan dan runtime untuk menghindari kesalahan di lingkungan runtime.

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

Untuk lingkungan pengembangan saja, jalankan juga perintah berikut.

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

Mengatur jalur lingkungan untuk pustaka klien PostgreSQL.

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

Jika diperlukan, instal pgLoader sebagai pengganti SQL* loader di Oracle.

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/

Jika Anda memanggil aplikasi Java apa pun dari modul Pro* C, instal Java.

yum install java -y

Instal ant untuk mengkompilasi kode Java.

yum install ant -y

Instal AWS CLI untuk menjalankan perintah agar berinteraksi dengan layanan AWS seperti AWS Secrets Manager dan Amazon Simple Storage Service (Amazon S3) dari aplikasi Anda.

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

Identifikasi aplikasi yang ingin Anda konversi dari Pro* C ke ECPG.

Hapus include header yang tidak diperlukan di PostgreSQL, seperti,, dan. oci.h oratypes sqlda

Tambahkan EXEC SQL pernyataan untuk semua deklarasi variabel yang digunakan sebagai variabel host.

Hapus EXEC SQL VAR deklarasi seperti berikut ini dari aplikasi Anda.

EXEC SQL VAR query IS STRING(2048);

ROWNUMFungsi ini tidak tersedia di PostgreSQL. Ganti ini dengan fungsi ROW_NUMBER jendela dalam kueri SQL.

Kode 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;

Kode 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; 

Di PostgreSQL, parameter fungsi tidak dapat digunakan sebagai variabel host. Menimpa mereka dengan menggunakan variabel alias.

Kode 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;
}

Kode 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;
}

Tentukan struct tipe EXEC SQL BEGIN dan END blok dengan typedef jika variabel struct tipe digunakan sebagai variabel host. Jika struct jenis didefinisikan dalam file header (.h), sertakan file dengan pernyataan EXEC SQL include.

Kode Pro* C:

Berkas header (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;
}; 

Kode ECPG:

Berkas header (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;

Berkas 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] ;

File 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;

Untuk mengambil beberapa baris dari kursor dengan menggunakan variabel array, ubah kode yang akan digunakan. FETCH FORWARD

Kode Pro* C:

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

Kode ECPG:

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

Fungsi paket Oracle yang tidak memiliki nilai kembali harus dipanggil dengan variabel indikator. Jika aplikasi Anda menyertakan beberapa fungsi yang memiliki nama yang sama atau jika fungsi tipe yang tidak dikenal menghasilkan kesalahan runtime, ketikkan nilai ke tipe data.

Kode Pro* C:

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

Kode 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;
}

Tulis ulang SQL_CURSOR variabel dan implementasinya.

Kode 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;

Kode 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;

Untuk menjalankan program ECPG dalam mode debug, tambahkan perintah berikut di dalam blok fungsi utama.

ECPGdebug(1, stderr); 

Jika Anda memiliki file sumber SQL C tertanam bernamaprog1.pgc, Anda dapat membuat program yang dapat dieksekusi dengan menggunakan urutan perintah berikut.

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

Buat file make untuk mengkompilasi program ECPG, seperti yang ditunjukkan pada file contoh berikut.

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)

Uji kode aplikasi yang dikonversi untuk memastikan bahwa itu berfungsi dengan benar.