例題
[C1164.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1164. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 MULTIPLE TAPE MSGFILE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1164.
C1164.cob 8: JMN1164I-S MULTIPLE FILE TAPE句で，語FILEは省略できません．語FILEが指定されたものとみなします．
