Google Search - Blog...........

ABAP - 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



ALSO READ:

- ALV With Some Columns In Bold Letters.

- ALV Data In Different Languages.

- ALV Hierarchical For Tables.

- Display ALV List/Grid Sub-Total & Total.

.....Back To Sub-Index On HR ABAP.

.....Back To MAIN INDEX.

No comments:

Post a Comment