完全アウェー

• Web系の人ではありません
  • 金融(保険)ユーザー系子会社勤務
    • 東京海上日動システムズ株式会社
      • 東京海上日動火災保険株式会社　全額出資
      • 東京海上日動火災保険、東京海上日動あんしん生命保険、東京海上日動フィナンシャル生命保険等、東京海上グループの情報システムの企画・提案・設計・開発・保守・運用
• Kansai.pmなのに関西在住でもありません
  • 東京の方から来ました(大阪出張帰り)
    • 
    • © 2011 Google Inc.
    • © 2011 ZENRIN Inc.

Perlで汎用機と仲良くしたい

• 「汎用機上でPerlを動かす」
  • Perl for OS/390 and z/OS
• 「汎用機をサーバーへダウンサイジングする」
  • PerlでJCL、基幹バッチをダウンサイジング
    • @minemazさん (YAPC::Asia Tokyo 2011)
  • 県庁で大活躍(予定)！OpenCOBOL☆Perlで汎用機ダウンサイジングに挑んだワケ
    • @minemazさん (Open SourceConference 2011 Kansai/Kyoto)
• ……ではなく、
  • 「汎用機(メインフレーム)とWindows PCという環境を所与の条件として甘んじて受け容れて、その環境でいかに楽に仕事をするか」
  • PerlとCPANモジュールを使った汎用機の美味しいレシピ集

笑顔の絶えない素敵な職場です

• 汎用機・COBOL
  • 「COBOLは現役バリバリ」，東京海上日動がシステム全面再構築でCOBOLを選んだワケ
  • 東京海上日動の新システムはCOBOLを採用
  • 「COBOLを使っている人がまだいるなんて……」――JPA代表理事　@lestrratさん
• Windows
• 金融ユーザー系子会社
  • セキュリティー
  • コンプライアンス
  • コーポレートガバナンス
  • ……

お約束ネタ (金融商品の重要事項説明)

• 発表内容は発表者の個人的な体験や思想に基づく主張であり、発表者の所属組織とはいかなる関係もありません。
• 発表内容は現状のままで提供されています。発表者およびその所属組織は、発表内容の全部または一部について、いかなる保証・約束・表明も致しません。これには、正確性・精密度・信頼性・最新性・合法性・特定目的に対する市場適合性のあらゆる暗黙的な保証が含まれますが、これらに制限されません。
• 発表者およびその所属組織は、聴講者が発表内容の全部または一部を実行ないし使用した結果生じた偶発的または必然的ないかなる逸失利益または特別・付随的・懲罰的・間接的もしくは派生的損害や損失について、たとえもし当該損害などの可能性について通知されていたとしても、いかなる場合においても、明示的か暗黙的かを問わず、一切の責任を負いかねます。
• ...

上有政策、則下有対策

• 環境に文句を言っても、大きすぎて変えられない
  • オープン系開発部署への異動願を出す
• 「上に政策あれば、下に対策あり」
  • 
  • © 2011 Wikipedia, the free encyclopedia
  • ユーザー側で好き勝手出来る範囲で料理する

レシピ0: 言語処理系の導入

• 何はともあれ言語処理系(言語環境)の整備
• Strawberry Perl for Windows
  • 
    • © Strawberry Perl maintainers
    • 5.14系リリース間近(Preview Releaseあり)
  • 2008年頃まではActivePerl for Windowsを使用

インストーラーの攻略方法

• MSIからのインストールが(ガチムチ規則やグループポリシーなどで)禁止されている？
  • 王道: 業務効率化のために……などと言って申請する
  • 邪道: Portable Edition
    • ZIPファイルを展開して配置するだけ(@INCはいい感じになります)
    • UNCパスにも対応
• CPANモジュールのインストールはcpanmで
  • ゴニョゴニョしてローカルへ持ってきた*.tar.gzもインストール可能
  • 依存解決が大変なので、社外アクセス可能なサーバーでCPAN Mirrorを構築(minicpan+nginx)で

レシピ1: JCLの自動生成

• JCL (Job Control Language)
  • ジョブ制御用のスクリプト言語
  • 繰り返し構文がない
  • 条件分岐構文が内規で使用禁止

ドラクエ2 FC版を今更やる part.8　～ハーゴン＆シドー戦～ © cori95.net

ドラゴンクエストII 悪霊の神々 © 1987 Square Enix Co., Ltd.

JCLをテンプレートエンジンで自動生成する

• Text::Xslate (当初はTemplate-Toolkitを使用)

//P[% job_name %][% test_phase %]  JOB [% group_code %],[% tso_name %],TIME=(,10),CLASS=J,MSGCLASS=S,REGION=4096K,
//             NOTIFY=&SYSUID
//*=====================================================================
//* BMUD: INTEGRATION TEST (2) - IT DRIVER (BMUD PACKAGE)
//*---------------------------------------------------------------------
[%~ PROCESS _header.jcl -%]

[%~ FOREACH branch = branches %]
//NEXTJ   EXEC NEXTK,LIB=&THIS.,JOB=&BASENAME.[% branch %]
[%~ END -%]

