Application Development 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: 

FTI_FISCAL_YEAR_MONTH_GET

former_member564866
Explorer

‎09-03-2007 10:58 AM

0 Kudos

hi all,

i need one example program for this function module

FTI_FISCAL_YEAR_MONTH_GET.

Thank u

3 REPLIES 3

Former Member

‎09-03-2007 11:02 AM

0 Kudos

Import parameters Value

I_BUKRS 1000

I_BUDAT 03.09.2007

I_DZTERM

I_GJAHR 2007

Export parameters Value

E_GJAHR 2007

E_MONAT 06

pass these data/

Regards

Peram

former_member564866
Explorer
In response to Former Member

‎09-03-2007 11:14 AM

0 Kudos

hi,

when i am passing the value through selection screen it will not taken.

FORM get_current USING p_g_first_day.

CALL FUNCTION 'FTI_FISCAL_YEAR_MONTH_GET'

  • EXPORTING

i_bukrs = 1000

I_BUDAT = p_g_first_day

    • I_DZTERM = FTIS_DATUM-INITIAL

    • I_GJAHR = FTIS_GJAHR-INITIAL

IMPORTING

E_GJAHR = w_currm

E_MONAT = w_curry

  • .

endform

Former Member

‎09-03-2007 11:08 AM

0 Kudos

Hi

&----

*& Include ZSERVICE_PERFORMS

&----

PERFORM get_data.

PERFORM display_data.

&----

*& Form get_data

&----

FORM get_data.

SELECT SINGLE erdat

FROM vbak

INTO v_erdat

WHERE vbeln EQ s_vbeln-low.

v_date_f = v_erdat.

CONCATENATE v_date_f6(2) '/' v_date_f4(2) '/' v_date_f+0(4) INTO v_date_f.

CLEAR v_erdat.

SELECT SINGLE erdat

FROM vbak

INTO v_erdat

WHERE vbeln EQ s_vbeln-high.

v_date_t = v_erdat.

CONCATENATE v_date_t6(2) '/' v_date_t4(2) '/' v_date_t+0(4) INTO v_date_t.

CLEAR v_erdat.

SELECT vbeln

auart

erdat

qmnum

FROM vbak

INTO TABLE t_vbak

WHERE vbeln IN s_vbeln

AND auart IN s_auart

AND erdat IN s_erdat "BETWEEN date_l AND date_h

AND qmnum IN s_qmnum.

IF NOT t_vbak[] IS INITIAL.

SELECT vbeln

posnr

arktx

matnr

kwmeng

vrkme

FROM vbap

INTO TABLE t_vbap

FOR ALL ENTRIES IN t_vbak

WHERE vbeln = t_vbak-vbeln

AND posnr IN s_posnr

AND matnr IN s_matnr.

IF NOT t_vbap[] IS INITIAL.

LOOP AT t_vbap INTO st_vbap.

MOVE : st_vbap-vbeln TO st_vb-vbeln,

st_vbap-posnr TO st_vb-posnr,

st_vbap-arktx TO st_vb-arktx,

st_vbap-matnr TO st_vb-matnr,

st_vbap-kwmeng TO st_vb-kwmeng,

st_vbap-vrkme TO st_vb-vrkme.

READ TABLE t_vbak INTO st_vbak WITH KEY vbeln = st_vbap-vbeln.

IF sy-subrc EQ 0.

MOVE : st_vbak-auart TO st_vb-auart,

st_vbak-erdat TO st_vb-erdat,

st_vbak-qmnum TO st_vb-qmnum.

READ TABLE t_viqmel INTO st_viqmel WITH KEY qmnum = st_vbak-qmnum.

IF sy-subrc EQ 0.

MOVE st_viqmel-vbeln1 TO st_vb-vbeln1.

ENDIF.

ENDIF.

APPEND st_vb TO t_vb.

ENDLOOP.

ENDIF.

IF NOT t_vb[] IS INITIAL.

SELECT vbeln

posnr

fkdat

FROM vbkd

INTO TABLE t_vbkd

FOR ALL ENTRIES IN t_vb

WHERE vbeln = t_vb-vbeln

AND fkdat IN s_fkdat.

SELECT vbeln

pstyv

wavwr

FROM vbap

INTO TABLE t_wavwr

FOR ALL ENTRIES IN t_vb

WHERE vbeln = t_vb-vbeln

AND posnr = t_vb-posnr.

LOOP AT t_vb INTO st_vb.

MOVE : st_vb-vbeln TO st_wavwr2_d-vbeln,

