例題
[C1195.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1195. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN GS-DISP 000007 SYMBOLIC DESTINATION IS "DSP" 000008 ACCESS MODE IS RANDOM 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-F. 000013 01 IN-R PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 END PROGRAM C1195.
C1195.cob 8: JMN1195I-S 表示ファイルの場合，ACCESS MODE句にはSEQUENTIALを指定しなければなりません．SEQUENTIALが指定されたものとみなします．
