超高速開発とCOBOLの連携！
新しいITモダナイゼーションのご提案
ITモダナイゼーションSummit 20182018年4月13日(金)Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

1

会社紹介
 会社名：

東京システムハウス株式会社(略称：TSH) 本 社： 東京都品川区西五反田7-1-10
 設

立： 1976年11月

 資本金： 1億7,990万円 （払込資本）
 売上高： 25億5千万円

 従業員： 166名
 特

色： どの企業系列にも属さない独立系
レガシーマイグレーション23年
ジャスミンソフト社と資本業務提携
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

2

私たちの使命
お客様のIT資産を未来に継承しお客様の発展に貢献すること

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

3

レガシーマイグレーション23年(超高速開発)2012年

2016年

2007年
2004年
1995年

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

4

MMS
メインフレーム・マイグレーション・サービス
Mainframe Migration Service の頭文字を取って MMS

充実したサービスと体系化されたCOBOL資産活用ソリューション
1995年から蓄積された経験・ノウハウと210件以上の導入実績

AJTOOL(代替フレームワーク)の開発と提供
クラウドをはじめ最新のICTテクノロジーを積極的にサービス化

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

5

MMS
 マイグレーション実績(1995年～)
メインフレーム
120件
オフコン
70件
オープン
レガシー
20件

これまでのマイグレーション実績 (1995年～)

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

6

COBOLを使う企業はまだまだ多い
1990年

→

2000年

メインフレーム、オフコン

現在

メインフレーム、オフコン

オープンシステム(COBOL)

リプレイス

オープンシステム(COBOL)

マイグレーション→リプレイス

オープンシステム(COBOL)

マイグレーション

メインフレーム、オフコン

2010年

メインフレーム、オフコン

リプレイス

メインフレーム、オフコン→オープンシステム(COBOL)

パッケージ導入 or再構築(Java)

刷新 & 一部COBOL残Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

7

COBOLシステムを読み解くカギ ミッションクリティカル– 企業（社会）活動の中核となる業務– サービスが停止すると企業活動に甚大な影響

巨大重要 個別最適システム– 電算化の過程で手作業の事務処理を機械化– 非力なコンピュータを効率利用するアーキテクチャ

 レガシー問題– レガシープラットフォームの保守終了– オープンレガシー問題(UNIX、Windows Server 2003/2008)
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

複雑継続利用8最近の情報システムの動き
 技術者の引退– 2007年問題の後継を担った人たちの引退も間近

技術者減

 デジタルビジネスの推進– ビジネスのIT化がどんどん加速している

柔軟性– 業務システム側も柔軟な対応が求められる アプリケーションライフサイクルの短期化– 早く開発、テスト、リリースすることで、現場や顧客の反応に迅速に対応する必要がある

スピード システム内製化の動き– 企業の内製化が再び注目されている– 柔軟性やスピードでの対応には内製が現実的
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

内製化
9マイグレーションと超高速開発
マイグレーションで解決

超高速開発で解決

巨大

技術者減
柔軟性

重要内製化
継続利用

複雑

スピード

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

10

Wagbyのご紹介

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

11

Wagby (ワグビィ)
 2006年に市場投入、今年で12年目の超高速開発ツール ジャスミンソフト社が開発した純国産ソフトウェア
 累積導入企業数は約350社（2018年3月現在）

 ガートナー社「Cool Vendors in Application Development2016」に選出。これまでのCASEツールと違い、ノンプログラミングで開発できつつも生成されたソースコードの改変を認めるアプローチに注目 2018年1月に『Wagby R8 』をリリース

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

12どのくらい”超”高速開発なのか？
これまでの開発

要件定義

プログラミング

設計

要件定義＆設計

開発

単体テスト

動作確認

動作
確認

超高速開発ツールの利用「要件定義」と「設計」フェーズが一体化する

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

13

ブラウザで開発、実行 ブラウザで設計情報を入力後、ビルドによってJavaコードを自動生成し、アプリが完成
Wagby Designer

Wagby実行環境
Java
コードリポジトリ

自動生成

1.設計するコンパイル

2.ビルドする

デプロイ

3.アプリケーション起動

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

14充実した基本機能
 業務アプリで求められる機能を標準装備

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

15

カスタマイズを前提にした自動生成 生成されたコードのカスタマイズができ、コード変更後でも自動生成の繰り返しが可能

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

16

Wagby画面イメージ
 モデル情報を登録する

項目一覧

詳細定義で細かな設定
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

17

Wagby画面イメージ
 モデル同士の関係を「関連図」で参照する

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

18

Wagby画面イメージ
 画面レイアウトを調整する

