インジケーター配列

インジケーター変数がホスト変数に対するコンパニオンとして使用されるのと同様に、ホスト配列に対するコンパニオンとしてインジケーター配列を使用して、返された行ごとの NULL ステータスを示すか、データの切り捨ての警告フラグを格納します。

注: COBSQL は、Oracle データベースでのみインジケーター配列をサポートします。

例

この例では、インジケーター配列を -1 に設定して、列に NULL 値を挿入します。

 01 ix                       PIC 99 COMP-5.
   . . .
 EXEC SQL
     BEGIN DECLARE SECTION
 END-EXEC
 01 sales-id       OCCURS 25 TIMES PIC X(12).
 01 sales-name     OCCURS 25 TIMES PIC X(40).
 01 sales-comm     OCCURS 25 TIMES PIC S9(9) COMP-5.
 01 ind-comm       OCCURS 25 TIMES PIC S9(4) COMP-5.
 EXEC SQL
     END DECLARE SECTION
 END-EXEC.
  . . .
     PERFORM VARYING iX FROM 1 BY 1 UNTIL ix > 25
         MOVE -1 TO ind-comm (ix)
     END-PERFORM.
      . . .
     EXEC SQL
         INSERT INTO SALES (ID, NAME, COMM)
           VALUES (:sales_id, :sales_name, :sales_comm:ind-comm)
     END-EXEC