例題
[P2236.cob] 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句は注釈とみなされます．
