1. 導入
メインフレームでの開発において、外部システムやユーザーから受け取るデータには、予期せぬノイズや形式不備が混入していることが珍しくありません。通常、現代の言語では正規表現を用いた複雑なバリデーションが必要ですが、PL/IやCOBOLといった伝統的な言語では、データ宣言（PICTURE属性）そのものが強力な「フィルタ」として機能します。本稿では、この「属性による自動形式化」の仕組みを解説します。
2. 基礎知識
PICTURE属性（PIC）は、変数の型だけでなく「データの構造」を定義するものです。例えば `PIC ‘99999’` と宣言すれば、その変数は「5桁の数字」という制約を背負うことになります。
重要なのは、この変数に値を代入した瞬間、メインフレームのランタイムが「数字以外の文字を排除する」「桁あふれを検知する」「足りない桁をゼロで埋める」といった処理を透過的に行う点です。これは現代のWeb開発で言うところの「サニタイザ（無害化処理）」を、言語仕様レベルで実装していることに他なりません。
3. 実装/解決策
外部から「数字混じりの文字列（Dirty Data）」を受け取った際、あえて固定長のPIC属性を持つ変数に代入を行います。この際、もし値が数値として解釈不可能な場合は、ランタイムが「変換エラー（CONVERSION CONDITION）」を発生させるため、不正なデータが後続の計算処理に紛れ込むのを未然に防ぐことができます。
4. サンプルプログラム
以下は、PL/Iを想定したデータクリーニングのサンプルです。
/ サンプル：外部入力データのクレンジング /
DCL DIRTY_INPUT CHAR(10) INIT(‘ 123A45 ‘); / 外部からの汚れ混じりデータ /
DCL CLEAN_DATA PIC ‘999999’; / 6桁の数字属性（フィルタ） /
ON CONVERSION BEGIN; / 数値変換に失敗した場合の例外処理 /
PUT SKIP LIST(‘警告：無効なデータが検出されました’);
GOTO ERROR_HANDLING;
END;
/ 属性代入により自動的に右寄せ・ゼロ埋め・数字チェックが行われる /
CLEAN_DATA = DIRTY_INPUT;
PUT SKIP LIST(‘変換結果: ‘ || CLEAN_DATA); / 結果は ‘000123’ となる /
ERROR_HANDLING:
/ エラー時のリカバリ処理をここに記述 /
5. 応用・注意点
この手法は強力ですが、モダン言語へ移行する際は細心の注意が必要です。
注意点1：例外の扱いに注意
メインフレームのランタイムは強力なエラーハンドリングを提供してくれますが、JavaやPythonへ移行する際、この「暗黙の挙動」を忘れがちです。移行先では必ず `try-catch` や `parseInt` を用いた明示的なバリデーションロジックに置き換える必要があります。
注意点2：数値の切り捨て
`PIC` で定義した桁数を超えたデータが代入された場合、上位桁が切り捨てられることがあります。データの重要度に応じて、代入前に `LENGTH` 関数で桁数をチェックするなどの事前ガードを入れるのが、現場でのバグ回避の定石です。
事務計算の現場では、こうした「言語の性格」を理解しておくことで、コード量を減らしつつ堅牢なシステムを構築することが可能です。ぜひ活用してみてください。
コメント