例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2878.
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(10) BINARY.
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 P2878.
P2878.cob (8) : JMN2878I-S ホスト変数が2進項目の場合,'P'および'V'を含まない4または9けたの項目でなければなりません.
詳細な説明
ホスト変数(データ部の埋込みSQL宣言節のデータ記述項)として2進項目を宣言する場合,整数項目でなければなりません.