REPORT z17_15.

TYPES BEGIN OF : t_itab.
INCLUDE STRUCTURE zemplist.
TYPES :   count TYPE p LENGTH 3. " 자격증 개수 필드 추가
TYPES : END OF t_itab.

DATA : gt_itab TYPE TABLE OF t_itab.

DATA gr_table TYPE REF TO cl_salv_table.
DATA gr_sorts   TYPE REF TO cl_salv_sorts.
DATA gr_columns TYPE REF TO cl_salv_columns_table.
DATA gr_column  TYPE REF TO cl_salv_column_table.
DATA gr_agg     TYPE REF TO cl_salv_aggregations.

SELECT a~empcd, a~depcd, a~pstion, a~ename, a~email, a~tel, b~empcd,
       COUNT( b~certid ) AS count
  FROM zemplist AS a
  LEFT OUTER JOIN zempcert AS b ON b~empcd EQ a~empcd
  GROUP BY a~empcd, a~depcd, a~pstion, a~ename, a~email, a~tel, b~empcd
  INTO CORRESPONDING FIELDS OF TABLE @gt_itab.

cl_salv_table=>factory(
  IMPORTING
    r_salv_table = gr_table
  CHANGING
    t_table      = gt_itab[] ).

gr_columns = gr_table->get_columns( ).
gr_column ?= gr_columns->get_column( 'COUNT' ).
gr_column->set_short_text( '자격증 개수' ).

gr_sorts = gr_table->get_sorts( ).
gr_sorts->add_sort( columnname = 'DEPCD' subtotal = 'X' ).
gr_agg = gr_table->get_aggregations( ).
gr_agg->add_aggregation( 'COUNT' ).

gr_table->display( ).