はじめに

ASTERIA Warpでは固定長データを扱えるわけですが出現頻度が稀な上にファイルレイアウトにマルチフォーマットが用いられている事もありむつかしそうな感じがします。固定長の代表格の全銀協フォーマットの様に繰り返し構造のないものであれば単純なフローで実装できますので簡単なサンプルとともに説明します。今回もメモリ内で処理を行いループは行わない構築です。

全銀協フォーマット（振込）

全銀協パーソナル・コンピュータ用標準通信プロトコル（ベーシック手順）－適用業務およびレコード・フォーマット－
こちらの総合振込レコード・フォーマットを対象とします。
サンプルデータは以下を利用します。

振込データ.csv

顧客コード,銀行コード,銀行名,支店コード,支店名,預金種目,口座番号,受取人名,振込金額
101,1234,サンプルギンコウエー,1001,サンプルシテンエー,普通,1234567,サンプルジョウヘイ,5000
102,5678,サンプルギンコウビー,2002,サンプルシテンビー,当座,7654321,サンプルナオミ,8000
103,9012,サンプルギンコウシー,3003,サンプルシテンシー,普通1,9876543,サンプルユウキ,12000
104,3456,サンプルギンコウディー,4004,サンプルシテンディー,当座2,2345678,サンプルマイ,15000
105,7890,サンプルギンコウイー,5005,サンプルシテンイー,普通1,8765432,サンプルアヤ,20000
106,2345,サンプルギンコウエフ,6006,サンプルシテンエフ,当座2,3456789,サンプルトモ,25000
107,6789,サンプルギンコウジー,7007,サンプルシテンジー,普通1,6543210,サンプルナツ,30000
108,1234,サンプルギンコウエー,1001,サンプルシテンエー,普通1,1234567,サンプルユウキ,35000
109,5678,サンプルギンコウビー,2002,サンプルシテンビー,当座2,7654321,サンプルヒロ,40000
110,9012,サンプルギンコウシー,3003,サンプルシテンシー,普通1,9876543,サンプルマナ,45000
111,3456,サンプルギンコウディー,4004,サンプルシテンディー,普通2,2345678,サンプルアツシ,50000
112,7890,サンプルギンコウイー,5005,サンプルシテンイー,当座1,8765432,サンプルミキ,55000
113,2345,サンプルギンコウエフ,6006,サンプルシテンエフ,普通2,3456789,サンプルエリカ,60000
114,6789,サンプルギンコウジー,7007,サンプルシテンジー,普通1,6543210,サンプルヨウスケ,65000
115,1234,サンプルギンコウエー,1001,サンプルシテンエー,当座1,1234567,サンプルアイ,70000
116,5678,サンプルギンコウビー,2002,サンプルシテンビー,普通2,7654321,サンプルナナ,75000
117,9012,サンプルギンコウシー,3003,サンプルシテンシー,普通1,9876543,サンプルミサ,80000
118,3456,サンプルギンコウディー,4004,サンプルシテンディー,普通2,2345678,サンプルトモ,85000
119,7890,サンプルギンコウイー,5005,サンプルシテンイー,普通1,8765432,サンプルユウキ,90000

出力ファイル

処理フロー

フロー変数

フロー変数	データ型	初期値
c依頼人コード	String	1234567890
c依頼人名	String	ｶ)ｺﾃｲﾁﾖｳｻﾝﾌﾟﾙ
c仕向金融機関番号	String	9999
c仕向金融機関名	String	ｲﾗｲｷﾞﾝｺｳ
c仕向支店番号	String	999
c仕向支店名	String	ｲﾗｲｼﾃﾝ
c依頼人預金種目	String	1
c依頼人口座番号	String	1122334

【処理概要】

ヘッダーレコードのファイル出力（新規）
変換元ファイルを読み込みデータレコードのファイル出力（追加）
トレーラレコードのファイル出力（追加）
エンドレコードのファイル出力（追加）

この処理ではループは行わず、同一ファイル名で、ヘッダー、データ、トレーラ、エンドの順で書き込みます。ファイル書き込みを１度で行う方法もありますが、そちらは後で説明します。取得したCSVはデータレコードで金額の集計を行いストリーム変数としてストリームに付属させ、トレーラレコードではその金額を使用します。

固定長のフォーマットは以下の様に指定します。

プロパティ名	値
ストリーム型	FixedLength
読み込み開始行	1
フィールド数	13
出力エンコーディング	shift_jis
レコード区切り	レコード長
レコード長	120

