ABAP - Hierarchical ALV Grid/List Display Report Program

REPORT zvenkattest0.

TABLES:pa0002,pa0008.

TYPE-POOLS:slis.

CONSTANTS:c VALUE 'X'.
DATA:BEGIN OF it_pa0008 OCCURS 0,
pernr LIKE pa0008-pernr,
begda LIKE pa0008-begda,
endda LIKE pa0008-endda,
preas LIKE pa0008-preas,
ansal LIKE pa0008-ansal,
lga01 LIKE pa0008-lga01,
expand TYPE xfeld,
END OF it_pa0008.

DATA:BEGIN OF it_pa0002 OCCURS 0,
pernr LIKE pa0002-pernr,
vorna LIKE pa0002-vorna,
nachn LIKE pa0002-nachn,
gbdat LIKE pa0002-gbdat,
gblnd LIKE pa0002-gblnd,
sprsl LIKE pa0002-sprsl,
perid LIKE pa0002-perid,
END OF it_pa0002.

DATA: wa_field_cat TYPE slis_fieldcat_alv,
it_field_cat TYPE slis_t_fieldcat_alv,
wa_keyinfo TYPE slis_keyinfo_alv,
it_layout TYPE slis_layout_alv.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_pernr FOR pa0002-pernr NO INTERVALS.
SELECTION-SCREEN: SKIP.
PARAMETERS:p_expand AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

PERFORM select_data.
PERFORM build_field_cat.
PERFORM disply_data.

*&---------------------------------------------------------------------*
*& Form SELECT_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text *----------------------------------------------------------------------*

FORM select_data .

SELECT pernr begda endda preas ansal lga01

FROM pa0008

INTO CORRESPONDING FIELDS OF TABLE it_pa0008 UP TO 10 ROWS.

IF NOT it_pa0008[] IS INITIAL.

SELECT pernr vorna nachn gbdat gblnd sprsl perid

FROM pa0002

INTO CORRESPONDING FIELDS OF TABLE it_pa0002

FOR ALL ENTRIES IN it_pa0008

WHERE pernr = it_pa0008-pernr.

ENDIF.

SORT it_pa0008 BY pernr.

ENDFORM.

" SELECT_DATA

*&---------------------------------------------------------------------* *&

Form BUILD_FIELD_CAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text

* <-- p2 text *----------------------------------------------------------------------*

FORM build_field_cat .

wa_field_cat-tabname = 'PA0008'.

wa_field_cat-fieldname = 'PERNR'.

wa_field_cat-seltext_l = 'personnelno'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0008'.

wa_field_cat-fieldname = 'BEGDA'.

wa_field_cat-seltext_l = 'begindate'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0008'.

wa_field_cat-fieldname = 'ENDDA'.

wa_field_cat-seltext_l = 'enddate'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0008'.

wa_field_cat-fieldname = 'PREAS'.

wa_field_cat-seltext_l = 'reason'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0008'.

wa_field_cat-fieldname = 'ANSAL'.

wa_field_cat-seltext_l = 'annualsalary'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0008'.

wa_field_cat-fieldname = 'LGA01'.

wa_field_cat-seltext_l = 'wagetype'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0002'.

wa_field_cat-fieldname = 'VORNA'.

wa_field_cat-seltext_l = 'firstname'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0002'.

wa_field_cat-fieldname = 'NACHN'.

wa_field_cat-seltext_l = 'lastname'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0002'.

wa_field_cat-fieldname = 'GBDAT'.

wa_field_cat-seltext_l = 'birhtdate'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0002'.

wa_field_cat-fieldname = 'GBLND'.

wa_field_cat-seltext_l = 'birthcountry'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0002'.

wa_field_cat-fieldname = 'SPRSL'.

wa_field_cat-seltext_l = 'languageused'.

APPEND wa_field_cat TO it_field_cat.

wa_field_cat-tabname = 'PA0002'.

wa_field_cat-fieldname = 'PERID'.

