COBOLからTransact-SQLへの移行

Ispirer MnMTKは COBOL アプリケーションから Microsoft SQL Server T-SQLへ変換することができます。

アセスメント

アセスメント作業は簡単ですぐに移行に要する作業とコストを見積もることができます。アセスメント作業の詳細な説明は以下にあります：

お見積に必要な情報は下記のフォームを参照いただくと揃えることができます：

COBOL プログラム構造

1. IDENTIFICATION DIVISION. 
2. PROGRAM-ID. DemoId. 
3. ENVIRONMENT DIVISION. 
4. DATA DIVISION. 
5. PROCEDURE DIVISION. 
6. FIRST-PARAGRAPH. 
7. DISPLAY "First DEMO".

４つのディビジョンがあります:

• IDENTIFICATION DIVISION： ここにプログラム名を記述します。
• ENVIRONMENT DIVISION： プログラムで必要なファイルを定義します。
• DATA DIVISION： 変数、レコード、ファイル等を定義します。
• PROCEDURE DIVISION： プログラムを記述します。上のサンプルでは全てがひとつのパラグラフ内に記述されています。パラグラフはラベル付けされた一連のステートメントです。パラグラフの終わりを示す特別なマークはありません。

変換機能

• COBOL プログラムを MSSQLServer のプロシージャに移行

1. CREATE PROCEDURE DemoId() AS
2.  BEGIN 
3. PRINT ‘First DEMO’ 
4. END;



• WORKING-STORAGE セクションに定義された変数およびレコードを MSSQLServer DECLAREステートメントに変換

1. WORKING-STORAGE SECTION. 
2. 01 MY_STRING_1 PIC X(20). 
3. 01 MY_STRING_2 PIC X(30). 
4. 01 MY_NUMBER PIC 9(2) VALUE 1.

から

1. DECLARE
2.     @MY_STRING_1 VARCHAR(20),
3.     @MY_STRING_2 VARCHAR(20), 
4.     @MY_NUMBER INT 
5. SET @MY_NUMBER=1



• COBOL レコードを MSSQLServer CLR ユーザ定義タイプへ変換

1. 01 MY_DATA_RECORD. 
2. 03 MY_NAME PIC X(20). 
3. 03 MY_ADDRESS PIC X(40). 
4. 03 MY_ID PIC 9(2).

から

1. CREATE TYPE MY_DATA_RECORD AS TABLE 
2.   (MY_NAME VARCHAR(20), 
3.  MY_ADDRESS VARCHAR(40),
4.      MY_ID INT ) 
5.  GO



• COBOL MOVE TO/COMPUTE ステートメントを SET アサインステートメントに変換

1. MOVE 5 TO MY_NUMBER.

から

1. SET @MY_NUMBER=5



• COBOL セクション(パラグラフやステートメントのグループ）を MSSQLServer プロシージャに変換。セクションをCALLするPERFORM文は ストアドプロシージャのEXECUTE に変換
• COBOL の制御構造は MSSQLServer の制御ステートメントに変換

1. IF condition 
2. ELSE 
3. END IF

から

1. IF condition 
2. ELSE 
3. END IF;

および

1. PERFORN UNTIL condition 
2. COBOL statements 
3. END-PERFORM

から

1. WHILE condition 
2.                 sql_statements/sql_block



• 画面表示（DISPLAY ステートメント）を PRINT ステートメントに変換
• EXEC SQL/ END-EXEC(select, insert, update, delete, CURSOR ステートメント) を MSSQLServer SQL ステートメント (SELECT, INSERT, UPDATE, DELETE, CURSOR ステートメント)に変換

1. EXEC SQL 
2.   SELECT cur_date 
3.   FROM val_date 
4.   WHERE cur_date < CURRENT 
5. END-EXEC.

から

1. SELECT cur_date 
2.   FROM val_date 
3.   WHERE cur_date < GetDate();



• 埋め込みSQL (EXEC SQL/END-EXEC) 内のSQLステートメントを 自動的にMSSQL Server T-SQLの文法に修正

なぜIspirer MnMTKなのか

Ispirer MnMTK は現行のCOBOLアプリケーションの移行作業を自動化し、移行作業に伴うリスクと必要な内部作業を大幅に削減する事ができます。Ispirer MnMTKはこれらの利点と共にお手頃な価格でデータベースおよびアプリケーションの変換を行う事ができるため、このような移行プロジェクトにとってとても魅力的なツールです。Ispirer MnMTK はとても柔軟な変換ツールであり、新たな変換方向の追加開発も短期間で行うことができます。

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