例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1187.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SORTFILE ASSIGN TO S-FILE.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 SD 1234.
000010 01 SORTREC PIC X(80).
000011 END PROGRAM C1187.
C1187.cob (9) : JMN1187I-S レベル指示語SDの直後は,ファイル名でなければなりません.この記述項は無効にし,次の部,節,レベル指示語,またはレベル番号まで読み飛ばします.