通常Windowsで扱うshift-jisはWindows-31J (MS932)で扱いますが固定長で明確な記載がない場合は、shift-jisを指定します。また、固定長のみebcdicを指定する事ができますが、汎用機固有のEBSDICを利用する場合は出力エンコーディングに直接入力して指定します。
フローで文字コード EBCDICおよびEBCDIKを扱うことはできますか？

Mapper（ヘッダーレコード）

ヘッダーの依頼人情報はフロー変数からの移送を行っています。レコード区分は1（ヘッダ）、振込指定日は処理日をMMddで出力しています。

レイヤー

レイヤー名	レイヤー条件
移送	なし

固定長レコード（ヘッダーレコード）

フィールド名	データ型	開始位置	長さ
データ区分	String	0	1
種別コード	String	1	2
コード区分	String	3	1
依頼人コード	String	4	10
依頼人名	String	14	40
振込指定日	String	54	4
仕向金融機関番号	String	58	4
仕向金融機関名	String	62	15
仕向支店番号	String	77	3
仕向支店名	String	80	15
預金種目（依頼人）	String	95	1
口座番号（依頼人）	String	96	7
空きエリア	String	103	17

FileOutput（ヘッダ）

ファイルパスは”output/振込データ.txt”、書き込み処理を”新規”で指定します。

Mapper（データレコード）

このマッパーでは、読み込まれたCSVをデータレコードに移送します。レイヤーは２つ使用していますが見やすさのために分けているので１つでも構いません。また、トレーラで使用する振込額の集計をマッパー変数で集計しています。同じくトレーラで使用する件数はこのマッパーで出力されるレコード件数ですのでカウントは行いません。振込額が０の行を除くのであれば条件レイヤーを使用し行を移送しないようにします。
変換レイヤーでは、預金種目のコード変換、全角カナ文字の小文字の大文字可（ャ→ヤなど）と半角カナに変換し文字のカットを行っています。振込金額は0埋めしています。

小文字変換

ァ=ア
ィ=イ
ゥ=ウ
ェ=エ
ォ=オ
ャ=ヤ
ュ=ユ
ョ=ヨ
ヲ=オ

マッパー変数

マッパー変数	データ型	初期値	ストリーム変数
振込合計	Decimal	0	はい

レイヤー

レイヤー名	レイヤー条件
移送	なし
変換	なし

固定長レコード（データレコード）

フィールド名	データ型	開始位置	長さ
データ区分	String	0	1
被仕向金融機関番号	String	1	4
被仕向金融機関名	String	5	15
被仕向支店番号	String	20	3
被仕向支店名	String	23	15
手形交換所番号	String	38	4
預金種目	String	42	1
口座番号	String	43	7
受取人名	String	50	30
振込金額	String	80	10
新規コード	String	90	1
顧客コード1	String	91	10
顧客コード2	String	101	10
振込指定区分	String	111	1
識別表示	String	112	1
空きエリア	String	113	7

FileOutput（データ）

ファイルパスはヘッダと同じ”output/振込データ.txt”、書き込み処理を”追加”で指定します。

Mapper（トレーラレコード）

直前のFilePutの出力ストリームは、入力ストリームをそのまま出力します。そのためここではストリームにストリーム変数として登録されてる「振込合計」を合計金額、ストリームのレコード件数を合計件数として利用します。

レイヤー

レイヤー名	レイヤー条件
移送	なし

固定長レコード（トレーラレコード）

フィールド名	データ型	開始位置	長さ
データ区分	String	0	1
合計件数	String	1	6
合計金額	String	7	12
ダミー	String	19	101

Mapper（エンドレコード）

エンドレコードではレコード区分のみ指定します

レイヤー

レイヤー名	レイヤー条件
移送	なし

固定長レコード（エンドレコード）

フィールド名	データ型	開始位置	長さ	小数点位置
データ区分	String	0	1	0
空きエリア	String	1	119	0

レコードをまとめてファイル出力する場合

今回のケースでは必要ないですが、ストリームをまとめてファイルの出力として１度で出力する場合、ストリームの合成が必要になります。

処理フロー

使用データ、フロー変数などは先ほどのものと変わりません。合成を行うためファイルに出力する変わりにConvertでストリームをバイナリ型に変換しています。その後Mapper内でストリームの結合をし、それをファイル出力します。

【処理概要】

ヘッダーレコードの成形しバイナリ型に変換
変換元ファイルを読み込みデータレコードの成形しバイナリ型に変換
トレーラレコードの成形しバイナリ型に変換
エンドレコードの成形しバイナリ型に変換
バイナリを結合しファイル出力する

