ALV blocked in HR ABAP

REPORT z15139_04.

TYPE-POOLS:slis.

TABLES:pa0002,
pa0008,
pa0021,
pa0025,
pa0380.

DATA:BEGIN OF it_pa0002 OCCURS 0,
pernr LIKE pa0002-pernr,
begda LIKE pa0002-begda,
endda LIKE pa0002-endda,
vorna LIKE pa0002-vorna,
nachn LIKE pa0002-nachn,
END OF it_pa0002.

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,
bet01 LIKE pa0008-bet01,
END OF it_pa0008.

DATA:BEGIN OF it_pa0021 OCCURS 0,
pernr LIKE pa0021-pernr,
begda LIKE pa0021-begda,
endda LIKE pa0021-endda,
famsa LIKE pa0021-famsa,
fgbdt LIKE pa0021-fgbdt,
fanat LIKE pa0021-fanat,
END OF it_pa0021.

DATA:BEGIN OF it_pa0025 OCCURS 0,
pernr LIKE pa0025-pernr,
begda LIKE pa0025-begda,
endda LIKE pa0025-endda,
krt01 LIKE pa0025-krt01,
pkt01 LIKE pa0025-pkt01,
END OF it_pa0025.

DATA:BEGIN OF it_pa0380 OCCURS 0,
pernr LIKE pa0380-pernr,
begda LIKE pa0380-begda,
endda LIKE pa0380-endda,
pct01 LIKE pa0380-pct01,
bet01 LIKE pa0380-bet01,
END OF it_pa0380.
DATA: BEGIN OF it_pa0041 OCCURS 0,
pernr LIKE pa0041-pernr,
dar01 LIKE pa0041-dar01,
dat01 LIKE pa0041-dat01,
END OF it_pa0041.

DATA:it_fieldcat1 TYPE slis_t_fieldcat_alv,
it_fieldcat2 TYPE slis_t_fieldcat_alv,
it_fieldcat3 TYPE slis_t_fieldcat_alv,
it_fieldcat4 TYPE slis_t_fieldcat_alv,
it_fieldcat5 TYPE slis_t_fieldcat_alv,
it_fieldcat6 TYPE slis_t_fieldcat_alv,
it_layout TYPE slis_layout_alv,
v_tabname TYPE slis_tabname,
it_events TYPE slis_t_event,
repid TYPE sy-repid,
it_events1 TYPE slis_t_event WITH HEADER LINE,
it_events2 TYPE slis_t_event WITH HEADER LINE,
it_events3 TYPE slis_t_event WITH HEADER LINE,
it_events4 TYPE slis_t_event WITH HEADER LINE,
it_events5 TYPE slis_t_event WITH HEADER LINE,
it_events6 TYPE slis_t_event WITH HEADER LINE.




SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS:s_pernr FOR pa0002-pernr.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

repid = sy-repid.
PERFORM get_fieldcat1 CHANGING it_fieldcat1.
PERFORM get_fieldcat2 CHANGING it_fieldcat2.
PERFORM get_fieldcat3 CHANGING it_fieldcat3.
PERFORM get_fieldcat4 CHANGING it_fieldcat4.
PERFORM get_fieldcat5 CHANGING it_fieldcat5.
PERFORM get_fieldcat6 CHANGING it_fieldcat6.

PERFORM get_data1.
PERFORM get_data2.
PERFORM get_data3.
PERFORM get_data4.
PERFORM get_data5.
PERFORM get_data6.

PERFORM heading.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = repid.

* First block
v_tabname = 'ITAB1'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = it_layout
it_fieldcat = it_fieldcat1
i_tabname = v_tabname
it_events = it_events1[]
TABLES
t_outtab = it_pa0002.

v_tabname = 'ITAB2'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = it_layout
it_fieldcat = it_fieldcat2
i_tabname = v_tabname
it_events = it_events2[]
TABLES
t_outtab = it_pa0008.

v_tabname = 'ITAB3'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = it_layout
it_fieldcat = it_fieldcat3
i_tabname = v_tabname
it_events = it_events3[]
TABLES
t_outtab = it_pa0021.

v_tabname = 'ITAB4'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = it_layout
it_fieldcat = it_fieldcat4
i_tabname = v_tabname
it_events = it_events4[]
TABLES
t_outtab = it_pa0025.

v_tabname = 'ITAB5'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = it_layout
it_fieldcat = it_fieldcat5
i_tabname = v_tabname
it_events = it_events5[]
TABLES
t_outtab = it_pa0025.

v_tabname = 'ITAB6'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = it_layout
it_fieldcat = it_fieldcat6
i_tabname = v_tabname
it_events = it_events6[]
TABLES
t_outtab = it_pa0380.

