例題
[C3128.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3128. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1 PIC X(80). 000011 WORKING-STORAGE SECTION. 000012 01 CNTL-DATA PIC X(36). 000013 PROCEDURE DIVISION. 000014 WRITE REC-1 CONTROL AREA IS CNTL-DATA. 000015 STOP RUN.
C3128.cob 14: JMN3128I-S CONTROL AREA句は，通信ファイル以外に指定できません．