st_vb-qmnum TO st_wavwr2_d-qmnum.

READ TABLE t_wavwr INTO st_wavwr WITH KEY vbeln = st_vb-vbeln.

IF sy-subrc EQ 0.

MOVE : st_wavwr-pstyv TO st_wavwr2_d-pstyv,

st_wavwr-wavwr TO st_wavwr2_d-wavwr.

APPEND st_wavwr2_d TO t_wavwr2_d.

ENDIF.

ENDLOOP.

ENDIF.

ENDIF.

SELECT qmnum

qmart

vbeln

ltrmn

objnr

bukrs

FROM viqmel

INTO TABLE t_viqmel

WHERE qmnum IN s_qmnum

AND qmart IN s_qmart.

IF NOT t_viqmel[] IS INITIAL.

LOOP AT t_viqmel INTO st_viqmel.

READ TABLE t_wavwr2_d INTO st_wavwr2_d WITH KEY qmnum = st_viqmel-qmnum.

IF sy-subrc EQ 0.

MOVE : st_wavwr2_d-vbeln TO st_wavwr2-vbeln,

st_wavwr2_d-qmnum TO st_wavwr2-qmnum,

st_wavwr2_d-pstyv TO st_wavwr2-pstyv,

st_wavwr2_d-wavwr TO st_wavwr2-wavwr,

st_viqmel-vbeln1 TO st_wavwr2-vbeln1.

APPEND st_wavwr2 TO t_wavwr2.

ENDIF.

ENDLOOP.

ENDIF.

LOOP AT t_wavwr INTO st_wavwr.

COLLECT st_wavwr INTO t_wavwr1.

ENDLOOP.

LOOP AT t_wavwr1 INTO st_wavwr1.

ENDLOOP.

LOOP AT t_wavwr2 INTO st_wavwr2.

COLLECT st_wavwr2 INTO t_wavwr3.

ENDLOOP.

LOOP AT t_vbap INTO st_vbap WHERE vrkme = 'ST'.

COLLECT st_vbap INTO t_vbap1.

ENDLOOP.

SORT t_vbak BY vbeln qmnum.

SORT t_vbap BY vbeln posnr.

SORT t_vb BY auart vbeln posnr qmnum.

SORT t_vbkd BY vbeln fkdat.

SORT t_wavwr BY vbeln.

SORT t_viqmel BY qmnum.

SORT t_wavwr1 BY vbeln.

SORT t_wavwr3 BY vbeln.

CLEAR st_vb.

LOOP AT t_vb INTO st_vb.

CLEAR : st_vbap1, st_viqmel, st_vbkd, st_wavwr, st_wavwr1, st_wavwr3.

MOVE : st_vb-auart TO st_final-auart,

st_vb-vbeln TO st_final-vbeln,

st_vb-qmnum TO st_final-qmnum,

st_vb-posnr TO st_final-posnr,

st_vb-matnr TO st_final-matnr,

st_vb-arktx TO st_final-arktx.

MOVE : st_vb-auart TO st_final1-auart,

st_vb-vbeln TO st_final1-vbeln,

st_vb-posnr TO st_final1-posnr,

st_vb-matnr TO st_final1-matnr,

st_vb-arktx TO st_final1-arktx.

READ TABLE t_viqmel INTO st_viqmel WITH KEY qmnum = st_vb-qmnum BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE : st_viqmel-qmart TO st_final-qmart,

st_viqmel-ltrmn TO st_final-ltrmn,

st_viqmel-vbeln1 TO st_final-vbeln1.

ENDIF.

CALL FUNCTION 'STATUS_READ'

EXPORTING

  • CLIENT = SY-MANDT

objnr = st_viqmel-objnr

only_active = c_x

IMPORTING

stsma = st_status-stsma

TABLES

status = t_status1

EXCEPTIONS

object_not_found = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

SELECT stsma estat txt04

FROM tj30t

INTO TABLE t_tj30t

WHERE stsma = st_status-stsma

AND txt04 IN s_txt04.

LOOP AT t_status1 INTO st_status1.

CLEAR st_tj30t.

READ TABLE t_tj30t INTO st_tj30t WITH KEY estat = st_status1-stat.

IF sy-subrc EQ 0.

MOVE st_tj30t-txt04 TO st_final-txt04.

ENDIF.

ENDLOOP.

READ TABLE t_vbkd INTO st_vbkd WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

IF sy-subrc EQ 0.

v_fkdat2 = st_vbkd-fkdat.

