例題
[P2001.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2001. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS SEQUENTIAL 000008 FILE STATUS IS WFS1. 000009 I-O-CONTROL. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD SQFILE1. 000013 WORKING-STORAGE SECTION. 000014 01 WFS1 PIC X(2). 000015 PROCEDURE DIVISION. 000016 END PROGRAM P2001.
P2001.cob 12: JMN2001I-S ファイル記述項または整列併合用ファイル記述項には,レコード記述項が従属しなければなりません.ファイル記述項または整列併合用ファイル記述項は,無効になります.
詳細な説明
この診断メッセージが出力されるのは,ファイル記述項(FD記述項)に続いて,レコード記述項が指定されていないことが原因です.
レコード記述項はレコードの構造を指定するための一連のデータ記述項です.