埋め込みの説明
@1@ : 49または77
例題
[P5146.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5146. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 BLOB TYPEDEF. 000006 02 RESEV PIC S9(9) BINARY. 000007 02 LENG PIC 9(9) BINARY. 000008 02 BUFF PIC X(1024). 000009 77 GRP1 TYPE BLOB. 000010 PROCEDURE DIVISION. 000011 STOP RUN. 000012 END PROGRAM P5146.
P5146.cob 9: JMN5146I-S 型を参照する項目に従属する項目のレベル番号が77を超えました．誤ったレベル番号を持つ項目を無視します．
詳細な説明
TYPE句を指定したデータ記述項では，型(TYPEDEF)のレコードの階層構造も引継ぎます．その結果，型付けされた項目のレベル番号が49を超えてしまうと，この診断メッセージが出力されます．