*Display
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.




*&---------------------------------------------------------------------*
*& Form GET_DATA1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data1 .

SELECT pernr
begda
endda
vorna
nachn
FROM pa0002
INTO TABLE it_pa0002
WHERE pernr IN s_pernr.



ENDFORM. " GET_DATA1
*&---------------------------------------------------------------------*
*& Form GET_DATA2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data2 .

SELECT pernr
begda
endda
preas
ansal
bet01
FROM pa0008
INTO TABLE it_pa0008
WHERE pernr IN s_pernr.

ENDFORM. " GET_DATA2
*&---------------------------------------------------------------------*
*& Form GET_DATA3
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data3 .

SELECT pernr
begda
endda
fanam
fgbdt
fanat
FROM pa0021
INTO TABLE it_pa0021
WHERE pernr IN s_pernr.
ENDFORM. " GET_DATA3
*&---------------------------------------------------------------------*
*& Form GET_DATA4
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data4 .

SELECT pernr
begda
endda
krt01
pkt01
FROM pa0025
INTO TABLE it_pa0025
WHERE pernr IN s_pernr.

ENDFORM. " GET_DATA4
*&---------------------------------------------------------------------*
*& Form GET_DATA5
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data5 .

SELECT pernr
dar01
dat01
FROM pa0041
INTO TABLE it_pa0041
WHERE pernr IN s_pernr.

ENDFORM. " GET_DATA5
*&---------------------------------------------------------------------*
*& Form GET_DATA6
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data6 .

SELECT pernr
begda
endda
pct01
bet01
FROM pa0380
INTO TABLE it_pa0380
WHERE pernr IN s_pernr.

ENDFORM. " GET_DATA6
*&---------------------------------------------------------------------*
*& Form GET_FIELDCAT1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_IT_FIELDCAT1 text
*----------------------------------------------------------------------*
FORM get_fieldcat1 CHANGING lt_fieldcatalog TYPE slis_t_fieldcat_alv.

DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

* Order number
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'PERNR'.
s_fieldcatalog-tabname = 'IT_PA0002'.
s_fieldcatalog-ref_tabname = 'PA0002'.
s_fieldcatalog-ref_fieldname = 'PERNR'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Customer purchase order.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BEGDA'.
s_fieldcatalog-tabname = 'IT_PA0002'.
s_fieldcatalog-ref_tabname = 'PA002'.
s_fieldcatalog-ref_fieldname = 'BEGDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Creation date.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'ENDDA'.
s_fieldcatalog-tabname = 'IT_PA0002'.
s_fieldcatalog-ref_tabname = 'PA0008'.
s_fieldcatalog-ref_fieldname = 'ENDDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Customer
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'VORNA'.
s_fieldcatalog-tabname = 'IT_PA0002'.
s_fieldcatalog-ref_tabname = 'PA0002'.
s_fieldcatalog-ref_fieldname = 'VORNA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

s_fieldcatalog-col_pos = '5'.
s_fieldcatalog-fieldname = 'NACHN'.
s_fieldcatalog-tabname = 'IT_PA0002'.
s_fieldcatalog-ref_tabname = 'PA0002'.
s_fieldcatalog-ref_fieldname = 'NACHN'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.


ENDFORM. " GET_FIELDCAT1
*&---------------------------------------------------------------------*
*& Form GET_FIELDCAT2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_IT_FIELDCAT2 text
*----------------------------------------------------------------------*
FORM get_fieldcat2 CHANGING lt_fieldcatalog TYPE slis_t_fieldcat_alv.

DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

* Order number
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'PERNR'.
s_fieldcatalog-tabname = 'IT_PA0008'.
s_fieldcatalog-ref_tabname = 'PA0008'.
s_fieldcatalog-ref_fieldname = 'PERNR'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Customer purchase order.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BEGDA'.
s_fieldcatalog-tabname = 'IT_PA0008'.
s_fieldcatalog-ref_tabname = 'PA008'.
s_fieldcatalog-ref_fieldname = 'BEGDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Creation date.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'ENDDA'.
s_fieldcatalog-tabname = 'IT_PA0008'.
s_fieldcatalog-ref_tabname = 'PA0008'.
s_fieldcatalog-ref_fieldname = 'ENDDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Customer
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'PREAS'.
s_fieldcatalog-tabname = 'IT_PA0008'.
s_fieldcatalog-ref_tabname = 'PA0008'.
s_fieldcatalog-ref_fieldname = 'PREAS'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

