Progress 4GLからMicrosoft SQL Server T-SQLへの移行

アプリケーション移行ツールIspirer MnMTKはProgress 4GLからMicrosoft SQL Serverへの変換をサポートして
います。

Progress 4GLからMicrosoft SQL Server T-SQLへの
移行の概要

Ispirer MnMTK はとても柔軟な変換ツールであり、クライアントのビジネス
ニーズに応じ、新たな変換方向の追加開発も短期間で行うことができます。弊社の技術者テはアプリケーション移行における絶大経験があり、Progress 4GLからMicrosoft SQL Server T-SQLへの移行における最も複雑なタスクの解決策を見つけることをお約束します。

Ispirer MnMTKは以下のような変換を行うことができます：

• Progressのテーブル/ビュー/シーケンスをMicrosoft SQL Server T-SQLの
  テーブル/ビュー/シーケンスへ
• Progress 4GLのトリガをMicrosoft SQL Serverのトリガ/プロシージャへ
• Progress 4GLのプロシージャファイル (*.p) をMicrosoft SQL Serverのプロシージャへ
• Progress 4GLのインクルードファイル (*.i) をMicrosoft SQL Serverのファンクションへ
• Progress ABLレポートをMicrosoft SQL Serverレポートへ

Progress 4GLからMicrosoft SQL Server T-SQLへの
変換にIspirer MnMTK 2017を使う理由

Ispirer Systemsの主な目標は、高度で一線級のアプリケーション移行を実行することです。移行ツールIspirer MnMTKは、様々な個別のビジネス要件に応えることができる費用対効果の高い製品です。

主な利点：

• 優れたテクニカルサポート：移行のプロジェクトにおける絶大経験による、 最も複雑なタスクの解決策を見つけることをお約束します。
• 顧客志向のアプローチと迅速なカスタマイズ：修正、カスタム変換、最適化（ほとんどの要件は 1～2 日で対応）。
• 検討段階での共同作業：お客様の検討期間中に変換のデモをお見せすることができます。
• 柔軟な価格設定：幅広いオプションを提供することができます。
• 最適化された変換：インテリジェントで保守しやすいコードを生成します。
  変換後のソースの利用に特別なIspirerのミドルウェア等は必要ありません。

アセスメント

アセスメント作業は簡単ですぐに移行に要する作業とコストを見積もることができます。お見積に必要な情報は、下記のフォームを参照いただくと揃えることができます：

• Progress 4GLからMicrosoft SQL Server T-SQLへの移行　質問表（英語）

変換機能

• Progressのテーブル/ビュー/シーケンスをMicrosoft SQL Server T-SQLのテーブル/ビュー/シーケンスへ変換

例えば、

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
 

Microsoft SQL Server T-SQL：

 
CREATE TABLE TB_DATATYPES
(
   c1 CHAR(16)   NULL,
   c4 INT   NULL,
   c5 BIT   NULL
)
 

• Progress 4GLのトリガをMicrosoft SQL Server T-SQLのトリガ/プロシージャへ変換

Progress 4GL：

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

Microsoft SQL Server T-SQL：

 
CREATE TRIGGER SWT_Delete_gsinvhd
ON gsinvhd
AFTER DELETE
   AS
   DECLARE @distribution_company VARCHAR(255)
   SELECT    @distribution_company = company FROM distribution
   WHERE distribution.company = gsinvhd.company
 

Progress 4GLのコードをMicrosoft SQL Server T-SQLの
コードへ変換

• Progress 4GLのプロシージャファイル (*.p) をMicrosoft SQL Serverのプロシージャへ変換

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.
 

Microsoft SQL Server T-SQL：

 
CREATE PROCEDURE [generate-DATA] AS
BEGIN
   DECLARE @company_company VARCHAR(255)
   DECLARE @company_numperiods VARCHAR(255)
   DECLARE @company_gcuserid INT
   DECLARE @budget_company VARCHAR(255)
   DECLARE @i INT
   DECLARE @gccompany VARCHAR(4000)
   SELECT    @company_company = company,  
             @company_numperiods = [num-periods],
             @company_gcuserid = [gc-user-id]
   FROM company   WHERE company.company = @gccompany
   SELECT    @budget_company = company 
   FROM budget   WHERE budget.company = @gccompany
   while EXISTS(SELECT * FROM budget)
   BEGIN
      SET @i = 0
      while @i <= 5
      BEGIN
         DECLARE @budgetanalysis_userid INT
         DECLARE @budgetanalysis_company VARCHAR(255)
         DECLARE @budgetanalysis_pccenter VARCHAR(255)
         DECLARE @budgetanalysis_acctperiod VARCHAR(255)
         SELECT    @budgetanalysis_userid = [user-id],
                   @budgetanalysis_company = company,
                   @budgetanalysis_pccenter = [pc-center],
                   @budgetanalysis_acctperiod = [acct-period]
         FROM [budget-analysis]   
         WHERE [budget-analysis].[user-id] = company.[gc-user-id] AND
         [budget-analysis].company = @gccompany AND
         [budget-analysis].[pc-center] = 'ALL' AND
         [budget-analysis].[acct-period] = @i
         SET @i = @i+1
      END
   END
END
 

• Progress 4GLのインクルードファイル (*.i) をMicrosoft SQL Serverのファンクションへ変換
• Progress ABLレポートをMicrosoft SQL Serverレポートへ変換

詳細はお問い合わせください。