Progress 4GL에서 Oracle PL/SQL로 마이그레이션

Ispirer MnMTK 애플리케이션의 마이그레이션 및 현대화는 툴킷은 Progress 4GL에서 Oracle PL/SQL 로 자동 변환을 제공합니다.

Progress 4GL에서 Oracle PL/SQL로 마이그레이션하기 개요

이제부터 수동 변환 더 이상 필요가 없습니다. Ispirer MnMTK는 Progress 4GL에서 Oracle PL/SQL로 필요 변환을 수행하겠습니다. Inspirer Systems의 헌신적인 프로프 팀은 저희 툴은 고객님의 가장 복잡한 레거시 근대화 요구 사항에 충족하게 가능하게 합니다.

왜 Ispirer MnMTK 인가?

Ispirer MnMTK는 Oracle PL/SQL로 마이그레이션 과정을 제공으로 가능하게 합니다. 또한, Ispirer MnMTK를 선택하실 때 분명히 위험 및 노력을 줄입니다. 이러한 장점은 합리적이고 경쟁력있는 비용으로 받을 수 있습니다.

Ispirer MnMTK 2015의 주요 장점

고품질의 기술 지원 Ispire Systems의 기술 팀은 다양한 수준의 마이그레이션 프로젝트에서 엄청난 경험을 가지고 있습니다.
고객 지향적 접근 방식 및 신속한 고객화 맞춤 버전이 고객님의 비즈니스 요구 사항을 완벽하게 충족할 수 있도록 Ispirer MnMTK를 개인화합니다. 고객님께 맞춤 및 최적화 변환은 영업일 2일 내에 수행합니다.
사전 판매 전시 결정을 내리기 전에 평가 과정에서 변환을 입증합니다.
유연한 가격 정책 다양한 옵션을 제공 할 수 있으며, 그 중에서 고객님께 딱 맞는 옵션을 찾을 수 있습니다
최적화된 변환 변환 후에는 Ispirer의 미들웨어를 사용할 필요없이 지능적인 코드를 얻을 수 있습니다.

평가 과정

고객님께서 Ispirer Systems와 프로젝트에 대해 공동 논의를 위해 주저 없이 설문지를 작성하시고 보내주십시오.

Progress 4GL to Oracle PL/SQL Migration Questionnaire

라이브 프리젠테이션

Ispirer 마이그레이션 솔루션

Progress 4GL to Oracle PL/SQL

요청하기

견적 요청

Ispirer 마이그레이션 솔루션

Progress 4GL to Oracle PL/SQL

서비스 툴킷

변환의 특징

Progress 데이터베이스에서 Oracle 데이터베이스로 마이그레이션합니다.

Migrate Progress databases to Oracle databases

Progress tables/view/sequences에서 Oracle 테이블/뷰/시퀸스로 변환하기

예를 들어,

Progress 4GL

ADD TABLE "TB_DATATYPES"
  AREA "Schema Area"
  DUMP-NAME "tb_datat"

ADD FIELD "c1" OF "TB_DATATYPES" AS character 
  FORMAT "X(8)"
  INITIAL ""
  POSITION 2
  SQL-WIDTH 16
  ORDER 10

ADD FIELD "c4" OF "TB_DATATYPES" AS integer 
  FORMAT "->,>>>,>>9"
  INITIAL "0"
  POSITION 5
  SQL-WIDTH 4
  ORDER 20

ADD FIELD "c5" OF "TB_DATATYPES" AS logical 
  FORMAT "yes/no"
  INITIAL "no"
  POSITION 6
  SQL-WIDTH 1
  ORDER 30

.
PSC
cpstream=ISO8859-1
.
0000000976

Oracle PL/SQL

CREATE TABLE TB_DATATYPES
(
   c1 CHAR(16),
   c4 NUMBER(10,0),
   c5 NUMBER(1,0)   
);

Progress 4GL 트리거 에서 Oracle 트리거/절차로 변환하기

Progress 4GL