s_fieldcatalog-col_pos = '5'.
s_fieldcatalog-fieldname = 'ANSAL'.
s_fieldcatalog-tabname = 'IT_PA0008'.
s_fieldcatalog-ref_tabname = 'PA0008'.
s_fieldcatalog-ref_fieldname = 'ANSAL'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

s_fieldcatalog-col_pos = '6'.
s_fieldcatalog-fieldname = 'BET01'.
s_fieldcatalog-tabname = 'IT_PA0008'.
s_fieldcatalog-ref_tabname = 'PA0008'.
s_fieldcatalog-ref_fieldname = 'BET01'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

ENDFORM. " GET_FIELDCAT2
*&---------------------------------------------------------------------*
*& Form GET_FIELDCAT3
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_IT_FIELDCAT3 text
*----------------------------------------------------------------------*
FORM get_fieldcat3 CHANGING lt_fieldcatalog TYPE slis_t_fieldcat_alv.

DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

* Order number
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'PERNR'.
s_fieldcatalog-tabname = 'IT_PA0021'.
s_fieldcatalog-ref_tabname = 'PA0021'.
s_fieldcatalog-ref_fieldname = 'PERNR'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Customer purchase order.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BEGDA'.
s_fieldcatalog-tabname = 'IT_PA0021'.
s_fieldcatalog-ref_tabname = 'PA021'.
s_fieldcatalog-ref_fieldname = 'BEGDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Creation date.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'ENDDA'.
s_fieldcatalog-tabname = 'IT_PA0021'.
s_fieldcatalog-ref_tabname = 'PA0021'.
s_fieldcatalog-ref_fieldname = 'ENDDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.
* Customer
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'FANAM'.
s_fieldcatalog-tabname = 'IT_PA0021'.
s_fieldcatalog-ref_tabname = 'PA0021'.
s_fieldcatalog-ref_fieldname = 'FANAM'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

s_fieldcatalog-col_pos = '5'.
s_fieldcatalog-fieldname = 'FGBDT'.
s_fieldcatalog-tabname = 'IT_PA0021'.
s_fieldcatalog-ref_tabname = 'PA0021'.
s_fieldcatalog-ref_fieldname = 'FGBDT'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

s_fieldcatalog-col_pos = '6'.
s_fieldcatalog-fieldname = 'FANAT'.
s_fieldcatalog-tabname = 'IT_PA0021'.
s_fieldcatalog-ref_tabname = 'PA0021'.
s_fieldcatalog-ref_fieldname = 'FANAT'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.



ENDFORM. " GET_FIELDCAT3
*&---------------------------------------------------------------------*
*& Form GET_FIELDCAT4
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_IT_FIELDCAT4 text
*----------------------------------------------------------------------*
FORM get_fieldcat4 CHANGING lt_fieldcatalog TYPE slis_t_fieldcat_alv.

DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

* Order number
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'PERNR'.
s_fieldcatalog-tabname = 'IT_PA0025'.
s_fieldcatalog-ref_tabname = 'PA0025'.
s_fieldcatalog-ref_fieldname = 'PERNR'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Customer purchase order.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BEGDA'.
s_fieldcatalog-tabname = 'IT_PA0025'.
s_fieldcatalog-ref_tabname = 'PA0025'.
s_fieldcatalog-ref_fieldname = 'BEGDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Creation date.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'ENDDA'.
s_fieldcatalog-tabname = 'IT_PA0025'.
s_fieldcatalog-ref_tabname = 'PA0025'.
s_fieldcatalog-ref_fieldname = 'ENDDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.
* Customer
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'KRT01'.
s_fieldcatalog-tabname = 'IT_PA0025'.
s_fieldcatalog-ref_tabname = 'PA0025'.
s_fieldcatalog-ref_fieldname = 'KRT01'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

s_fieldcatalog-col_pos = '5'.
s_fieldcatalog-fieldname = 'PKT01'.
s_fieldcatalog-tabname = 'IT_PA0025'.
s_fieldcatalog-ref_tabname = 'PA0025'.
s_fieldcatalog-ref_fieldname = 'PKT01'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

ENDFORM. " GET_FIELDCAT4
*&---------------------------------------------------------------------*
*& Form GET_FIELDCAT5
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_IT_FIELDCAT5 text
*----------------------------------------------------------------------*
FORM get_fieldcat5 CHANGING lt_fieldcatalog TYPE slis_t_fieldcat_alv.

DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

