テーブルエントリのループ処理 (SAP ライブラリ

テーブルエントリのループ処理

LOOP 命令を使用して、任意の内部テーブルの特殊なループを処理することができます。

LOOP AT <itab> <result> <condition>.
<statement block>
ENDLOOP.

このプログラムでは、LOOP 命令の<result> 部の指定に従って、テーブルの行が 1 行ずつ読み込まれます。これによって、LOOP...ENDLOOP 制御構造内の命令で読み込まれた行を処理することができます。内部テーブルのすべてのエントリにループを実行するか、<condition> を指定して読み込む行の数を制限します。ループ内では制御レベル処理を行うことができます。

行が処理される順序は、以下のようにテーブルタイプによって異なります。

ｷ標準テーブルとソートテーブル

行はライナー索引に従って処理されます。処理ブロック内では、システム項目 SY-TABIX には現在の行の索引が格納されています。

ｷハッシュテーブル

テーブルがソートされていない限り、行はテーブルに追加された順序で処理されます。処理ブロック内では、システム項目SY-TABIX は常に 0 です。

LOOP ブロックをネストすることはできません。ループを終了すると、SY-TABIX はループを開始したときと同じ値になります。ENDLOOP 命令のあとは、テーブルエントリが 1 つでも処理された場合は、SY-SUBRC は 0 に設定されます。テーブルエントリが処理されなかった場合は、4 が設定されます。

ループには、テーブルを変更する内部テーブル全体に対する操作を含めることはできません。LOCAL 命令でグローバル内部テーブルをプロシージャに保存する操作も、テーブルの内容が交換されるので、テーブル全体に対する変更操作であることに注意してください。したがって、ループ内でプロシージャを呼び出すときは、そのプロシージャによって内部テーブル全体が変更されないかどうかをチェックしてください。テーブルを変更すると、ループは正しく機能することができなくなります。

ループパス内でテーブルエントリの挿入や削除を行うと、後続のループパスで以下のように考慮されます。

ｷ現在の行の後ろに行を挿入した場合、その行は後続のループパスで処理されます。

ｷ現在の行の後ろの行を削除した場合、その行は後続のループパスで処理されません。

ｷ現在の行の前または現在の行の位置に行を挿入した場合、それに応じて内部ループカウンタが増加します。

ｷ現在の行の後ろの行または現在の行を削除した場合、それに応じて内部ループカウンタが減少します。

補足処理オプションの指定

処理オプションで、一覧の命令ブロックでテーブル行を使用可能にする方法を指定します。

作業領域の使用

現在のループ行を作業領域に格納するには、以下のように <result> を指定します。

LOOP AT <itab> INTO <wa> <condition>.

テーブル行の内容は、作業領域 <wa> のデータ型に変換できなければなりません。ループパスごとにテーブル行が 1 行作業領域にコピーされます。ループが終了しても作業領域には影響しません。つまり、ENDLOOP 命令のあとの <wa> の内容は、最後のループパス時の<wa> の内容と同じです。テーブルがエントリであるか、条件<condition> を満たす行がないために、ループでテーブルエントリが処理されなかった場合は、作業領域は変更されません。

フィールドシンボルの使用

現在のループ行の内容をフィールドシンボルに割り当てるには、以下のように <result> を指定します。

LOOP AT <itab> ASSIGNING <FS> <conditions>.

各ループパスで、フィールドシンボル <FS> はそのループパスで読み込まれたテーブルエントリを指します。行データ型が構造化されている場合、フィールドシンボルを宣言するときに同じデータ型を指定してください。この操作によって、フィールドシンボルのコンポーネントをアドレス指定することができるようになります。データ型を静的に指定できない場合は、追加のフィールドシンボルと構造のコンポーネントの割り当ての手法を使用して構造のコンポーネントをアドレス指定してください。

ループが終了してもフィールドシンボルには影響しません。つまり、ENDLOOP 命令のあとも、最後のループパス時に割り当てられていた行に割り当てられています。テーブルがエントリであるか、条件<condition> を満たす行がないために、ループでテーブルエントリが処理されなかった場合は、フィールドシンボルは変更されません。

フィールドシンボルにテーブル行を割り当てる方法の追加情報については、フィールドシンボルを使用したアクセスを参照してください。

行の割り当ての抑止

現在のテーブル行の内容を、作業領域に転送する必要がない場合や、フィールドシンボルに割り当てる必要がない場合、以下の命令を使用することができます。

LOOP AT <itab> TRANSPORTING NO FIELDS <condition>.

この書式の LOOP 命令は、特定の内部テーブルの索引や特定の条件を満たすテーブル行の数を確認する場合に便利です。

条件の指定

内部テーブルのすべての行が読み込まれないようにするには、以下のように行選択の条件を指定します。

LOOP AT <itab> <result> WHERE <cond>.

この命令によって、論理条件 <cond> を満たすすべての行が処理されます。論理条件は、複数の比較で構成することができます。各比較では、最初のオペランドが行構造のコンポーネントでなければなりません。テーブルの行が構造化されていない場合、最初のオペランドを TABLE LINE 式にすることもできます。このようにすると、比較が行全体に適用されます。

制御レベル処理

LOOP 内で、内部テーブルに対する制御レベル処理を行うことができます。つまり、特定の項目の内容にもとづいて、一連のエントリをグループに分けることができます。

内部テーブルは、行構造内の項目の順序に従ってグループに分けられます。つまり、最初の列が最上位の制御レベルを表すといったようになります。内部テーブルを作成するときに制御レベルの階層がわかっていなければなりません。

制御レベルは、内部テーブルをテーブル構造の順序でソートする ( つまり、まず 1 番目の項目でソートし、次に2 番目の項目でソートし、以下同様にソートする) ことによって形成されます。先頭にテーブルキーがあるテーブルは、制御レベル処理に特に適しています。

以下の図は、ソートテーブルでの制御レベル処理を示しています。最初の 3 つの項目のそれぞれの項目内容が別々の色で示されています。

このグラフィックは添付のテキストに説明されています

列内の色の変化は、対応する階層レベルでの制御レベルの変化を示しています。ループの処理ブロック内で、制御レベル命令 AT を使用して制御レベルの変化に対応することができます。これを使用すると、命令を特定の行セットのみに適用するように指定することができます。したがって、SUM 命令を使用してすべての行のサブセットから合計を計算することができます。

AT 命令によって、ENDAT 命令で終了する命令ブロックが開始されます。

AT <level>.
<statement block>
ENDAT.

以下の制御レベルの変化に対応することができます。

<level>	意味
FIRST	内部テーブルの最初の行
LAST	内部テーブルの最後の行
NEW <f>	項目 <f> および <f> の左側の各項目にある同じ内容を持つ行のグループの最初の行
END Of <f>	項目 <f> および <f> の左側の各項目にある同じ内容を持つ行のグループの最後の行

論理式を使用して自分で制御ブレークをプログラミングする代わりに、制御レベル命令を使用して内部テーブルの制御ブレークに対応することができます。ループ内では、制御レベルの階層に従って AT-ENDAT 命令ブロックを配列する必要があります。内部テーブルに列 <f₁> 、<f₂> 、.... があり、これらの列によってその内部テーブルがソートされる場合は、以下のようにループをプログラミングします。

LOOP AT <itab>.
   AT FIRST.... ENDAT.
     AT NEW <f1>....... ENDAT.
       AT NEW <f₂ >....... ENDAT.
        .......
           <single line processing>
        .......
       AT END OF <f2>.... ENDAT.
     AT END OF <f1>.... ENDAT.
   AT LAST..... ENDAT.
ENDLOOP.

最も深い階層レベル <single line processing> では、制御レベルの変化と対応しないテーブル行が処理されます。すべての制御レベル命令を使用する必要はありません。しかし、上記のシーケンスで使用されている命令は必ず使用してください。WHERE または、FROM および TO で行選択が制限されているループでは、制御レベル命令を使用しないでください。また、ループ中にテーブルを変更しないでください。

制御レベル項目 <f_i> が実行時までわからない場合は、<n_i> に項目 <f_i> を指定して (<n_i>) として動的に指定することができます。実行時に <n_i> が空である場合は、制御レベルの変更の基準は無視されます。オフセットと長さを指定して、検索を一部の項目に制限することができます。

作業領域 <wa> を使用する場合、AT...ENDAT 命令ブロックでは、作業領域に現在の行は格納されません。現在のグループキーの右側にあるすべての文字項目にはアスタリスク (*) が書き込まれます。現在のグループキーの右側にあるそのほかの項目には初期値が書き込まれます。

AT...ENDAT ブロック内では、SUM 命令を使用して、対応する制御レベルの数値項目の内容を計算することができます。

SUM.

この命令は、LOOP 内でのみ使用することができます。AT - ENDAT ブロック内で SUM を使用すると、現在の行グループのすべての行の数値項目の合計が計算され、作業領域の対応する項目にそれらの合計が書き込まれます ( 例を参照) 。AT - ENDAT ブロックの外で SUM 命令を使用する( 個別エントリ処理) と、各ループパスで内部テーブルのすべての行の数値項目の合計が計算され、作業領域の対応する項目にそれらの合計が書き込まれます。したがって、SUM 命令は AT...ENDAT ブロック内でのみ使用することをお奨めします。

テーブルにネストされたテーブルが含まれている場合は、SUM 命令を使用することはできません。LOOP 命令で作業領域ではなくフィールドシンボルを使用している場合も SUM 命令を使用することはできません。

例

DATA: BEGIN OF LINE,
         COL1 TYPE C,
         COL2 TYPE I,
         COL3 TYPE I,
      END OF LINE.

DATA ITAB LIKE HASHED TABLE OF LINE
WITH UNIQUE KEY COL1 COL2.

LINE-COL1 = 'A'.
DO 3 TIMES.
   LINE-COL2 = SY-INDEX.
   LINE-COL3 = SY-INDEX ** 2.
  INSERT LINE INTO TABLE ITAB.
ENDDO.

LINE-COL1 = 'B'.
DO 3 TIMES.
   LINE-COL2 = 2 * SY-INDEX.
   LINE-COL3 = ( 2 * SY-INDEX ) ** 2.
  INSERT LINE INTO TABLE ITAB.
ENDDO.

SORT ITAB.

LOOP AT ITAB INTO LINE.
   WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.
   AT END OF COL1.
     SUM.
     ULINE.
     WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.
     SKIP.
   ENDAT.
   AT LAST.
     SUM.
     ULINE.
     WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.
   ENDAT.
ENDLOOP.

出力は以下のようになります。

A 1 1

A 2 4

A 3 9
________________________________

A 6 14

B 2 4

B 4 16

B 6 36
________________________________

B 12 56

________________________________

* 18 70

このプログラムでは、ハッシュテーブル ITAB が作成され、テーブルに 6 行が書き込まれ、ソートされます。LOOP - ENDLOOP ブロックでは、各ループパスで作業領域 LINE が出力されます。テーブルキーの最初の項目である COL1 は、制御レベル処理に使用されます。COL1 の内容が変化したときと最後のループパスの実行中に、すべての数値項目の合計が必ず計算されます。

DATA: BEGIN OF LINE,
        CARRID   TYPE SBOOK-CARRID,
        CONNID   TYPE SBOOK-CONNID,
        FLDATE   TYPE SBOOK-FLDATE,
        CUSTTYPE TYPE SBOOK-CUSTTYPE,
        CLASS    TYPE SBOOK-CLASS,
        BOOKID   TYPE SBOOK-BOOKID,
      END OF LINE.

DATA ITAB LIKE SORTED TABLE OF LINE WITH UNIQUE KEY TABLE LINE.

SELECT CARRID CONNID FLDATE CUSTTYPE CLASS BOOKID
FROM SBOOK INTO CORRESPONDING FIELDS OF TABLE ITAB.

LOOP AT ITAB INTO LINE.

   AT FIRST.
     WRITE / 'List of Bookings'.
     ULINE.
   ENDAT.

     AT NEW CARRID.
       WRITE: / 'Carrid:', LINE-CARRID.
     ENDAT.

       AT NEW CONNID.
         WRITE: / 'Connid:', LINE-CONNID.
       ENDAT.

         AT NEW FLDATE.
           WRITE: / 'Fldate:', LINE-FLDATE.
         ENDAT.

           AT NEW CUSTTYPE.
             WRITE: / 'Custtype:', LINE-CUSTTYPE.
           ENDAT.

WRITE: / LINE-BOOKID, LINE-CLASS.

             AT END OF CLASS.
              ULINE.
             ENDAT.

ENDLOOP.

この例では、オープン SQL 文 SELECT を使用して、ソート内部テーブル ITAB にデータベーステーブル SBOOK のデータが書き込まれます。制御レベル階層は内部テーブル内の列の順番により決定されます。テーブルキーは行全体なので、ソート順序と制御レベル階層は同じです。LOOP 命令と ENDLOOP 命令の間の AT-ENDAT ブロックの順序は重要です。

出力は以下のようになります。

List of Bookings
Carrid: AA
Connid: 0017
Fldate: 1998/11/22
Custtype: B
00063509 C
00063517 C
...
______________________________________________
00063532 F
00063535 F
...
______________________________________________
Custtype: P
00063653 C
00063654 C
...
______________________________________________
00063668 F
00063670 F
...
______________________________________________
Fldate: 1998/29/11
Custtype: B
00064120 C
00064121 C
...

など。