Re: Blocked List

Former Member — Fri, 16 May 2008 03:12:49 GMT

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

Reward points..

topic Re: Blocked List in Application Development and Automation Discussions

Blocked List

Re: Blocked List

Re: Blocked List