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
End of IBM Extension