CONCATENATE v_fkdat26(2) '/' v_fkdat24(2) '/' v_fkdat2+0(4) INTO v_fkdat2.

MOVE v_fkdat2 TO st_final-fkdat.

CALL FUNCTION 'FTI_FISCAL_YEAR_MONTH_GET'

EXPORTING

i_bukrs = st_viqmel-bukrs

i_budat = st_vbkd-fkdat

  • I_DZTERM = FTIS_DATUM-INITIAL

  • I_GJAHR = FTIS_GJAHR-INITIAL

IMPORTING

e_gjahr = v_gjahr

e_monat = v_monat.

CONCATENATE v_gjahr '/' v_monat INTO v_fkdat1.

MOVE v_fkdat1 TO st_final-fkdat1.

ENDIF.

  • LOOP AT t_vbap INTO st_vbap WHERE vbeln = st_vb-vbeln.

  • IF st_vbap-vrkme = 'H'.

  • v_kwmeng = v_kwmeng + st_vbap-kwmeng.

  • ENDIF.

  • ENDLOOP.

READ TABLE t_vbap1 INTO st_vbap1 WITH KEY vbeln = st_vb-vbeln.

IF sy-subrc EQ 0.

MOVE : st_vbap1-kwmeng TO st_final-kwmeng.

ENDIF.

READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln

pstyv = 'ZINS' BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_wavwr1-wavwr TO st_final-wavwr1.

ENDIF.

READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln

pstyv = 'ZPRS' BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_wavwr1-wavwr TO st_final-wavwr2.

ENDIF.

READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln

pstyv = 'ZSKS' BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_wavwr1-wavwr TO st_final-wavwr3.

ENDIF.

  • READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

  • IF sy-subrc EQ 0.

  • IF st_wavwr1-pstyv EQ 'ZSKS' OR st_wavwr1-pstyv EQ 'ZINS' OR st_wavwr1-pstyv EQ 'ZPRS'.

  • MOVE st_wavwr1-wavwr TO st_final-wavwr_sum1.

  • ENDIF.

  • ENDIF.

*************************

AT NEW vbeln.

LOOP AT t_wavwr1 INTO st_wavwr1 WHERE vbeln = st_vb-vbeln.

IF st_wavwr1-pstyv = 'ZSKS'.

v_wavwr1 = v_wavwr1 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZPRS'.

v_wavwr1 = v_wavwr1 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZINS'.

v_wavwr1 = v_wavwr1 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZBLS'.

v_wavwr2 = st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZSK'.

v_wavwr3 = v_wavwr3 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZSKN'.

v_wavwr3 = v_wavwr3 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZPR'.

v_wavwr3 = v_wavwr3 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZPRN'.

v_wavwr3 = v_wavwr3 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZINN'.

v_wavwr3 = v_wavwr3 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZBL'.

v_wavwr4 = v_wavwr4 + st_wavwr1-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZBLN'.

v_wavwr4 = v_wavwr4 + st_wavwr1-wavwr.

ENDIF.

ENDLOOP.

MOVE v_wavwr1 TO st_final1-wavwr1_sum.

MOVE v_wavwr2 TO st_final1-wavwr2_sum.

MOVE v_wavwr3 TO st_final1-wavwr3_sum.

MOVE v_wavwr4 TO st_final1-wavwr4_sum.

APPEND st_final1 TO t_final.

CLEAR : v_wavwr1, v_wavwr2, v_wavwr3, v_wavwr4.

ENDAT.

*************************

  • READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

  • IF sy-subrc EQ 0.

  • IF st_wavwr1-pstyv EQ 'ZBLS'.

  • MOVE st_wavwr1-wavwr TO st_final-wavwr_sum2.

  • ENDIF.

  • ENDIF.

*

  • READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

  • IF sy-subrc EQ 0.

  • IF st_wavwr1-pstyv EQ 'ZSKN' OR st_wavwr1-pstyv EQ 'ZPR' OR st_wavwr1-pstyv EQ 'ZPRN' OR st_wavwr1-pstyv EQ 'ZINN'.

  • MOVE st_wavwr1-wavwr TO st_final-wavwr_sum3.

  • ENDIF.

  • ENDIF.

*

  • READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

  • IF sy-subrc EQ 0.

  • IF st_wavwr1-pstyv EQ 'ZBL' OR st_wavwr1-pstyv EQ 'ZBLN'.

  • MOVE st_wavwr1-wavwr TO st_final-wavwr_sum4.

  • ENDIF.

  • ENDIF.

