例題
[C1819.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1819. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. "MNAAB". 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 PROCEDURE DIVISION. 000009 STOP RUN. 000010 END PROGRAM C1819.
[MNAAB.cbl] 000011 FCOM MNAAS001RC01 000012 01 FCOM. 000013 02 FILLER PIC X(16). 000014 02 VDBNAME PIC X(8). 000015 02 RDNAME PIC X(12). 000016 02 MCRCD PIC S9(4) COMP. 000017 02 MCRCTL PIC S9(4) COMP. 000018 02 FILLER PIC S9(9) COMP. 000019 02 SETCNT PIC S9(4) COMP. 000020 02 FILLER PIC S9(4) COMP. 000021 01 MNAAS001RC01. 000022 02 MNAAS001EN01. 000023 03 CAFUSID PIC X(8). 000024 02 FILLER1 PIC X(42).
C1819.cob 5: JMN1819I-S サブスキーマ名段落に指定されたサブスキーマ定義ファイルに誤りがあります.サブスキーマ名段落は無効になります.
詳細な説明
サブスキーマ定義ファイルに誤りがあります.主な原因として以下の3点が考えられます.
レコード本体がない.
レコード名一覧部の最終レコードを示す"*"がない.またはレコード名一覧部がない.
ファイルが空である.