Symfoware Server アプリケーション開発ガイド(埋込みSQL編) - FUJITSU -

B.3 集団項目の使用例

集団項目ホスト変数を使用したサンプルプログラムを以下に示します。

集団項目ホスト変数の詳細については、“集団項目ホスト変数の記述方法”を参照してください。

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. COBTHD1.
000030 DATA DIVISION.
000040 WORKING-STORAGE SECTION.
000050     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000060 01 SQLSTATE PIC X(5).
000070 01 SQLMSG   PIC X(255).
000080 01 G1.
000090     02 HOST1   PIC S9(4) BINARY.
000100     02 HOST2   PIC N(10).
000110     02 HOST3   PIC S9(9) BINARY.
000120     02 HOST4   PIC S9(4) BINARY.
000130 01 G2.
000140     02 IND     PIC S9(4) BINARY OCCURS 4.
000150     EXEC SQL END   DECLARE SECTION END-EXEC.
000160
000170 PROCEDURE DIVISION.
000180     INITIALIZE SQLSTATE.
000190     INITIALIZE SQLMSG.
000200     INITIALIZE G1.
000210     INITIALIZE G2.
000220*
000230*
000240* CONNECT
000250     DISPLAY "CONNECT TO DEFAULT"
000260     EXEC SQL
000270             CONNECT TO DEFAULT
000280     END-EXEC.
000290*
000300     EXEC SQL
000310         SELECT COL01, COL02, COL03, COL04
000320                 INTO :G1 :G2
000330             FROM SCH.TBL
000340             WHERE COL = 100
000350     END-EXEC.
000360*
000370     DISPLAY "COL1=" HOST1.
000380     DISPLAY "IND= " IND(1).
000390     DISPLAY "COL2=" HOST2.
000400     DISPLAY "IND= " IND(2).
000410     DISPLAY "COL3=" HOST3.
000420     DISPLAY "IND= " IND(3).
000430     DISPLAY "COL4=" HOST4.
000440     DISPLAY "IND= " IND(4).
000450*
000460* DISCONNECT
000470     EXEC SQL
000480             DISCONNECT DEFAULT
000490     END-EXEC.
000500*
000510     EXIT PROGRAM.