データ構造の最適化

データ構造に TYPEDEF 句を使用して、プログラマー定義の型定義を作成します。この定義は、その後、他のデータ構造のために USAGE 句で参照できます。

いったん構造を定義し、それが適切に整列されていることを確認することで、プログラム全体が一貫して最適化されます。

01 grp-acc-block TYPEDEF.
   03 p-title  pointer.
   03 i-code   pic x(4) comp-5.
   03 ch-state pic x(3).
   03          pic x.       *> table padded so stride = multiple of 4

01 dest-grp       grp-acc-block.
01 curr-dest-grp  grp-acc-block.