topic Re: Selection Screen/ ALV in Application Development and Automation Discussions

REPORT Z_SEARCH_HELP .

data : RETURN_TAB LIKE DDSHRETVAL occurs 0 .

DATA : BEGIN OF ITAB OCCURS 0,
          BUKRS LIKE BKPF-BUKRS,
          BELNR LIKE BKPF-BELNR,
          GJAHR LIKE BKPF-GJAHR,
       END OF ITAB.



PARAMETERS : BELNR LIKE BKPF-BELNR.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR BELNR.

  SELECT bukrs belnr gjahr  INTO TABLE itab
  FROM bkpf.




  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield    = 'BELNR'
            DYNPPROG    = SY-REPID
            DYNPNR      = SY-DYNNR
            DYNPROFIELD = 'BELNR'
            VALUE_ORG   = 'S'
       TABLES
            value_tab   = ITAB
            return_tab  = return_tab.

Re: Selection Screen/ ALV

Former Member — Thu, 11 Jan 2007 07:15:25 GMT

Hi,

Go thru the below ALV program:

&----

*& Report ZSRALV *

*& *

&----

*& *

&----

report zsralv .

&----

*& declaratin of table *

*& *

&----

tables : lfa1.

&----

declaraing selectoptions *

&----

select-options : s_lifnr for lfa1-lifnr.

&----

declaraing internal table *

&----

data : begin of itab occurs 0,

lifnr like lfa1-lifnr,

land1 like lfa1-land1,

name1 like lfa1-name1,

end of itab.

&----

declaraing TYPEPOLL SLIS *

&----

type-pools : slis.

data : b_lfa1 type slis_t_fieldcat_alv,

w_lfa1 type slis_fieldcat_alv.

&----

CALLING SUBROUTINE FOR DISPLAYING COLUM HEADINGS

&----

*PERFORM GET_VAL.

start-of-selection.

&----

retrieving data from lfa1*

&----

select lifnr

land1

name1

from lfa1

into table itab

where lifnr in s_lifnr.

*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

*EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME =

I_STRUCTURE_NAME = 'LFA1'

I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING
ct_fieldcat = B_LFA1

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

*IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

*ENDIF.

&----

calling fn modlue alv_list_display

&----

*CALL FUNCTION 'REUSE_ALV_LIST_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_STRUCTURE_NAME =
IS_LAYOUT =

IT_FIELDCAT = B_LFA1

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_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
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES
t_outtab = ITAB

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.

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 = 'lfa1'

I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
it_fieldcat = b_lfa1

tables

t_outtab = itab

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.

&----

*& Form GET_VAL

&----

text

----

--> p1 text
<-- p2 text

----

form get_val .

w_lfa1-fieldname = 'LIFNR'.

w_lfa1-ref_tabname = 'LFA1'.

w_lfa1-ref_fieldname = 'LIFNR' .

append w_lfa1 to b_lfa1.

w_lfa1-fieldname = 'LAND1'.

w_lfa1-ref_tabname = 'LFA1'.

w_lfa1-ref_fieldname = 'LAND1' .

append w_lfa1 to b_lfa1.

w_lfa1-fieldname = 'NAME1'.

w_lfa1-ref_tabname = 'LFA1'.

w_lfa1-ref_fieldname = 'NAME1' .

append w_lfa1 to b_lfa1.

endform. " GET_VAL

Madhuri

Pls reward me if it is useful.

Re: Selection Screen/ ALV

Former Member — Thu, 11 Jan 2007 07:18:52 GMT

parameters s_matnr like LTAP-MATNR .

select-options : s_bdatu for LTAK-BDATU ,

s_bzeit for LTAK-BZEIT default '000000' to

'235900'.

for alv in se38 search for BCALV*.

regards

shiba dutta