Mapper（ストリーム結合）

４つのストリームをConcatenateBでヘッダー、データ、トレーラ、エンドの順で結合し１つのバイナリストリームにします。

複数の入力のあるMapperで「イメージをファイルに保存」しても線が全部出力されないで2406で修正されるとよいですね・・

レイヤー

レイヤー名	レイヤー条件
移送	なし

固定長ファイルの確認用処理

今回の様に、Shift-Jisで出力すれば、テキストエディタで表示する事で中身は確認できます。しかし、データが正しいカラムに移送されているかはそのままではわかりません。エンコードがEBCDICであればなおさらです。固定長の様にデータ内容とカラムの情報直接視認できない形式では、出力結果の確認用の逆変換のCSV化処理を作ると良いでしょう。出力で使用したストリーム定義を利用しますがそのままではマルチフォーマットで確認できないため、確認用の定義は別形式のカラム定義を行います。このフローでは固定長フォーマットを読み込み、それをCSV形式に変換します。

処理フロー

【処理概要】

固定長ファイルの読み込み
ヘッダレコードのみをフィルタしCSVにし、テキストストリームに変換する
データレコードのみをフィルタしCSVにし、テキストストリームに変換する
トレーラレコードのみをフィルタしCSVにし、テキストストリームに変換する
エンドレコードのみをフィルタしCSVにし、テキストストリームに変換する
テキストファイルを結合し、ファイル出力する

FilleGet

ASTERIA WarpのFixedLengthは重複定義が許されるという特徴があります。これは、COBOLのREDEFINES句の再定義に近い機能です。ただし、カラムに数値を含まない前提での実装となります。パック10進、ゾーン10進を含まないデータであれば、数値であっても表面上は文字として扱っても問題ないため、ここではすべて文字として定義します。
振込データの形式は、１バイト目のデータ区分以外は各レコード異なっています。そのため、データ区分のみを共通フィールドとし、それぞれのレコードカラムをそのままの多重定義します。同一名称カラムが登録できないため、先頭にデータ区分をつけたカラムとします。こうした場合、120バイトのデータは、どのレコード形式の行であっても、すべてのカラムに同じ様に値が格納されます。

固定長レコード（エンドレコード）

フィールド名	データ型	開始位置	長さ
データ区分	String	0	1
1_種別コード	String	1	2
1_コード区分	String	3	1
1_依頼人コード	String	4	10
1_依頼人名	String	14	40
1_振込指定日	String	54	4
1_仕向金融機関番号	String	58	4
1_仕向金融機関名	String	62	15
1_仕向支店番号	String	77	3
1_仕向支店名	String	80	15
1_預金種目（依頼人）	String	95	1
1_口座番号（依頼人）	String	96	7
1_空きエリア	String	103	17
2_被仕向金融機関番号	String	1	4
2_被仕向金融機関名	String	5	15
2_被仕向支店番号	String	20	3
2_被仕向支店名	String	23	15
2_手形交換所番号	String	38	4
2_預金種目	String	42	1
2_口座番号	String	43	7
2_受取人名	String	50	30
2_振込金額	String	80	10
2_新規コード	String	90	1
2_顧客コード1	String	91	10
2_顧客コード2	String	101	10
2_振込指定区分	String	111	1
2_識別表示	String	112	1
2_空きエリア	String	113	7
8_合計件数	String	1	6
8_合計金額	String	7	12
8_ダミー	String	19	101
9_空きエリア	String	1	119

Mapper（ヘッダーレコード）

このマッパーではデータ区分が1のもののみを出力するMapperです。
各CSVストリームの基本設定は同一で出力時にヘッダーを出力する設定にします。データ区分のカラム名はそのままではなくデータ区分の値"1"を指定しています。
移送するカラムは、データ区分1のカラムである”1_”のカラムを移送します。

レイヤー

レイヤー名	レイヤー条件
移送	$record.データ区分 = "1"

固定長レコード（データレコード）

フィールド名	データ型
1	String
種別コード	String
コード区分	String
依頼人コード	String
依頼人名	String
振込指定日	String
仕向金融機関番号	String
仕向金融機関名	String
仕向支店番号	String
仕向支店名	String
預金種目（依頼人）	String
口座番号（依頼人）	String
空きエリア	String

Mapper（データレコード）

このマッパーではデータ区分が2のもののみを出力するMapperです。

レイヤー

レイヤー名	レイヤー条件
移送	$record.データ区分 = "2"

固定長レコード（データレコード）

