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