【IBM Power Salon】株式会社 電業 様が語る
「根っからのエンジニアが語る IBM i 内製化のリアル」実践編
～サンプルプログラムの流れ（DEFファイル作成）

サンプルプログラムはこちらから！
第4回目は第3回目に続き、題名にもあるようにDEFファイル（物理ファイル）に書込むまでになります。
ソース・プログラムは当連載第１回でご案内したサンプル・ライブラリーに格納してありますので、全容はそちらでご確認ください。

1. DEFとは

第3回で説明した通り、表示編集情報を持つファイルです。
DEFファイルはXML形式ファイルです。XMLファイルを採用した理由は、データを抽出するのは面倒ですが拡張性に優れ可読性が高いためです。
またXML整形ツールやDTDを作成する事でデータの検証が行える利点もあります。サンプルではDTDを作成していません。

生成されたサンプルのDEFファイルです。
(※ピボット集計・グラフ描画の記述を除いたもの)

1.1 DEFファイル出力(UTLOUTDEF)

DEFファイル出力は前述のCSVCOLとCSVEDTによりCSVTXTファイルに出力します。
CSVTXTは事前にライブラリーリストに存在するライブラリーにCRTPFで作成します。UTLOUTDEFを実行する前にCRTDUPOBJでQTEMPに作成後、OVRDBFでQTEMPのものを使用するようにします。
XMLファイルもSQLと同様にレコード長の長いテキストファイルに書き出す事になります。

上記はUTLOUTDEFを実行するまでのILECLPの抜粋です。

上記はCSVTXTのDDSソースです。

1.1.1 実行時パラメータ

UTLOUTDEFは７つのパラメータが必要です。実行時にパラメータとして渡します。

• TABLEスタイルでEXCELの１行毎の色分けを実現しています。設定する値はEXCELのテーブルスタイルを参照願います。
• 上記パラメータのシート名から出力ファイル名及びCSV作成プログラム名をパラメータ取得プログラムで取得しています。

(参考) EXCELのテーブルスタイル

1.1.2 XMLデータ定義(UTLOUTDEF)

CSVCOLL1をパラメータ&IDで読込みID毎に異なるDEFファイルを作成します。
XMLデータはDSで定義したものを出力します。定義しているXMLの一部が下記になります。

下記がXML出力コードです。ヘッダー/明細/フッター出力を別プロシージャ―にしています。
（#WRITE_DEF_HD, #WRITE_DEF_IT, #WRITE_DEF_FT）

XMLヘッダー出力(#WRITE_DEF_HD)

以上がXMLヘッダー出力になります。DS定義に手間がかかるだけで何も難しい事はありません。
CCSID=5026で作成して問題ありません。IFSに転送する時にEBCDIC（5026）からASCIIコードに変換（漢字も含む）されます。

XML明細出力(#WRITE_DEF_IT)

XMLフッター出力（#WRITE_DEF_FT）

以下の画面が今回サンプルプログラムで出力したものです。

このファイル（CCSID=5026）をFTPもしくはCPYTOIMPFでIFSに出力するとUNIXでのテキストファイルになります。

但し、CPYTOIMPFはレコードの後ろブランクはカットされませんのでデータ件数が多くなる場合は避けた方がよいかと思います。
DEFファイルはXMLファイルですが、IBMｉの世界ではレコード長の長い物理ファイルです。
CSVファイルも同じですが、格納される列データが多くなる事が想定されますので、レコード長をより長くしています。