フィールド名	データ型
2	String
被仕向金融機関番号	String
被仕向金融機関名	String
被仕向支店番号	String
被仕向支店名	String
手形交換所番号	String
預金種目	String
口座番号	String
受取人名	String
振込金額	String
新規コード	String
顧客コード1	String
顧客コード2	String
振込指定区分	String
識別表示	String
空きエリア	String

Mapper（トレーラレコード）

このマッパーではデータ区分が8のもののみを出力するMapperです。

レイヤー

レイヤー名	レイヤー条件
移送	$record.データ区分 = "8"

固定長レコード（データレコード）

フィールド名	データ型
合計件数	String
合計金額	String
ダミー	String

Mapper（エンドレコード）

このマッパーではデータ区分が9のもののみを出力するMapperです。エンドは確認が必要が無ければ出力しなくても問題ないと思います。

レイヤー

レイヤー名	レイヤー条件
移送	$record.データ区分 = "9"

固定長レコード（データレコード）

フィールド名	データ型
9	String
空きエリア	String

Mapper（結合）

CSVのストリームはConvertでテキスト型に変換する事で、行ではなくヘッダも含めたオブジェクトとして扱われます。CSV型の場合レコードとして判定されるためこの様な結合は行えませんが（レコード毎に結合されてしまう）オブジェクトではそのストリームをそのまま結合する事でストリームを合成する事が出来ます。そのストリームをファイル出力する事で、各ヘッダを含んだCSVの合成されたテキストファイルになります。

