Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Blocked List

Former Member

‎2008 May 16 3:05 AM

0 Likes
433

How to display blocked lists in OO ALV where each block is a Hierarchical Sequential List?

(Similar to one we display using REUSE_ALV_BLOCK_LIST_INIT

REUSE_ALV_BLOCK_LIST_HS_APPEND

REUSE_ALV_BLOCK_LIST_DISPLAY)

Urgent Please help.......

How to display blocked lists in OO ALV where each block is a Hierarchical Sequential List?

(Similar to one we display using REUSE_ALV_BLOCK_LIST_INIT

REUSE_ALV_BLOCK_LIST_HS_APPEND

REUSE_ALV_BLOCK_LIST_DISPLAY)

Urgent Please help.......

Reply
2 REPLIES 2
Read only

Former Member

‎2008 May 16 4:12 AM

0 Likes
397

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

Read only

Former Member
In response to Former Member

‎2008 May 16 9:20 AM

0 Likes
397

I want it using OO my friend, not using Function Modules.