TRIGGER PROCEDURE FOR DELETE OF gsinvhd.
FIND distribution 
WHERE distribution.company = gsinvhd.company NO-LOCK NO-ERROR.

Oracle PL/SQL

CREATE OR REPLACE TRIGGER SWT_Delete_gsinvhd
AFTER DELETE
ON gsinvhd
   DECLARE
   v_distribution_company  VARCHAR2(255);
BEGIN
   SELECT   company INTO v_distribution_company FROM distribution
   WHERE (distribution.company = gsinvhd.company) AND ROWNUM <=1;
   EXCEPTION
   WHEN NO_DATA_FOUND THEN
      NULL;
END;

Progress 4GL code에서 Oracle PL/SQL code로 변환하기

Convert Progress 4GL code to Oracle PL/SQL code

Progress 4GL Procedure Files (*.p)에서 Oracle procedur로 변환하기

Progress 4GL

PROCEDURE generate-data :
DEFINE VARIABLE i            AS INTEGER NO-UNDO.
DEFINE VARIABLE gc-company AS CHARACTER NO-UNDO.

FIND company WHERE company.company = gc-company NO-LOCK NO-ERROR.
                        
 find budget where budget.company = gc-company no-lock no-error.
  Do while avail budget:
       Do i = 0 to 5:  
         find budget-analysis 
         where budget-analysis.user-id = company.gc-user-id and 
         budget-analysis.company = gc-company and
         budget-analysis.pc-center = "ALL" and
         budget-analysis.acct-period = i
         no-error.   
End.
End.
END PROCEDURE.

Oracle PL/SQL

create or replace procedure "generate-data" as
  v_company_company  VARCHAR2(255);
  v_company_numperiods  VARCHAR2(255);
  v_company_gcuserid  NUMBER(10,0);
  v_budget_company  VARCHAR2(255);
  v_i  NUMBER(10,0);
  v_gccompany  varchar2(4000);
  v_if_exists NUMBER(10,0);
  v_budgetanalysis_userid  NUMBER(10,0);
  v_budgetanalysis_company  VARCHAR2(255);
  v_budgetanalysis_pccenter  VARCHAR2(255);
  v_budgetanalysis_acctperiod  VARCHAR2(255);
begin
  begin
    select   company, "num-periods", "gc-user-id" 
    INTO v_company_company,v_company_numperiods,v_company_gcuserid
    from company  
    WHERE (company.company = v_gccompany) AND ROWNUM <=1;
    EXCEPTION
    WHEN NO_DATA_FOUND THEN
      NULL;
  end;                        
  begin
    select   company INTO v_budget_company from budget
    WHERE (budget.company = v_gccompany) AND ROWNUM <=1;
    EXCEPTION
    WHEN NO_DATA_FOUND THEN
      NULL;
  end;
  LOOP
    SELECT   COUNT(*) INTO v_if_exists from budget;
    exit  when  v_if_exists = 0;
    begin
      v_i := 0;
      while v_i <= 5 LOOP   
        begin
          select   "user-id", company, "pc-center", "acct-period" 
          INTO v_budgetanalysis_userid,v_budgetanalysis_company,
          v_budgetanalysis_pccenter,v_budgetanalysis_acctperiod
          from "budget-analysis"  
          WHERE ("budget-analysis"."user-id" = company."gc-user-id"
          and "budget-analysis".company = v_gccompany
          and "budget-analysis"."pc-center" = 'ALL'
          and "budget-analysis"."acct-period" = v_i)
          and ROWNUM <=1;
          EXCEPTION
          WHEN NO_DATA_FOUND THEN
            NULL;
        end;
        v_i := v_i+1;
      END LOOP;
    end;
  END LOOP;
end;

Progress 4GL Include 파일을 (*.i) Oracle 기능으로 변환합니다.
Progress ABL 리퍼트에서 Oracle 리퍼트로 변환합니다.

추가로 칠문이 있으시면 언제든지 연락주시기 바랍니다.

Progress 4GL에서 Oracle PL/SQL로 마이그레이션