例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2952.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF PIC X(20).
000007 01 WOFST PIC 9(2).
000008 SCREEN SECTION.
000009 01 WSC1 PIC X(2) FROM WBUF((WOFST + 1 : 1) TO WBUF.
000010 PROCEDURE DIVISION.
000011 END PROGRAM P2952.
P2952.cob (9) : JMN2952I-S 左括弧に対応する右括弧が指定されていません.次の認識できる句,段落,節または部まで無効になります.