IBM Extension
IBM Extension
コーディング例
ILE COBOL コンパイラーでは、同じレベルの他のものと同じでない非標準レベル番号を使えます。
例えば、次の 2 つのデータ記述記入項目は同じです。
01 EMPLOYEE-RECORD.
05 EMPLOYEE-NAME.
10 FIRST PICTURE X(10).
10 LAST PICTURE X(10).
05 EMPLOYEE-ADDRESS.
10 STREET PICTURE X(10).
10 CITY PICTURE X(10).
01 EMPLOYEE-RECORD.
05 EMPLOYEE-NAME.
10 FIRST PICTURE X(10).
10 LAST PICTURE X(10).
04 EMPLOYEE-ADDRESS.
08 STREET PICTURE X(10).
08 CITY PICTURE X(10).
04 は 05 より小さいため、EMPLOYEE-NAME の下になりませんが、他方 01 より大きいため、EMPLOYEE-RECORD の下になります。 04 の代わりに 07 を使うと、EMPLOYEE-ADDRESS は EMPLOYEE-NAME の下になります (これは、この例では望ましくありません)。
このようなコーディングは推奨されません。 また、この拡張機能は互換性のためだけに提供されています。
End of IBM Extension