i want to change pf status (REUSE_ALV_POPUP_TO_SELECT)

[Former Member]

Hi ,

i m using this function for pop up alv Display "REUSE_ALV_POPUP_TO_SELECT" .

i want to change PF status or i want to add 2 new buttons on the tool bar of the pop up screen.

??????

Cuurently i m using below mention code

REPORT ZSALIL..

TYPE-POOLS: SLIS.

TYPES: BEGIN OF TTAB,

CHECK TYPE C,

MATNR TYPE MARA-MATNR,

MAKTX TYPE MAKT-MAKTX,

END OF TTAB.

DATA: ITAB TYPE TABLE OF TTAB WITH HEADER LINE.

DATA: tTAB1 TYPE TABLE OF TTAB WITH HEADER LINE.

DATA: REPID TYPE SY-REPID.

DATA: IEX TYPE SLIS_T_EXTAB.

DATA: XEX LIKE LINE OF IEX.

DATA: IFLDC TYPE SLIS_T_FIELDCAT_ALV .

DATA: XFLDC TYPE SLIS_FIELDCAT_ALV .

PARAMETERS: P_CHECK.

START-OF-SELECTION.

SELECT MATNR MAKTX INTO CORRESPONDING FIELDS OF TABLE ITAB FROM MAKT

UP TO 100 ROWS.

if itab-matnr Ne '100'.

CLEAR XFLDC.

XFLDC-REPTEXT_DDIC = ' '.

XFLDC-FIELDNAME = 'CHECK'.

XFLDC-TABNAME = 'ITAB'.

XFLDC-OUTPUTLEN = '1'.

APPEND XFLDC TO IFLDC.

endif.

CLEAR XFLDC.

XFLDC-REPTEXT_DDIC = 'Material Number'.

XFLDC-FIELDNAME = 'MATNR'.

XFLDC-TABNAME = 'ITAB'.

XFLDC-OUTPUTLEN = '28'.

APPEND XFLDC TO IFLDC.

CLEAR XFLDC.

XFLDC-REPTEXT_DDIC = 'Material Description'.

XFLDC-FIELDNAME = 'MAKTX'.

XFLDC-TABNAME = 'ITAB'.

XFLDC-OUTPUTLEN = '25'.

APPEND XFLDC TO IFLDC.

REPID = SY-REPID.

XEX-FCODE = '&ETA'. APPEND XEX TO IEX.

XEX-FCODE = '&OUP'. APPEND XEX TO IEX.

XEX-FCODE = '&ODN'. APPEND XEX TO IEX.

XEX-FCODE = '&ILT'. APPEND XEX TO IEX.

XEX-FCODE = '&OL0'. APPEND XEX TO IEX.

XEX-FCODE = '%SC' . APPEND XEX TO IEX.

XEX-FCODE = '%SC+'. APPEND XEX TO IEX.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

I_TITLE = 'SALIL'

I_CHECKBOX_FIELDNAME = 'CHECK'

I_TABNAME = 'ITAB'

I_ZEBRA = 'X'

IT_FIELDCAT = IFLDC

IT_EXCLUDING = IEX

I_CALLBACK_PROGRAM = REPID

I_CALLBACK_USER_COMMAND = 'HANDLE_DC_ALV'

TABLES

T_OUTTAB = ITAB

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

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

• FORM handle_dc_alv *

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

form handle_dc_alv using r_ucomm type sy-ucomm

rs_selfield type slis_selfield.

case r_ucomm.

when '&NT1'.

case rs_selfield-fieldname.

when 'MATNR'.

check rs_selfield-value(1) <> '*'. " Not the total line

set parameter id 'MAT' field rs_selfield-value.

call transaction 'MM03' and skip first screen.

r_ucomm = space.

endcase.

endcase.

endform.

*&----

---

[pradeep_nellore]

Hi ,

Copy Function module into Zfunction module and insert code for New Pf-Status and use it in your program.

Thanks

Pradeep