*************************

LOOP AT t_wavwr3 INTO st_wavwr3 WHERE vbeln1 = st_vb-vbeln1.

IF st_wavwr3-pstyv = 'ZSKS'.

v_wavwr1 = v_wavwr1 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZPRS'.

v_wavwr1 = v_wavwr1 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZINS'.

v_wavwr1 = v_wavwr1 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZBLS'.

v_wavwr2 = st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZSK'.

v_wavwr3 = v_wavwr3 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr1-pstyv = 'ZSKN'.

v_wavwr3 = v_wavwr3 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZPR'.

v_wavwr3 = v_wavwr3 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZPRN'.

v_wavwr3 = v_wavwr3 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZINN'.

v_wavwr3 = v_wavwr3 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZBL'.

v_wavwr4 = v_wavwr4 + st_wavwr3-wavwr.

ENDIF.

IF st_wavwr3-pstyv = 'ZBLN'.

v_wavwr4 = v_wavwr4 + st_wavwr3-wavwr.

ENDIF.

ENDLOOP.

MOVE v_wavwr1 TO st_final-wavwr1_sum.

MOVE v_wavwr2 TO st_final-wavwr2_sum.

MOVE v_wavwr3 TO st_final-wavwr3_sum.

MOVE v_wavwr4 TO st_final-wavwr4_sum.

CLEAR : v_wavwr1, v_wavwr2, v_wavwr3, v_wavwr4.

*************************

  • READ TABLE t_wavwr3 INTO st_wavwr3 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

  • IF sy-subrc EQ 0.

  • IF st_wavwr3-pstyv EQ 'ZSKS' OR st_wavwr3-pstyv EQ 'ZINS' OR st_wavwr3-pstyv EQ 'ZPRS'.

  • MOVE st_wavwr3-wavwr TO st_final-wavwr1_sum.

  • ENDIF.

  • ENDIF.

*

  • READ TABLE t_wavwr3 INTO st_wavwr3 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

  • IF sy-subrc EQ 0.

  • IF st_wavwr3-pstyv EQ 'ZBLS'.

  • MOVE st_wavwr3-wavwr TO st_final-wavwr2_sum.

  • ENDIF.

  • ENDIF.

*

  • READ TABLE t_wavwr3 INTO st_wavwr3 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

  • IF sy-subrc EQ 0.

  • IF st_wavwr3-pstyv EQ 'ZSKN' OR st_wavwr3-pstyv EQ 'ZPR' OR st_wavwr3-pstyv EQ 'ZPRN' OR st_wavwr3-pstyv EQ 'ZINN'.

  • MOVE st_wavwr3-wavwr TO st_final-wavwr3_sum.

  • ENDIF.

  • ENDIF.

*

  • READ TABLE t_wavwr3 INTO st_wavwr3 WITH KEY vbeln = st_vb-vbeln.

  • IF sy-subrc EQ 0.

  • IF st_wavwr3-pstyv EQ 'ZBL' OR st_wavwr3-pstyv EQ 'ZBLN'.

  • MOVE st_wavwr3-wavwr TO st_final-wavwr4_sum.

  • ENDIF.

  • ENDIF.

*

READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln

pstyv = 'ZINN' BINARY SEARCH.

IF sy-subrc EQ 0.

MOVE st_wavwr1-wavwr TO st_final-wavwr4.

ENDIF.

READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

IF sy-subrc EQ 0.

IF st_wavwr1-pstyv = 'ZPR' OR st_wavwr1-pstyv = 'ZPRN'.

MOVE st_wavwr1-wavwr TO st_final-wavwr5.

ENDIF.

ENDIF.

READ TABLE t_wavwr1 INTO st_wavwr1 WITH KEY vbeln = st_vb-vbeln BINARY SEARCH.

IF sy-subrc EQ 0.

IF st_wavwr1-pstyv = 'ZSK' OR st_wavwr1-pstyv = 'ZSKN'.

MOVE st_wavwr1-wavwr TO st_final-wavwr6.

ENDIF.

ENDIF.

APPEND st_final TO t_final.

CLEAR : st_final, st_final1, st_vb.

ENDLOOP.

ENDFORM. " get_data

&----

*& Form display_data

&----

FORM display_data .

IF p_grid EQ 'X'.

DEFINE m_fieldcat.

add 1 to st_fieldcat-col_pos.

st_fieldcat-fieldname = &1.

st_fieldcat-do_sum = &2.

