引数の説明
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宣言節に記述できません.