wa_field_cat-seltext_l = 'personnelid'.

APPEND wa_field_cat TO it_field_cat.

ENDFORM. " BUILD_FIELD_CAT

*&---------------------------------------------------------------------*

*& Form DISPLY_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text *----------------------------------------------------------------------*

FORM disply_data .

it_layout-group_change_edit = c.

it_layout-colwidth_optimize = c.

it_layout-zebra = c.

it_layout-detail_popup = c.

it_layout-get_selinfos = c.

IF p_expand = c.

it_layout-expand_fieldname = 'EXPAND'.

ENDIF.

wa_keyinfo-header01 = 'PERNR'.

wa_keyinfo-item01 = 'PERNR'.

* wa_keyinfo-item02 = 'SUBTY'.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-cprog

is_layout = it_layout

it_fieldcat = it_field_cat

i_tabname_header = 'PA0008'

i_tabname_item = 'PA0002'

is_keyinfo = wa_keyinfo

TABLES

t_outtab_header = it_pa0008

t_outtab_item = it_pa0002.

ENDFORM. " DISPLY_DATA

ALSO READ:

- Header In Bold - ALV Grid/List Display.

- Double Click On ALV Grid/List Report.

- ALV Interactive (Double Clicking).

- Simple Example On How To Display Table Data In ALV Grid/List Display.

..... Back To Index On ALV List/ Grid Display.

..... Back To MAIN INDEX.

ABAP - Query Sample " For All Enties"

report ztest.
tables:pa0002,pa0008,pa0021,pa0041.
data: begin of itab occurs 0,
pernr like pa0002-pernr,
vorna like pa0002-vorna,
nachn like pa0002-nachn,
end of itab.
data: begin of itab1 occurs 0,
pernr like pa0008-pernr,
begda like pa0008-begda,
stvor like pa0008-stvor,
ansal like pa0008-ansal,
end of itab1.

data :begin of itab2 occurs 0,
pernr like pa0021-pernr,
favor like pa0021-favor,
fanam like pa0021-fanam,
end of itab2.

data:begin of itab3 occurs 0,
pernr like pa0041-pernr,
dar01 like pa0041-dar01,
dat01 like pa0041-dat01,
end of itab3.

data:begin of final occurs 0,
pernr like pa0002-pernr,
vorna like pa0002-vorna,
nachn like pa0002-nachn,
begda like pa0008-begda,
stvor like pa0008-stvor,
ansal like pa0008-ansal,
favor like pa0021-favor,
fanam like pa0021-fanam,
dar01 like pa0041-dar01,
dat01 like pa0041-dat01,
end of final.

select-options:s_pernr for pa0002-pernr.

select pernr
vorna
nachn
from pa0002
into table itab
where pernr in s_pernr.
select pernr
begda
stvor
ansal
from pa0008
into table itab1
for all entries in itab
where pernr = itab-pernr.

select pernr
favor
fanam
from pa0021
into table itab2
for all entries in itab1
where pernr = itab1-pernr.

select pernr
dar01
dat01
from pa0041
into table itab3
for all entries in itab2
where pernr = itab2-pernr.

loop at itab.
final-pernr = itab-pernr.
final-vorna = itab-vorna.
final-nachn = itab-nachn.
read table itab1 with key pernr = itab-pernr.
final-begda = itab1-begda.
final-stvor = itab1-stvor.
final-ansal = itab1-ansal.
read table itab2 with key pernr = itab1-pernr.
final-favor = itab2-favor.
final-fanam = itab2-fanam.
read table itab3 with key pernr = itab2-pernr.
final-dar01 = itab3-dar01 .
final-dat01 = itab3-dat01.
append final.
clear final.
endloop.

loop at final.
write:final-pernr ,
final-vorna ,
final-nachn ,
final-begda ,
final-stvor ,
final-ansal ,
final-favor ,
final-fanam ,
final-dar01 ,
final-dat01 .
endloop.