例題
[C1166.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1166. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 MULTIPLE FILE TAPE MSGFILE POSITION CNT. 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 WORKING-STORAGE SECTION. 000016 01 CNT PIC S9(4) BINARY. 000017 END PROGRAM C1166.
C1166.cob 8: JMN1166I-S MULTIPLE FILE TAPE句中のPOSITIONには整数を指定しなければなりません．
