データ構造に 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.