このWebサイトでは、クッキーを使用しております。
詳細は プライバシー保護およびクッキーに関する通知を参照ください。

インテリジェントでカスタマイズ可能なDB/アプリ自動変換ソリューション


COBOLからVB.NETへの変換

.NET

Ispirer MnMTKはCOBOLからVB.NETへの変換を現実します。

なぜIspirer MnMTKなのか

Ispirer MnMTKはお客様がお使いのCOBOLアプリケーションの自動変換を行い、移行作業に伴うリスクと必要な内部作業を大幅に削減することができます。これらの利点があるIspirer MnMTKは妥当な価格でデータベースおよびアプリケーションの変換を行うことができるため、このような移行プロジェクトにとってとても魅力的な製品です。

主な利点:

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

アセスメント

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


ライブ・プレゼンテーション(英語)

Ispirer移行ソリューション

COBOLからVB.NETへ

リクエスト

お見積

移行サービス

COBOLからVB.NETへ

サービス 移行ツール

変換ツールIspirer MnMTKはCOBOLからC#.NETへの移行も現実化します。

変換の機能


COBOLプログラム構造

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


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

  • IDENTIFICATION DIVISION: ここにプログラム名を記述します。
  • ENVIRONMENT DIVISION: プログラムで必要なファイルを定義します。
  • DATA DIVISION: 変数、レコード、ファイル等を定義します。
  • PROCEDURE DIVISION: プログラムを記述します。上のサンプルでは全てがひとつのパラグラフ内に記述されています。パラグラフはラベル付けされた一連のステートメントです。パラグラフの終わりを示す特別なマークはありません。
  • COBOLアプリケーションのデータベースをMSSQL Serverのデータベースに移行
  • COBOLプログラムをVB.NETのクラスに変換
    1.  
    2. Namespace CobolApplication
    3. Public Class DemoId
    4. Public Sub Main()
    5. ProcedureDivision()
    6. End Sub
    7. Private Sub ProcedureDivision()
    8. Console.WriteLine(“First Demo”)
    9. End Sub
    10. End Class
    11. End Namespace
    12.  
  • 識別子の名前を「キャメルケース」に変換
  • WORKING-STORAGEセクションに定義された変数をクラス変数に変換
    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. Private MyString1 As String
    2. Private MyString2 As String
    3. Private MyNumber As Integer = 1


  • COBOLレコード定義をVB.NETのユーザ定義タイプへ変換
    1. 01 MY_DATA_RECORD.
    2. 03 MY_NAME PIC X(20) VALUE “John Smit”.
    3. 03 MY_ADDRESS PIC X(40) VALUE “Walt Street”.
    4. 03 MY_ID PIC 9(2) VALUE 123.

    から

    1. Public Class MyDataRecord
    2. Public MyName As String = “John Smit”
    3. Public MyAddress As String = “Walt Street”
    4. Public MyId As Integer = 123
    5. End Class
    6. Private _myDataRecord As MyDataRecord = New MyDataRecord()


  • COBOLのMOVE TO/COMPUTEステートメントをVB.NETのアサインステートメントに変換
    1. MOVE 5 TO MY_NUMBER.

    から

    1. MyNumber = 5


  • COBOLセクション(パラグラフやステートメントのグループ)をVB.NETのsubに変換。セクションをCALLするPERFORM文はVB.NETのcall subに変換。
    1. DISPLAY-INFORMATION.
    2. DISPLAY DISPLAY 'My Number = ' MY_NUMBER.

    から

    1. Private Sub DisplayInformation()
    2. Console.WriteLine(“My Number =+ MyNumber)
    3. End Sub

  • COBOLの制御構造をVB.NETの制御ステートメントに変換
    1. IF MY_NUMBER > 5
    2. MOVE 12 TO MY_NUMBER.

    から

    1. If MyNumber > 5 Then
    2. MyNumber = 12
    3. End If

    または

    1. PERFORM UNTIL WS-NUMBER-1 > 100 AND WS-NUMBER-1 < 1000
    2. DISPLAY "Still between 100 and 1000"
    3. END-PERFORM

    から

    1. While MyNumber > 100 And MyNumber < 1000
    2. Console.WriteLine(“Still between 100 and 1000)
    3. End While


  • 画面表示(DISPLAY ステートメント)を「Console.WriteLine」メソッドに変換
  • EXEC SQL/ END-EXEC (select, insert, update, delete, CURSOR ステートメント)をVB.NETのLINQクエリに変換
    1. EXEC SQL
    2. SELECT COUNT(*)
    3. INTO :MY_NUMBER
    4. FROM MY_TABL
    5. WHERE CTR_ID = :MY_STRING_1 AND
    6. MOD_CD = 'ONE'
    7. WITH UR
    8. END-EXEC.

    から

    1. MyNumber = Aggregate MyTabl In db.MyTabls
    2. Where MyTabl.CtrId = MyString1
    3. And MyTabl.ModCd = "ONE"
    4. Into Count()

    または

    1. EXEC SQL
    2. DECLARE MY_CUR CURSOR FOR
    3. SELECT LOC_NO,
    4. EFF_DT,
    5. XPIR_DT,
    6. DET_AMT
    7. FROM MY_TABL
    8. WHERE CTR_ID = :MY_STRING_1
    9. AND MOD_CD = 'TWO'
    10. AND TRN_ID IS NULL
    11. ORDER BY LOC_NO
    12. WITH UR
    13. END-EXEC.
    14.  
    15. EXEC SQL
    16. OPEN MY_CUR
    17. END-EXEC.
    18.  
    19. EXEC SQL
    20. FETCH MY_CUR
    21. INTO :MY-LOC-NO,
    22. :MY-EFF-DT,
    23. :MY-XPIR-DT,
    24. :MY-ARO-AMT
    25. END-EXEC
    26.  
    27. EXEC SQL CLOSE MY_CUR END-EXEC.

    から

    1. Dim MyCur = From MyTabl In db.MyTabls
    2. Where MyTabl.CtrId = MyString1
    3. And MyTabl.ModCd = "TWO"
    4. And MyTabl.TrnId IS Nothing
    5. ORDER BY LocNo Descending
    6.  
    7. For Each MyTabl In MyCur
    8. MyLocNo = MyCur.LocNo
    9. MyEffDt = MyCur.EffDt
    10. MyXpirDt = MyCur.XpirDt
    11. MyAroAmt = MyCur.DetAmt
    12. Next
    13. db.SaveChanges()


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

 
Testimonials
20.06.2018Schulz, Brazil

InterBase to Microsoft SQL Server
Database Migration

In order to change a factory supervision and information system, we were looking for a tool to migrate the existing "Interbase 6.0" database to "Microsoft SQL Server". We tested a few softwares, but they didn't suit us.

...

20.06.2018System Protocol Information, Malaysia

Informix to Microsoft SQL Server
Database Migration

Dear Sir / Madam,

We have just completed our biggest migration job to date from Informix to MS SQL Server. The exercise was efficiently done within schedule given to us. It was a success and thanks to a great part to your tool.

...

Case Studies
09.04.2018Sybase ASEからMicrosoft SQL Serverへの移行、チリ

チリに拠点を置くソフトウェア開発会社です。

...

06.04.2018IBM DB2 iSeriesからMicrosoft SQL Serverへの移行、アメリカ

ソフトウェアとアプリケーションの開発、リエンジニアリングとメンテナンスを専門とする、米国に本拠を置くフルサービスのIT企業です。 同社はウェブサイトデザイン、ウェブホスティング、SEOなどのウェブサービスを提供しています。 また、CRMシステムの導入、アップグレードおよび管理も実施しています。

...