ドラッグアンドドロップで視覚的にレイアウト調整

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

19

Wagby画面イメージ
 ビルドをしてアプリケーションを起動

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

20

Wagby画面イメージ
 アプリケーションを実行

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

21

お試しください Wagby トライアルキット– Wagby の全機能をお試し可能(※)– wagby.com の「ダウンロード」より※制約事項あり•
開発規模(モデル数)は50項目まで•登録できるデータは1,000件まで•
動作期限は1年間
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

22

超高速開発ツールとCOBOLの連携

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

23

ケーススタディ

WagbyからCOBOLの計算処理を呼びたい マイグレーションをした製造業様
基幹システム

Windows Server 2012 R2

国産オフコン

オープン系COBOL

COBOL
マイグレーション

RDB

ＲＤＢ

バッチで同期

発販
注売シ店
ス向テけム

JDBCで直接I/O

AccessASP.NET
IIS

Wagby 7.9 (Java)

再構築

Windows Server 2003

AJTOOL

Apache Tomcat
Windows Server 2012 R2Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

24

Wagby x COBOL 連携
 WagbyからCOBOLを呼び出し、LINKAGE SECTIONを通じてデータを引き渡す
COBOLシステム

超高速開発

COBOL to Java
Java Runtime

Cloud or On-Premise
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

25

Wagby x COBOL 連携イメージ
Java (COBOL)
RequestServerSide
JavaScriptResponse
Build
Wagby
Repository

DesignerBridge
Class(Interface)

Main Class(BusinessLogic)

Generate

Compile

COBOL
コンパイラ

COBOL

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

26

COBOL プログラムの例*******************************************************************
ローン返済額計算サンプル（元利均等返済）*******************************************************************IDENTIFICATIONDIVISION.
****************************************************************PROGRAM-ID.
LOAN.
AUTHOR.
TOKYO-SYSTEM-HOUSE.
DATE-WRITTEN.
2016/01/14.
ENVIRONMENTDIVISION.
CONFIGURATIONSECTION.
****************************************************************DATA
DIVISION.
****************************************************************
WORKING-STORAGESECTION.
01 WK-AREA.
03 INTEREST-RATE
PIC 9(02)V9(03).
03 INTEREST-YEAR
PIC 9(02)V9(09).
03 KAKUNINPIC X.
01 COMPUTE-AREA.
03 PERIODS
PIC 999.
03 PAYMENTPIC 9(09)V9(09).
03 LOANPIC 9(09)V9(09).
03 INTEREST-MONTH
PIC 9(02)V9(09).
****************************************************************SCREENSECTION.
****************************************************************
01 SCR-AREA.
03 LINE 01 COL 01
VALUE "LOAN CALCULATOR".
03 LINE 02 COL 01
VALUE "LOAN AMOUNT: ".
03 LINE 02 COL 23
USING LOANPIC ZZZ,ZZZ,ZZ9 BLANK WHEN ZERO.

Main Class(Business Logic)

01

SCR-KAKUNIN.
03 LINE 06 COL 01
TO
KAKUNIN.
****************************************************************PROCEDURE
DIVISION.
****************************************************************
HAJIME.
INITIALIZE WK-AREA
COMPUTE-AREA.
MAIN-000.
DISPLAY SCR-AREA.
ACCEPT SCR-AREA.
MAIN-100.
COMPUTE INTEREST-YEAR = INTEREST-RATE / 100.
COMPUTE INTEREST-MONTH = INTEREST-YEAR / 12.
* 毎回の返済額 = (借入金額 * 月利 * ((1 + 月利) ** (返済回数)))*/ ((1 + 月利) ** (返済回数) - 1)
COMPUTE PAYMENT =(LOAN * INTEREST-MONTH *((1 + INTEREST-MONTH) ** (PERIODS))) /((1 + INTEREST-MONTH) ** (PERIODS) - 1).
MAIN-900.
DISPLAY SCR-AREA.
ACCEPT SCR-KAKUNIN.
MAIN-900.
DISPLAY SCR-AREA.
ACCEPT SCR-KAKUNIN.
OWARI.
STOP RUN.
*--------------------<< END OF PROGRAM >>-----------------------*

ローン計算のサンプルプログラム

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

27

COBOL プログラムの例

・借入金額・年利・返済回数

10,0000.1 [%]12Main Class(Business Logic)

ローン計算のサンプルプログラム

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

28

Main Class(Business Logic)

COBOL プログラムの作成

