例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2000.
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 REPORT SECTION.
000012 RD REP1.
000013 PROCEDURE DIVISION.
000014 END PROGRAM P2000.
P2000.cob (12) : JMN2000I-S 報告書記述項には,報告集団記述項が従属しなければなりません.報告書記述項は,無効になります.
詳細な説明
この診断メッセージが出力されるのは,報告書記述項(RD記述項)に続いて,報告書集団記述項が指定されていないことが原因です.
報告書集団記述項は,レベル01とTYPE句を持つデータ記述項で始まる一連のデータ記述項です.