_OSSセミナーOpenCOBOL.pptx

Size: px

Start display at page:

Download "_OSSセミナーOpenCOBOL.pptx"

いつやさわい
5 years ago
Views:

1 オープンソースでの COBOL の基幹システム開発オープン COBOL ワーキンググループ峰松浩樹

2 自己紹介氏名 : 峰松浩樹所属 OSS コンソーシアム h(p:// OpenCOBOL ワーキンググループ所属有限会社ランカードコム本社 : 長崎県長崎市扇町東京 : 四ッ谷事務所業種 : 長崎県庁他自治体向け業務民間企業向け Web アプケーション構築等 Mail: mine@lancard.com 2

3 概略自己紹介 COBOL についてオープンソースの COBOL OpenCOBOL について事例紹介 ORCA 海外長崎県国内での活動状況 3

4 COBOL について事務処理用に開発されたプログラミング言語最初のリリースは 1959 年 ( 昭和 34 年 ) 非理系の事務員でも使用可能自然言語である英語に近い記述特に金額計算など事務処理 ( 商用計算 ) の用途に広く使われている演算精度が高い 4

5 COBOL プログラム例 (1) * HELLO.COB OpenCOBOL FAQ example IDENTIFICATION DIVISION PROGRAM-ID. hello PROCEDURE DIVISION DISPLAY "Hello World!" STOP RUN. 5

6 COBOL プログラム例 (2) IDENTIFICATION DIVISION. PROGRAM-ID. hello. PROCEDURE DIVISION. DISPLAY "Hello World!". STOP RUN. 6

7 演算精度が高い十進数固定小数点にて値を保持 31 桁 (OpenCOBOL) の有効桁 ( メーカー実装によってはさらに精度が高い ) 例 : 数値丸め round( ) の値が正しく 0 になります (1になってしまう実装があります) 7

8 オープンソース COBOL コンパイラ COBOL からバイナリへの変換 TinyCOBOL 非常に基本的な機能のみの実装非業務向け OpenCOBOL ORCA プロジェクト用に開発された日本発の COBOL コンパイラ COBOL から Java クラスファイルへの変換 P3/COBOL 実績少ない NECA メンテナンス停止中 8

9 OpenCOBOL について COBOL から C 言語への変換とコンパイル元開発者は日本人 ( 西田圭介氏 ) 現開発者は Roger While 氏現バージョンは OpenCOBOL 1.0 OpenCOBOL 1.1 では画面制御機能の拡充とデバッグ機能の強化等 9

10 OpenCOBOL について取り扱い可能なデータ形式固定長レコード Berkeley DB (ISAM 形式 ) PostgreSQL(OSSコンソーシアムにて拡張中 ) 組み込みSQL (EXEC SQL 等 )( 拡張 ) 主にバッチ処理にて効果を発揮する 10

11 OpenCOBOL について OSS コンソーシアムオープン COBOL ソリューション部会参加企業により日本語対応進行中 11

12 OpenCOBOL 事例国内日本医師会総合政策研究機構 JMARI ORCA 長崎県汎用機ダウンサイジング関西方面 JA オフコンから Linux への移行海外フランス財務省 MicroFocus OpenCOBOL ロイヤルアホールド ( 英国 : 世界 3 位の小売業者 ) IBM COBOL OpenCOBOL FlyBuys ( オーストラリア : カード買物ポイント付与 ) Fujitsu COBOL OpenCOBOL 12

13 日本医師会総合政策研究機構 13

14 長崎県 : 今までの経緯 2008 年 : 長崎県様より OpenCOBOL を使った移植可能性について調査依頼 2009 年 :Web アプリとして既存の COBOL ソースを流用できないか調査依頼 2010 年 :JCL 等バッチ処理について本格的な移植ツールの実装 2011 年 : バッチ編集管理画面の実装既存データの移行等 2012 年 : 実機と並行運用 14

15 実装環境既存環境 : 国産メーカ汎用機専用ページプリンタ専用端末エミュレータ移行先 : Linux サーバ数台 ( 業務種類毎に 1 台ずつ ) 印刷出力は PDF ファイルにて生成 Web ブラウザで (JCL COBOL プログラムの編集など ) 端末操作 15

16 作業対象職員総合財務会計予算編成の 3 システム COBOL プログラム合計で約 500 万行約 1 万 5 千本 JCL( ジョブコントロール言語 ) 合計で約 100 万行約 6500 本帳票レイアウト職員総合システムで約 400 本他システムは未知数 ( 同数程度計 1200 本?) 16

17 移行イメージ汎用機リソース移植ツール Linux サーバ JCL ( ジョブ操作 ) COBOL 帳票データファイル JCL2perl acos2oc formconv ocprinter convacosbin TXT2ISAM Perl( など ) OpenCOBOL PDF 出力 ISAMファイル 17

18 汎用機からの移行移行前環境大型汎用機と専用端末 ( エミュレーション使用 ) での接続大型機ベンダ独自プロトコルで接続 (B4670) 専用端末 18

19 汎用機からの移行 ( 入力端末移行 ) 専用端末以外の端末からもデータエントリを可能とし将来の置き換えに備える大型機ゲートウェイサーバ MySQL サーバベンダ独自プロトコル TCP/IP 専用端末 Web アプリ 19

20 汎用機からの移行 ( 並行運用 ) 汎用機と linux の並行運用データの突き合わせを行いながら動作相違箇所のチェック運用上のノウハウの蓄積を行う大型機ゲートウェイサーバ MySQL サーバベンダ独自プロトコル専用端末 OpenCOBOL Linux TCP/IP Web アプリ 2012 年 5 月 20

21 汎用機からの移行 ( 移行完了 ) 汎用機撤去後の環境 OpenCOBOL/Linux にて処理を行いデータエントリも Web アプリから実施する OpenCOBOL Linux MySQL サーバ Web アプリ 2013 年 9 月予定 TCP/IP 21

22 長崎県での状況プロジェクトは redmine で管理プロジェクトのソースバイナリは subversion で配布長崎県職員と複数の業者メンバーが参加 ( 職員 7 人 4 社 18 人程度 ) CentOS5+perl+OpenCOBOL+mysql で各社内でコンパイル実行帳票デザインが可能に OSS で全体的な開発コストが低下 22

23 既存 COBOL ソースの変換と問題点データ型演算精度の違い COMP- 1 浮動小数点丸め誤差文字の取り扱い全角文字列 SPACE の解釈文字罫線外字領域にマップされた文字罫線外字地名人名特殊記号 23

24 既存 COBOL ソースの変換と問題点自動変換と移植工数業務ロジックを変えるわけではないのでほとんど機械的に置き換えが出来る自動変換を検討自動変換でカバーしていない無いパターンは都度パターン追加移植ノウハウの自動化 24

25 php+opencobol+perl+mysql PHP 側記述例 if(!extension_loaded('opencobol')) { dl('opencobol.so'. PHP_SHLIB_SUFFIX); } $err = opencobol_init(); $handle = opencobol_load("/tmp/test0001.so"); $err = opencobol_call( $handle, "TEST0001", array( "WK-KETA" => " ", "WK-A" => "ABCDEFGHIJKLMNOPQRSTUVWXYZ )); 25

26 php+opencobol+perl+mysql OpenCOBOL 側記述例 * OPEN INPUT IN4-F. CALL "cob_perl_require" USING "COB_PERL.pm CALL "cob_perl_call" USING "mydb_open" "IN4-F" "AIACF050". CALL "cob_perl_results" USING COBPERL-STATUS LN010-FSTAT1. 略 CALL "cob_perl_close". 26

27 php+opencobol+perl+mysql Perl 側記述例 sub mydb_open { my ($fh, $dbname) = shift; eval { require $dbname.".pm"; }; my $db; eval "\$db = new $dbname();"; $COBPERL_DB::dbnames{$fh} = $db; $db->{'dbname'} = $dbname; $db->{'status'} = "00"; $db->{'fstatus'} = "00"; $db->open; ($db->{'fstatus'}, $db->{'status'}); } 27

28 php+opencobol+perl+mysql PHP ユーザインタフェイス OpenCOBOL 業務ロジック Perl+MySQL データアクセス 28

29 オープンソース COBOL の利点他オープンソースとの親和性 Ruby Perl PHP Java 他との相互接続オープンソースの DB との接続 MySQL PostgreSQL sqlite など OpenCOBOL の拡張文法的拡張仕様的な拡張 OSS で全体的な開発コストが低下 29

OSC_OpenCOBOL.pptx

OSC_OpenCOBOL.pptx OpenCOBOL と Perl を使った汎用機ダウンサイジング峰松浩樹概略自己紹介 OpenCOBOL について今までの経緯と現在の状況 OpenCOBOL の実際長崎県版 OpenCOBOL JCL の移植例長崎県での状況移植作業例将来 12/08/03 2 自己紹介所属有限会社ランカードコム所在地東京都新宿区四ッ谷 1 10 2 408 長崎県長崎市扇町 33 40