引数の説明
USAGE BINARY-CHAR,USAGE BINARY-SHORT,USAGE BINARY-LONG,USAGE BINARY-DOUBLEまたはUSAGE OBJECT REFERENCE. |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5253. 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 DATA1 USAGE BINARY-LONG. 000009 EXEC SQL END DECLARE SECTION END-EXEC. 000010 PROCEDURE DIVISION. 000011 EXEC SQL 000012 SELECT * INTO :DATA1 000013 END-EXEC 000014 END PROGRAM P5253.
C5253.cob (8) : JMN5253I-S USAGE BINARY-LONG句は,埋込みSQL宣言節に記述できません.