埋め込みの説明
@1@ : VALUE,BLANK WHEN ZERO,JUSTIFIEDまたはGROUP INDICATE.
例題
[P2486.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2486. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD REPFILE 000010 REPORT IS REP1. 000011 WORKING-STORAGE SECTION. 000012 01 . 000013 02 WSO1 PIC X(10) OCCURS 10 000014 INDEXED BY WIX. 000015 REPORT SECTION. 000016 RD REP1 PAGE 66. 000017 01 TYPE DE LINE 12. 000018 02 VALUE SPACE. 000019 PROCEDURE DIVISION. 000020 END PROGRAM P2486.
P2486.cob 18: JMN2486I-S 報告書節中のVALUE句は,印字項目に指定しなければなりません.そのまま処理を続行します.
詳細な説明
報告集団記述項は,3つの階層で構成します.各階層では,記述可能な句が決められています.
もっとも下位の階層である3番目の階層(印字項目)の報告集団記述項で指定しなければならない句が別の階層の報告集団記述項で指定された場合に,この診断メッセージが出力されます.