インジケーター変数がホスト変数に対するコンパニオンとして使用されるのと同様に、ホスト配列に対するコンパニオンとしてインジケーター配列を使用して、返された行ごとの 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