[%~ SWITCH development_period -%]
[%~ CASE '08'                 -%]
//LINKGO  EXEC DBLGK,PSB=PVVBMUZ1,MODE=Z,
//             KLIB1=A054, <= 08 BMUD
[%~ CASE '09'                 -%]
//LINKGO  EXEC DBLGK,PSB=PVVBMUZ1,MODE=Z,VER=V2,
//             KLIB1=B005, <= 09 BMUD
//             KLIB2=B008, <= 09 商品管理
//             KLIB3=B004, <= 09 指定日編集
[%~ CASE '10'                 -%]
//LINKGO  EXEC GBLGK,PSB=PVVBMUZ1,MODE=Z,VER=V3,
//             KLIB1=H015, <= 10 BMUD
//             KLIB2=H014, <= 10 商品管理
//             KLIB3=B004, <= 09 指定日編集（10年度も09を見る）
//             KLIB4=B005, <= 09 BMUD
[%~ END                       -%]

レシピ2: 汎用機とのデータ送受信

• せっかく手元で自動生成しても、汎用機に持って行かなければならない
• 最近の汎用機はオープン系に対してツンデレ気味
  • 
    • 言の葉インダストリイ - ツンデレ © SEL
  • ex. FTPで会話可能
• 汎用機をBig Linux Boxとして認識する

素直にFTPで送受信する

• Net::FTP
  • ……を継承したNet::FTP::MVS(未公開)
    • SEQ (Sequential File)ではないPDS (Partitioned Datasets)の場合、get前にcwd が必要
    • 文字エンコーディング (EBCDIC+IBM漢字, CP932, ...)
  • ログインはTSOアカウントを使う
    • 対話的ログインではないので、パスワード誤りやパスワード自動変更に注意
    • TSO端末エミュレータで対話的ログインをするのであれば、パスワード誤りやパスワード切り替えが例示されるが、これは違う
    • 失効して管理者に怒られないように注意する

レシピ3: 各種データの変換

• SIerとユー子 = Excel至上主義
  • Excel方眼ドキュメント脳の恐怖
  • 要件定義書
  • 詳細設計書
  • テストケース表
  • テストデータ (入力, 出力)
    • 目grep
    • 目diff
    • 手patch
    • ...
  • テスト実行結果
  • ...

データ変換はPerlの十八番

• Spreadsheet::Read, Spreadsheet::Write
  • Spreadsheet::ReadExcel, Spreadsheet::WriteExcel, Text::CSVなどのフロントエンド(ラッパー)
  • テストデータ(入出力)のExcelと可変長CSV・固定長テキストとの相互変換
• バイナリー形式とテキスト形式との相互変換は、汎用機側で行った方が楽
  • 既存の変換カタプロがある前提
  • JCLに仕込む

レシピ4: ジョブの遠隔実行

• ジョブを実行するのにも……
  • TSOメニュー (ISPF: Interactive System Productivity Facility)を辿って
  • 作ったJCLを実行 (SUB)し
  • 実行結果を確認する
  • 面倒くさい
• 夢の自動実行へ
  • INTRDR (Internal Reader)
  • MFC (IBM CrossWorlds Mainframe Connector)

Internal ReaderとMainframe Connector

...
QUOTE FileType=JES
PUT FOOBAR.JCL
...

この辺り、深くは分かりかねます(ごめんなさい)

レシピ5: GUI操作の自動化

• 最果ての地
  • INTRDRやMFCが使えない
  • TSOメニューの操作も自動化したい
• 最終兵器 Win32::GUITest
  • GUIコントロールを特定した処理や、マウス操作・キーボード打鍵など
  • 詳細は@xaicronさんの紹介記事など
  • しょうもないサンプル: Excelを開いたり閉じたり……

まとめ

男心と女心: とにかく結論を © 織田隼人

自動化の光と闇

• 自動化の果実
  • 効率性: 何度も実行する処理は手作業で行わない
  • 堅牢性: データセット名やジョブ名の書き間違い撲滅
  • 完全性: 監査証跡の保全を自然体で行える
  • 運用性: 属人化を廃する、実行可能な手順書
  • ...
• 理想と現実のすりあわせ
  • パレートの法則(80:20の法則など)
• 保守性の考慮
  • 人力処理の代替なので、中断再開などは可能
  • テンプレートや設定ファイルの更新は比較的容易
    • 心配り・おもてなしの心が必要(CP932, CR+LF, ...)

金融ユー子での振る舞い方

• 管理者と仲良くなること
  • 管理者も知らないような機能がある
• 穴を塞いでないだけ？
  • 是非活用してください
  • 宝の持ち腐れはもったいない！
  • 提案すれば通るかも

Perl = Swiss-Army chainsaw

• 日本的SEでも、日々の仕事を片付けるための得意言語があると便利
• Perlである必要はない、が
  • 幅広いプラットフォーム (UNIX, Windows, ...)
  • 豊富なCPANモジュール (各種用途に対応)
    • Getopt::Long
    • Encode
    • Text::Xslate
    • Path::Class
    • Net::FTP
    • Spreadsheet::Read
    • Spreadsheet::Write
    • Win32::GuiTest
    • Moose (すみませんMoose厨なんです)
    • ...
• Perl mongerならずとも、広くお勧め出来る
  • Perlファンを増やす
  • 社内でPerlの地位を向上させる方法
    • @songmuさん (Kamakura Perl Mongers: Technical Talk #1)

We ♥ Perl!

ご静聴ありがとうございました

スライド

http://gardejo.github.com/presentation/kansaipm-14/