例題
[C1377.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1377. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1. 000006 02 NAMEINF PIC 1(8). 000007 02 NAMELG PIC S9(4) BINARY. 000008 02 NAMESP PIC X(30). 000009 66 NAME-FIX RENAMES NAMEINF THRU NAMELG. 000010 02 WORK2 PIC 9. 000011 END PROGRAM C1377.
C1377.cob 10: JMN1377I-S 02-49レベル項目は，66レベル項目の直後に記述できません．01レベル項目とみなします．
