埋め込みの説明
@1@ : BLANK WHEN ZERO，JUSTIFIED，REDEFINES，SYNCHRONIZEDまたはOCCURS．
例題
[P2899.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2899. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000007 01 SQLSTATE PIC X(5). 000008 01 HVAR PIC X(10) JUSTIFIED. 000009 EXEC SQL END DECLARE SECTION END-EXEC. 000010 PROCEDURE DIVISION. 000011 EXEC SQL 000012 SELECT COL1 INTO :HVAR 000013 END-EXEC 000014 END PROGRAM P2899.
P2899.cob 8: JMN2899I-S JUSTIFIED句はホスト変数に指定してはいけません．
詳細な説明
ホスト変数に以下のいずれかの句を指定した場合に，この診断メッセージが出力されます．
BLANK WHEN ZERO
JUSTIFIED
REDEFINES
SYNCHRONIZED
OCCURS
この診断メッセージを出力するためのチェックの仕方は翻訳オプションSQLGRP/NOSQLGRPの状態によって異なります．
SQLGRP指定時(デフォルト):手続き部で参照したホスト変数のみチェックする．
NOSQLGRP指定時:ホスト変数宣言節内で定義したすべてのホスト変数をチェックする．
