例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2236.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD SQFILE1
000010 BLOCK CONTAINS 10.
000011 01 SQF1REC.
000012 02 PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE DIVISION.
000015 WRITE SQF1REC
000016 AT END-OF-PAGE
000017 DISPLAY "P2236"
000018 END-WRITE
000019 END PROGRAM P2236.
P2236.cob (9) : JMN2236I-S BLOCK CONTAINS句は，AT END-OF-PAGE指定のWRITE文で参照されるファイルに指定できません．
詳細な説明
このコンパイラでは，BLOCK CONTAINS句は注釈とみなされます．