2024-10-10
ホストのファイル処理でLOW-VALUE,HIGH-VALUEの話が出て混乱する人が出てたので、自分用にもメモを作る

ゾーン形式(Zone),パックドデシマル形式(Packed Decimal)をざっくりいうと

• ゾーン形式は数値の1桁を1バイトで表す
• パックドデシマル形式は数値の桁を 数字2桁もしくは数字1桁+符号情報 で区切り1バイトで表す
• どちらの形式も、0x00で埋めたものがLOW-VALUE、0xFFで埋めたものがHIGH-VALUE
• メインフレーム（ホスト）のCOBOL等で生成する数値の形式

COBOLで言う PIC X(n).

LOW-VALUE, HIGH-VALUEを設定した場合

COBOLで言う PIC S9(n).
符号が無ければ PIC 9(n). も同じです。
数字1桁が1バイトに対応し、負の数でなければ数字の文字コードそのままに格納されます。
負の数の場合は一番下の桁のバイトに有符号を意味する文字に置換えされます。EBCDICだと見た目上位4ビットが変換されていてわかりやすいですが、ASCIIの場合はEBCDICの文字に対応したASCIIの文字を割り当てるため分かり辛くなります。

ASCII(2)のパターンはOracleのバルクローダーやGnuCOBOLで使用されていたパターンです。
→VAXスタイルというべきか。参考：https://archive.org/details/bitsavers_decvaxarchrenceManualRev5Feb79_23629245/page/n33/mode/2up?q=Zoned

DEC の概要
設立：1957 年（米国マサチューセッツ州メイナード）
創業者：ケン・オルセン、ハーラン・アンダーソン
主力製品：PDP シリーズ、VAX シリーズ、Alpha、DECnet、VT100、StrongARM
最盛期の従業員数：14 万人以上（1987 年）
買収：1998 年に Compaq が買収 → 2002 年に HP が Compaq を吸収
 
Alpha → HP Integrity / Itanium へ影響
StrongARM → ARM アーキテクチャの発展に寄与
VMS → 現在も OpenVMS として稼働
 
引用:Wikipedia？（Copilotの説明）

定義例

ホストの環境によっては

• 符号が一番上の桁のバイトに割り当てられる
• 正の数を意味する符号が割り当てられる

場合もあります。
ゼロも表現が様々あるので、サンプル出力するなどして確認が必要です。

COBOLで言う PIC S9(n) COMP-3.
数字2桁、最後のバイトは数字1桁+符号情報1桁、を1バイトで表現します。桁数+符号情報が偶数にならない場合は先頭桁にゼロの桁を追加します。
なので、PIC S9(5) COMP-3.とPIC S9(4) COMP-3.は同じバイト形状になります。

定義例

Zone形式と同様にPacked Decimalでも符号情報が先頭に付く場合やゼロの符号の話などもあると思うので、サンプル出力するなどして確認が必要です。