Использование конструкции At First <> ... At End Of &l

_higher_

Есть внутрення таблица с полями:
-class
-bname

В алгоритме программы необходимо реализовать группировку как по полю class, так и по полю bname.

На ск. я понял группировочное поле должно быть обязательно 1 ым в структуре вн. табл. - в исходном случае группировать могу только по полю class...
Чтобы группировать по следующему полю - bname, нужно уже объявлять ещё одну вн. табл. со структурой:
-bname
-class

Ну очень не удобно.
Есть какие то альтернативы?

Спасибо.

Pchelka

_higher_ написал(а):

На ск. я понял группировочное поле должно быть обязательно 1 ым в структуре вн. табл. - в исходном случае группировать могу только по полю class...

Не верно.

_higher_ написал(а):

Чтобы группировать по следующему полю - bname, нужно уже объявлять ещё одну вн. табл. со структурой:
-bname
-class

Все проще. Второй таблицы не надо: сортируешь и ставишь два AT.
Вот стандартный пример:

Code:

DATA: t1(4) TYPE c, t2 TYPE i.

FIELD-GROUPS: header.

INSERT t2 t1 INTO header.

t1 ='AABB'. t2 = 1. EXTRACT header.
t1 ='BBCC'. t2 = 2. EXTRACT header.
t1 ='AAAA'. t2 = 2. EXTRACT header.
t1 ='AABB'. t2 = 1. EXTRACT header.
t1 ='BBBB'. t2 = 2. EXTRACT header.
t1 ='BBCC'. t2 = 2. EXTRACT header.
t1 ='AAAA'. t2 = 1. EXTRACT header.
t1 ='BBBB'. t2 = 1. EXTRACT header.
t1 ='AAAA'. t2 = 3. EXTRACT header.
t1 ='AABB'. t2 = 1. EXTRACT header.

SORT BY t1 t2.

LOOP.

  AT NEW t1.
    WRITE / '   New T1:'.
  ENDAT.

  AT NEW t2.
    WRITE / '   New T2:'.
  ENDAT.

  WRITE: /14 t1, t2.

  AT END OF t2.
    WRITE / 'End of T2'.
  ENDAT.

  AT END OF t1.
    WRITE / 'End of T1'.
  ENDAT.

ENDLOOP.

_higher_

спасибо, завтра испробуем

OlegDm

Тоже скажу, что необязательно. Нужно не забывать как работает конструкция at new F. Это событие будет отрабатывать при каждом изменении любого из полей, находящегося левее поля F во внутр.таблице. Т.е. если имеем таблицу itab с полями t1, t2 и соответственно отсортированную по этим полям t1-t2 - at new t2 будет работать при каждом изменении любого из полей t1-t2:

Code:

data: begin of itab occurs 0,
         t1(4) type c,
         t2 type i,
      end of itab.

end-of-selection.

perform append_itab using: 'AABB' 1,
                     'BBCC' 2,
                     'AAAA' 2,
                     'AABB' 1,
                     'BBBB' 2,
                     'BBCC' 2,
                     'AAAA' 1,
                     'BBBB' 1,
                     'AAAA' 3,
                     'AABB' 1.

SORT itab BY t1 t2.

LOOP at itab.

  AT NEW t2.
    WRITE: / 'T1 =', itab-T1, 'T2 =', itab-t2.
  ENDAT.

ENDLOOP.


form append_itab using t1 like itab-t1
                       t2 type i.
  clear itab.
  move: t1 to itab-t1,
        t2 to itab-t2.
  append itab.
endform.

Правила форума

Использование конструкции At First <> ... At End Of &l

Кто сейчас на конференции