例題
[P2881.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2881. 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 HVR1 PIC S9(5)P PACKED-DECIMAL. 000009 EXEC SQL END DECLARE SECTION END-EXEC. 000010 PROCEDURE DIVISION. 000011 EXEC SQL 000012 SELECT COL2 INTO :HVR1 000013 FROM T1 WHERE COL1 = 0 000014 END-EXEC 000015 END PROGRAM P2881.
P2881.cob 8: JMN2881I-S ホスト変数が内部10進項目の場合，'P'を含まない項目でなければなりません．
詳細な説明
ホスト変数(データ部の埋込みSQL宣言節のデータ記述項)として内部10進項目を宣言する場合，そのPICTURE文字列は'P'(想定した位取りを示す文字)を含んではなりません．想定小数点(PICTURE文字の'V')は含めることができます．
