数と合計の計算 

ソートされた 抽出データセットを LOOP で読み込むと、自動生成された 2 つの項目CNT(<f>) と SUM(<g>) にアクセスすることができます。これらの項目には、異なる値の数と数値項目の合計値がそれぞれ表示されます。これらの項目は、制御レベルの最後およびデータセットの最終レコードの読込後に、次のように書き込まれます。

ｷ        CNT(<f>)

<f> が HEADER 項目グループの非数値項目で、抽出データセットが <f> によってソートされた場合、CNT(<f>) には、制御レベル内または全データセット内でそれぞれ想定される、異なる値 <f> の数が格納されます。

ｷ        SUM(<g>)

<g> が抽出データセットの数値項目である場合、SUM (<g>) には、制御レベル内または全データセット内の <g> の値の合計がそれぞれ格納されます。

これらの項目は、全データセットの読込後に、AT END OF の次の処理ブロック内またはAT LAST の次の処理ブロック内からアクセスすることができます。データセットを最初にソートしないで項目CNT(<f>) と SUM(<g>) にアクセスしようとすると、実行時エラーが発生する場合があります。

 

REPORT DEMO.

DATA: T1(4), T2 TYPE I.

FIELD-GROUPS: HEADER, TEST.

INSERT T2 T1 INTO HEADER.

T1 ='AABB'.T2 = 1. EXTRACT TEST.
T1 ='BBCC'.T2 = 2. EXTRACT TEST.
T1 ='AAAA'.T2 = 2. EXTRACT TEST.
T1 ='AABB'.T2 = 1. EXTRACT TEST.
T1 ='BBBB'.T2 = 2. EXTRACT TEST.
T1 ='BBCC'.T2 = 2. EXTRACT TEST.
T1 ='AAAA'.T2 = 1. EXTRACT TEST.
T1 ='BBBB'.T2 = 1. EXTRACT TEST.
T1 ='AAAA'.T2 = 3. EXTRACT TEST.
T1 ='AABB'.T2 = 1. EXTRACT TEST.

SORT BY T1 T2.

LOOP.

   WRITE: /20 T1, T2.

   AT END OF T2.
     ULINE.
     WRITE: 'Sum:', 20 SUM(T2).
     ULINE.
   ENDAT.

   AT END OF T1.
     WRITE: 'Different values:', (6) CNT(T1).
   ULINE.
   ENDAT.

   AT LAST.
  ULINE.
    WRITE: 'Sum:', 20 SUM(T2),
      / 'Different values:', (6) CNT(T1).
   ENDAT.

ENDLOOP.

このプログラムでは、HEADER 項目グループの項目だけを含むサンプル抽出が作成されます。ソート後、それぞれの制御レベルの最後とループの最後で、データセットの内容、異なる T1 項目の数、および T2 項目の合計が出力されます。