例題
[P2002.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2002. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD REPFILE REPORT REP1. 000011 01 REPREC PIC X(80). 000012 REPORT SECTION. 000013 RD REP1. 000014 01 TYPE DE LINE PLUS 1. 000015 02 COLUMN 1 PIC X(10) VALUE SPACE. 000016 PROCEDURE DIVISION. 000017 END PROGRAM P2002.
P2002.cob 10: JMN2002I-S REPORT句を持つファイル記述項に対して,レコード記述項は指定できません.次のファイル記述項または整列併合用ファイル記述項までのレコード記述項は無効になります.
詳細な説明
この診断メッセージが出力されるのは,報告書ファイルのファイル記述項(FD記述項)に続いて,レコード記述項が指定されていることが原因です.REPORT句を指定したファイルは報告書ファイルとなります.