引数の説明
SQL. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2753.
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 77 HVAR1 PIC S9(9) BINARY.
000009 EXEC SQL END DECLARE SECTION END-EXEC.
000010 PROCEDURE DIVISION.
000011 EXEC SQL
000012 SELECT CL1 INTO :HVAR1 FROM TBL
000013 STOP RUN.
P2753.cob (11) : JMN2753I-S 埋込みSQL文は'END-EXEC'で終らなければなりません.'EXEC SQL'に続く埋込みSQL文は,すべて無効になります.
詳細な説明
埋込みSQL文は,SQL先頭子("EXEC SQL")とSQL終了子("END-EXEC")で囲んで記述しなければなりません.