例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1268.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WK-TBL.
000006 02 WK PIC X OCCURS 255
000007 DEPENDING ON LENGCNT OF.
000008 01 AREA1.
000009 02 LENGCNT PIC S9(4) BINARY.
000010 END PROGRAM C1268.
C1268.cob (7) : JMN1268I-S 連結語OFまたはINの後は，修飾語でなければなりません．OFまたはINは無効になります．