例題
[C3266.cob] 000001 @OPTIONS CONF(V10),CTLCHR(N) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3266. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT F1 ASSIGN S-SYS001. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD F1. 000011 01 R1 PIC X(80). 000012 WORKING-STORAGE SECTION. 000013 01 D1 PIC X(80) VALUE ALL "ABCDEFGHIJ". 000014 PROCEDURE DIVISION. 000015 OPEN OUTPUT F1. 000016 MOVE D1 TO R1. 000017 WRITE R1 AFTER ADVANCING 1 LINE. 000018 CLOSE F1. 000019* 000020 OPEN INPUT F1. 000021 READ F1. 000022 DISPLAY R1. 000023 CLOSE F1. 000024 STOP RUN.
C3266.cob 21: JMN3266I-I (CONF)READ文に制御文字付きファイルが指定されています．制御文字も一緒に読み込まれます．
