例題
[P2556.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2556. 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 01 SQF1REC. 000011 02 PIC X(80). 000012 WORKING-STORAGE SECTION. 000013 01 WFS1 PIC X(2). 000014 PROCEDURE DIVISION. 000015 E-PROC SECTION. USE AFTER ERROR PROCEDURE ON SQFILE1. 000016 DISPLAY "OK". 000017 END PROGRAM P2556.
P2556.cob 15: JMN2556I-S USE文は，宣言部分以外に指定できません．
詳細な説明
宣言部分とは，DECLARATIVESで始まり，END DECLARATIVESで終わる，手続き部内の記述です．
