ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.5.171 JMN3273I-S

報告書ファイル@1@は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.

埋め込みの説明

@1@ : 報告書ファイル名

例題

[C3273.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3273.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO S-SYS001.
000007     SELECT FILE-2  ASSIGN TO S-SYS002.
000008 DATA DIVISION.
000009 FILE SECTION.
000010 FD  FILE-1
000011     REPORT IS REC-1.
000012 SD  FILE-2.
000013    01 REC-2 PIC X(100).
000014 REPORT SECTION.
000015 RD  REC-1
000016     PAGE LIMIT IS 66 LINES
000017     HEADING 3
000018     FIRST DETAIL 10
000019     LAST  DETAIL 50.
000020    01 LINE NUMBER IS 5  TYPE IS RH.
000021     02 COLUMN NUMBER IS 10 PIC X(14) VALUE "*** HEADER ***".
000022 PROCEDURE  DIVISION.
000023     OPEN INPUT FILE-1.
000024     OPEN I-O   FILE-1.
000025     READ FILE-1.
000026     SORT FILE-2 ASCENDING KEY REC-2 USING FILE-1 GIVING FILE-1.
000027     STOP RUN.

C3273.cob 23: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.

C3273.cob 24: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.

C3273.cob 25: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.

C3273.cob 26: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.

C3273.cob 26: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.