NetCOBOL V11.0 メッセージ集

2.3.100 JMN1158I-W

SAME句にはファイル名を二つ以上指定しなければなりません． そのまま受け入れます．

例題

[C1158.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1158.
000003 ENVIRONMENT     DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE1 ASSIGN TO F1.
000007     SELECT FILE2 ASSIGN TO F2.
000008 I-O-CONTROL.
000009     SAME FILE1.
000010 DATA            DIVISION.
000011 FILE            SECTION.
000012 FD FILE1.
000013 01 REC1.
000014   02 RECNO1     PIC S9(8) BINARY.
000015 FD FILE2.
000016 01 REC2.
000017   02 RECNO2     PIC S9(8) BINARY.
000018 END PROGRAM C1158.

C1158.cob 9: JMN1158I-W SAME句にはファイル名を二つ以上指定しなければなりません．そのまま受け入れます．