データ圧縮では、順編成ファイルまたは索引付きファイルのデータを圧縮することができます。この COBOL システムでは 2 つの圧縮機構があります。ランレングス エンコーデング (タイプ 1) と拡張ランレングス エンコーデング (タイプ 3) です。
ファイルをランレングス エンコーデングで定義すると、繰り返される任意の文字列は 1 文字として格納されます。
データ圧縮は、DATACOMPRESS コンパイラ指令を使用して有効にします。
固定長構造の順編成ファイルにデータ圧縮を指定すると、可変長構造の順編成ファイルに変換されます。
ファイルのデータ圧縮は、そのファイルに対する SELECT 文の処理時に最後に処理された DATACOMPRESS 指令で決定されます。そのため、次のような形式の行を記述することで、データ圧縮タイプを個々のファイルについて指定できます。
$SET DATACOMPRESS
これは、SELECT 文の直前に記述します。別のファイルを処理する前に $SET NODATACOMPRESS で圧縮を解除することを忘れないでください。
DATACOMPRESS コンパイラ指令の詳細は、「DATACOMPRESS」のトピックを参照してください。