st_fieldcat-seltext_l = &3.

append st_fieldcat to t_fieldcat.

END-OF-DEFINITION.

DEFINE m_sort.

add 1 to st_sort-spos.

st_sort-fieldname = &1.

st_sort-up = &2.

st_sort-subtot = &3.

append st_sort to t_sort.

END-OF-DEFINITION.

st_layout-cell_merge = 'X'.

st_layout-no_hline = 'X'.

  • st_layout-totals_text = text-029.

  • st_layout-subtotals_text = text-029.

m_fieldcat 'AUART' '' text-005.

m_fieldcat 'VBELN' '' text-006.

m_fieldcat 'POSNR' '' text-007.

m_fieldcat 'MATNR' '' text-008.

m_fieldcat 'ARKTX' '' text-009.

m_fieldcat 'QMNUM' '' text-010.

m_fieldcat 'QMART' '' text-011.

m_fieldcat 'TXT04' '' text-012.

m_fieldcat 'LTRMN' '' text-013.

m_fieldcat 'VBELN1' '' text-014.

m_fieldcat 'FKDAT' '' text-015.

m_fieldcat 'FKDAT1' '' text-016.

m_fieldcat 'KWMENG' '' text-017.

m_fieldcat 'WAVWR1' '' text-018.

m_fieldcat 'WAVWR2' '' text-019.

m_fieldcat 'WAVWR3' '' text-020.

m_fieldcat 'WAVWR1_SUM' 'X' text-021.

m_fieldcat 'WAVWR2_SUM' 'X' text-022.

m_fieldcat 'KWMENG' '' text-023.

m_fieldcat 'WAVWR4' '' text-024.

m_fieldcat 'WAVWR5' '' text-025.

m_fieldcat 'WAVWR6' '' text-026.

m_fieldcat 'WAVWR3_SUM' 'X' text-027.

m_fieldcat 'WAVWR4_SUM' 'X' text-028.

m_sort 'AUART' 'X' ' '.

m_sort 'VBELN' 'X' 'X'.

m_sort 'POSNR' 'X' ' '.

m_sort 'MATNR' 'X' ' '.

m_sort 'ARKTX' 'X' ' '.

  • m_sort 'WAVWR_SUM1' ' ' 'X'.

  • m_sort 'WAVWR_SUM2' ' ' 'X'.

  • m_sort 'WAVWR_SUM3' ' ' 'X'.

  • m_sort 'WAVWR_SUM4' ' ' 'X'.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = t_events.

READ TABLE t_events WITH KEY name = slis_ev_top_of_page INTO st_events.

IF sy-subrc = 0.

MOVE c_topofpage TO st_events-form.

APPEND st_events TO t_events.

ENDIF.

  • Loop at t_events INTO st_events.

  • if st_events-name = slis_ev_top_of_page.

  • MOVE c_topofpage TO st_events-form.

  • MODIFY t_events index sy-tabix FROM st_events TRANSPORTING form.

  • ENDIF.

  • if st_events-name = slis_ev_subtotal_text.

  • Move c_subtottext to st_events-form.

  • MODIFY t_events index sy-tabix FROM st_events TRANSPORTING form.

  • endif.

  • endloop.

CLEAR st_line.

REFRESH t_line.

st_line-typ = 'S'.

st_line-key = text-002.

st_line-info = sy-datum.

APPEND st_line TO t_line.

CLEAR st_line.

st_line-typ = 'A'.

st_line-key = text-003.

st_line-info = v_date_f.

APPEND st_line TO t_line.

CLEAR st_line.

st_line-typ = 'A'.

st_line-key = text-004.

st_line-info = v_date_t.

APPEND st_line TO t_line.

CLEAR st_line.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_callback_top_of_page = ' '

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

  • I_GRID_TITLE =

  • I_GRID_SETTINGS =

is_layout = st_layout

it_fieldcat = t_fieldcat

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

it_sort = t_sort

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

it_events = t_events[]

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • I_HTML_HEIGHT_TOP = 0

  • I_HTML_HEIGHT_END = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • IR_SALV_FULLSCREEN_ADAPTER =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = t_final

EXCEPTIONS

program_error = 1

OTHERS = 2

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ELSE.

WRITE : 'Hello'.

ENDIF.

ENDFORM. " display_data

&----

*& Form top_of_page

&----

  • text

----

FORM top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_line

  • I_LOGO =

  • I_END_OF_LIST_GRID =

  • I_ALV_FORM =

.

ENDFORM. "top_of_page