* Order number
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'PERNR'.
s_fieldcatalog-tabname = 'IT_PA0041'.
s_fieldcatalog-ref_tabname = 'PA0041'.
s_fieldcatalog-ref_fieldname = 'PERNR'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Customer purchase order.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'DAR01'.
s_fieldcatalog-tabname = 'IT_PA0041'.
s_fieldcatalog-ref_tabname = 'PA0041'.
s_fieldcatalog-ref_fieldname = 'DAR01'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Creation date.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'DAT01'.
s_fieldcatalog-tabname = 'IT_PA0041'.
s_fieldcatalog-ref_tabname = 'PA0041'.
s_fieldcatalog-ref_fieldname = 'DAT01'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.


ENDFORM. " GET_FIELDCAT5
*&---------------------------------------------------------------------*
*& Form GET_FIELDCAT6
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_IT_FIELDCAT6 text
*----------------------------------------------------------------------*
FORM get_fieldcat6 CHANGING lt_fieldcatalog TYPE slis_t_fieldcat_alv.

DATA: s_fieldcatalog TYPE slis_fieldcat_alv.

* Order number
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'PERNR'.
s_fieldcatalog-tabname = 'IT_PA0380'.
s_fieldcatalog-ref_tabname = 'PA0380'.
s_fieldcatalog-ref_fieldname = 'PERNR'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Customer purchase order.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BEGDA'.
s_fieldcatalog-tabname = 'IT_PA0380'.
s_fieldcatalog-ref_tabname = 'PA0380'.
s_fieldcatalog-ref_fieldname = 'BEGDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

* Creation date.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'ENDDA'.
s_fieldcatalog-tabname = 'IT_PA0380'.
s_fieldcatalog-ref_tabname = 'PA0380'.
s_fieldcatalog-ref_fieldname = 'ENDDA'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.
* Customer
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'PCT01'.
s_fieldcatalog-tabname = 'IT_PA0380'.
s_fieldcatalog-ref_tabname = 'PA0380'.
s_fieldcatalog-ref_fieldname = 'PCT01'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

s_fieldcatalog-col_pos = '5'.
s_fieldcatalog-fieldname = 'BET01'.
s_fieldcatalog-tabname = 'IT_PA0380'.
s_fieldcatalog-ref_tabname = 'PA0380'.
s_fieldcatalog-ref_fieldname = 'BET01'.
APPEND s_fieldcatalog TO lt_fieldcatalog.
CLEAR s_fieldcatalog.

ENDFORM. " GET_FIELDCAT6
*&---------------------------------------------------------------------*
*& Form HEADING
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM heading .
it_events1-name = 'TOP_OF_PAGE'.
it_events1-form = 'F_TOP_OF_PAGE_ONE'.
APPEND it_events1.
CLEAR it_events1.

it_events2-name = 'TOP_OF_PAGE'.
it_events2-form = 'F_TOP_OF_PAGE_TWO'.
APPEND it_events2.
CLEAR it_events2.

it_events3-name = 'TOP_OF_PAGE'.
it_events3-form = 'F_TOP_OF_PAGE_THREE'.
APPEND it_events3.

CLEAR it_events3.
it_events1-name = 'TOP_OF_PAGE'.
it_events1-form = 'F_TOP_OF_PAGE_FOUR'.
APPEND it_events4.
CLEAR it_events4.

it_events2-name = 'TOP_OF_PAGE'.
it_events2-form = 'F_TOP_OF_PAGE_FIVE'.
APPEND it_events5.
CLEAR it_events5.

it_events3-name = 'TOP_OF_PAGE'.
it_events3-form = 'F_TOP_OF_PAGE_SIX'.
APPEND it_events6.
CLEAR it_events6.

ENDFORM. " HEADING
*&---------------------------------------------------------------------*
*& Form top_of_page_one
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_top_of_page_one.
WRITE: / 'PERSONAL DATA (PA0002)'.
ENDFORM. "top_of_page_one

*&---------------------------------------------------------------------*
*& Form top_of_page_TWO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_top_of_page_two.
WRITE: / 'PAYROLL DATA(PA0008)'.
ENDFORM. "top_of_page_two

*&---------------------------------------------------------------------*
*& Form top_of_page_THREE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_top_of_page_three.
WRITE: / 'FAMILY DETAILS (PA0021)'.
ENDFORM. "top_of_page_three
*&---------------------------------------------------------------------*
*& Form top_of_page_FOUR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_top_of_page_four.
WRITE: / 'PERFORMANCE (pa0025)'.
ENDFORM. "top_of_page_four

*&---------------------------------------------------------------------*
*& Form top_of_page_FIVE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_top_of_page_five.
WRITE: / 'DATES (pa0041)'.
ENDFORM. "top_of_page_five

*&---------------------------------------------------------------------*
*& Form top_of_page_SIX
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_top_of_page_six.
WRITE: / 'COMPENSATION DETAILS (pa0380)'.
ENDFORM. "top_of_page_six