Bridge Class(Interface)****************************************************************
LINKAGESECTION.
01 IN-LOAN
PIC 9(09)V9(09).
01 IN-INTEREST-RATE
PIC 9(02)V9(03).
01 IN-PERIODS
PIC 999.
01 OUT-PAYMENTPIC 9(09)V9(09).
****************************************************************PROCEDURE
DIVISION
USING IN-LOAN
IN-INTEREST-RATE
IN-PERIODS
OUT-PAYMENT.
****************************************************************
PROC-START.
INITIALIZE WK-AREA
COMPUTE-AREA.
MAIN.
COMPUTE INTEREST-YEAR= IN-INTEREST-RATE / 100.
COMPUTE INTEREST-MONTH = INTEREST-YEAR / 12.
*
毎回の返済額 = (借入金額 * 月利 * ((1 + 月利) ** (返済回数)))*/ ((1 + 月利) ** (返済回数) - 1)
COMPUTE OUT-PAYMENT =(IN-LOAN * INTEREST-MONTH *((1 + INTEREST-MONTH) ** (IN-PERIODS))) /((1 + INTEREST-MONTH) ** (IN-PERIODS) - 1).
PROC-END.
GOBACK.
*--------------------<< END OF PROGRAM >>-----------------------*

外部との受け渡し
外部との受け渡し
項目の設定（引数）
項目（引数）COBOLプログラムのビジネスロジック部をモジュール化するローン計算のサンプルプログラム

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

29

Wagby 側の実装
Request Wagbyで”LOANCALC”モデルを作成する

項目ID

Response

入力フィー
ルド長型

型の詳細検索・一覧

LCPKEY

数値型

整数〇

LCLOAN

数値型

整数

〇15

LCRATE

数値型

8バイト
浮動小数点

〇4

PERIODS

数値型

整数

〇

4

PAYMENT

数値型

整数〇15

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

30

Wagby 側の実装
 実行ボタンを作成する

Request・LOANCALCモデル「画面」-「その他」を選択
・「Javaソースコードの設定」
画面名→ 「新規登録画面」
ボタン名→ 「ローン計算実行」
イベント名 → 「Original1」
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

31

ServerSide
JavaScript

Wagby 側の実装

Bridge Class(Interface) Server Side JavaScriptを作成する– Bridge Classのオブジェクトを生成し、入力データを渡してCOBOLを実行、結果を画面にセットするスクリプトを記述する

01010101

IN-LOANPIC 9(09)V9(09).
IN-INTEREST-RATE
PIC 9(02)V9(03).
IN-PERIODS
PIC 999.
OUT-PAYMENTPIC 9(09)V9(09).
：COMPUTE INTEREST-YEAR= IN-INTEREST-RATE / 100.
COMPUTE INTEREST-MONTH = INTEREST-YEAR / 12.
COMPUTE OUT-PAYMENT =(IN-LOAN * INTEREST-MONTH *((1 + INTEREST-MONTH) ** (IN-PERIODS))) /((1 + INTEREST-MONTH) ** (IN-PERIODS) - 1).
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

32

Wagby x COBOL 動作結果
 Wagbyの画面から以下の条件で入力
・借入金額 10,000・年利0.1 [%]・返済回数 12

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

33

Wagby x COBOL 動作結果
Wagbyの実行結果

COBOLの実行結果

Wagby,Wagby, COBOLどちらもCOBOLどちらも同じ結果となることを確認
同じ結果となることを確認

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

34

Wagby x COBOL 導入結果
 超高速開発とCOBOL再利用を実現！
当社が基幹で作り込んだ計算ロジックと同じものを、Wagbyで実装するのは難儀でした。

一方、WagbyはJavaで独自処理をコーディングできますが、COBOL技術者には敷居が高い…。
WagbyからCOBOLの処理を呼び出すことで、超高速開発がより高速に実現できました。
同様の対応を20か所ほど作り込みました。

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

35

まとめ

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

36

まとめ
23年の実績！
COBOL資産の継承ソリューション
国産の超高速開発ツール！
業務システムをノンプログラミングで開発

既存資産を適材適所で再利用し、真の超高速開発を実現。
ビジネスのIT化に業務システム側も素早く柔軟に対応する！

Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

37

無料！

ハンズオンセミナー
日付：2018年4月25日(水), 5月9日(水), 5月23日(水)時間：14:00 ～ 17:00
会場：東京システムハウス（五反田）

お申込み： https://www.tsh-world.co.jp/service/wagby/
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

38

ご清聴ありがとうございました。
マイグレーションソリューション部
TEL : 03-3493-4604
e-mail : mms@tsh-world.co.jp
Copyright © 2018, Tokyo System House Co., Ltd. All Rights Reserved.

39