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

B.3 集団項目の使用例

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

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

  IDENTIFICATION DIVISION.
  PROGRAM-ID. COBTHD1.
  DATA DIVISION.
  WORKING-STORAGE SECTION.
      EXEC SQL BEGIN DECLARE SECTION END-EXEC.
  01 SQLSTATE PIC X(5).
  01 SQLMSG   PIC X(255).
  01 G1.
      02 HOST1   PIC S9(4) BINARY.
      02 HOST2   PIC N(10).
      02 HOST3   PIC S9(9) BINARY.
      02 HOST4   PIC S9(4) BINARY.
  01 G2.
      02 IND     PIC S9(4) BINARY OCCURS 4.
      EXEC SQL END   DECLARE SECTION END-EXEC.

  PROCEDURE DIVISION.
      INITIALIZE SQLSTATE.
      INITIALIZE SQLMSG.
      INITIALIZE G1.
      INITIALIZE G2.
 *
 *
 * CONNECT
      DISPLAY "CONNECT TO DEFAULT"
      EXEC SQL
              CONNECT TO DEFAULT
      END-EXEC.
 *
      EXEC SQL
          SELECT COL01, COL02, COL03, COL04
                  INTO :G1 :G2
              FROM SCH.TBL
              WHERE COL = 100
      END-EXEC.
 *
      DISPLAY "COL1=" HOST1.
      DISPLAY "IND= " IND(1).
      DISPLAY "COL2=" HOST2.
      DISPLAY "IND= " IND(2).
      DISPLAY "COL3=" HOST3.
      DISPLAY "IND= " IND(3).
      DISPLAY "COL4=" HOST4.
      DISPLAY "IND= " IND(4).
 *
 * DISCONNECT
      EXEC SQL
              DISCONNECT DEFAULT
      END-EXEC.
 *
      EXIT PROGRAM.