"1","種別コード","コード区分","依頼人コード","依頼人名","振込指定日","仕向金融機関番号","仕向金融機関名","仕向支店番号","仕向支店名","預金種目（依頼人）","口座番号（依頼人）","空きエリア"
"1","21","0","1234567890","ｶ)ｺﾃｲﾁﾖｳｻﾝﾌﾟﾙ                           ","0218","9999","ｲﾗｲｷﾞﾝｺｳ       ","999","ｲﾗｲｼﾃﾝ         ","1","1122334","                 "
"2","被仕向金融機関番号","被仕向金融機関名","被仕向支店番号","被仕向支店名","手形交換所番号","預金種目","口座番号","受取人名","振込金額","新規コード","顧客コード1","顧客コード2","振込指定区分","識別表示","空きエリア"
"2","1234","ｻﾝﾌﾟﾙｷﾞﾝｺｳｴｰ   ","100","ｻﾝﾌﾟﾙｼﾃﾝｴｰ     ","    ","1","1234567","ｻﾝﾌﾟﾙｼﾞﾖｳﾍｲ                   ","0000005000","1","101       ","          "," "," ","       "
"2","5678","ｻﾝﾌﾟﾙｷﾞﾝｺｳﾋﾞｰ  ","200","ｻﾝﾌﾟﾙｼﾃﾝﾋﾞｰ    ","    ","2","7654321","ｻﾝﾌﾟﾙﾅｵﾐ                      ","0000008000","1","102       ","          "," "," ","       "
"2","9012","ｻﾝﾌﾟﾙｷﾞﾝｺｳｼｰ   ","300","ｻﾝﾌﾟﾙｼﾃﾝｼｰ     ","    ","9","9876543","ｻﾝﾌﾟﾙﾕｳｷ                      ","0000012000","1","103       ","          "," "," ","       "
"2","3456","ｻﾝﾌﾟﾙｷﾞﾝｺｳﾃﾞｲｰ ","400","ｻﾝﾌﾟﾙｼﾃﾝﾃﾞｲｰ   ","    ","9","2345678","ｻﾝﾌﾟﾙﾏｲ                       ","0000015000","1","104       ","          "," "," ","       "
"2","7890","ｻﾝﾌﾟﾙｷﾞﾝｺｳｲｰ   ","500","ｻﾝﾌﾟﾙｼﾃﾝｲｰ     ","    ","9","8765432","ｻﾝﾌﾟﾙｱﾔ                       ","0000020000","1","105       ","          "," "," ","       "
"2","2345","ｻﾝﾌﾟﾙｷﾞﾝｺｳｴﾌ   ","600","ｻﾝﾌﾟﾙｼﾃﾝｴﾌ     ","    ","9","3456789","ｻﾝﾌﾟﾙﾄﾓ                       ","0000025000","1","106       ","          "," "," ","       "
"2","6789","ｻﾝﾌﾟﾙｷﾞﾝｺｳｼﾞｰ  ","700","ｻﾝﾌﾟﾙｼﾃﾝｼﾞｰ    ","    ","9","6543210","ｻﾝﾌﾟﾙﾅﾂ                       ","0000030000","1","107       ","          "," "," ","       "
"2","1234","ｻﾝﾌﾟﾙｷﾞﾝｺｳｴｰ   ","100","ｻﾝﾌﾟﾙｼﾃﾝｴｰ     ","    ","9","1234567","ｻﾝﾌﾟﾙﾕｳｷ                      ","0000035000","1","108       ","          "," "," ","       "
"2","5678","ｻﾝﾌﾟﾙｷﾞﾝｺｳﾋﾞｰ  ","200","ｻﾝﾌﾟﾙｼﾃﾝﾋﾞｰ    ","    ","9","7654321","ｻﾝﾌﾟﾙﾋﾛ                       ","0000040000","1","109       ","          "," "," ","       "
"2","9012","ｻﾝﾌﾟﾙｷﾞﾝｺｳｼｰ   ","300","ｻﾝﾌﾟﾙｼﾃﾝｼｰ     ","    ","9","9876543","ｻﾝﾌﾟﾙﾏﾅ                       ","0000045000","1","110       ","          "," "," ","       "
"2","3456","ｻﾝﾌﾟﾙｷﾞﾝｺｳﾃﾞｲｰ ","400","ｻﾝﾌﾟﾙｼﾃﾝﾃﾞｲｰ   ","    ","9","2345678","ｻﾝﾌﾟﾙｱﾂｼ                      ","0000050000","1","111       ","          "," "," ","       "
"2","7890","ｻﾝﾌﾟﾙｷﾞﾝｺｳｲｰ   ","500","ｻﾝﾌﾟﾙｼﾃﾝｲｰ     ","    ","9","8765432","ｻﾝﾌﾟﾙﾐｷ                       ","0000055000","1","112       ","          "," "," ","       "
"2","2345","ｻﾝﾌﾟﾙｷﾞﾝｺｳｴﾌ   ","600","ｻﾝﾌﾟﾙｼﾃﾝｴﾌ     ","    ","9","3456789","ｻﾝﾌﾟﾙｴﾘｶ                      ","0000060000","1","113       ","          "," "," ","       "
"2","6789","ｻﾝﾌﾟﾙｷﾞﾝｺｳｼﾞｰ  ","700","ｻﾝﾌﾟﾙｼﾃﾝｼﾞｰ    ","    ","9","6543210","ｻﾝﾌﾟﾙﾖｳｽｹ                     ","0000065000","1","114       ","          "," "," ","       "
"2","1234","ｻﾝﾌﾟﾙｷﾞﾝｺｳｴｰ   ","100","ｻﾝﾌﾟﾙｼﾃﾝｴｰ     ","    ","9","1234567","ｻﾝﾌﾟﾙｱｲ                       ","0000070000","1","115       ","          "," "," ","       "
"2","5678","ｻﾝﾌﾟﾙｷﾞﾝｺｳﾋﾞｰ  ","200","ｻﾝﾌﾟﾙｼﾃﾝﾋﾞｰ    ","    ","9","7654321","ｻﾝﾌﾟﾙﾅﾅ                       ","0000075000","1","116       ","          "," "," ","       "
"2","9012","ｻﾝﾌﾟﾙｷﾞﾝｺｳｼｰ   ","300","ｻﾝﾌﾟﾙｼﾃﾝｼｰ     ","    ","9","9876543","ｻﾝﾌﾟﾙﾐｻ                       ","0000080000","1","117       ","          "," "," ","       "
"2","3456","ｻﾝﾌﾟﾙｷﾞﾝｺｳﾃﾞｲｰ ","400","ｻﾝﾌﾟﾙｼﾃﾝﾃﾞｲｰ   ","    ","9","2345678","ｻﾝﾌﾟﾙﾄﾓ                       ","0000085000","1","118       ","          "," "," ","       "
"2","7890","ｻﾝﾌﾟﾙｷﾞﾝｺｳｲｰ   ","500","ｻﾝﾌﾟﾙｼﾃﾝｲｰ     ","    ","9","8765432","ｻﾝﾌﾟﾙﾕｳｷ                      ","0000090000","1","119       ","          "," "," ","       "
"8","合計件数 ","合計金額 ","ダミー"
"8","000019","000000865000","                                                                                                     "
"9","空きエリア"
"9","                                                                                                                       "

最後に

　固定長はシーケンシャル媒体を利用しなくなった今でも根深く残っている形式なだけに、ASTERIA Warpなどの変換でいまだに出現する形式です。今回は最も単純な変換として全銀協のフォーマットで説明を行いました。次は伝票形式の固定長について扱ってみたいと思います。