Re: Issue with SY-UCOMM

Former Member — Thu, 24 May 2007 14:36:00 GMT

hi,

check this example.

REPORT ZSR_ALV_INTERACTIVE2.

TYPE-POOLS: SLIS.

*DATA DECLARATION.

TYPES: BEGIN OF I_VBAK,

VBELN TYPE VBELN_VA,

AUGRU TYPE AUGRU,

END OF I_VBAK.

TYPES: BEGIN OF I_VBAP,

VBELN TYPE VBELN_VA,

AUGRU TYPE AUGRU,

POSNR TYPE POSNR_VA,

MATNR TYPE MATNR,

ZMENG TYPE DZMENG,

END OF I_VBAP.

TYPES: BEGIN OF I_MAKT,

MATNR TYPE MATNR,

MAKTX TYPE MAKTX,

END OF I_MAKT.

TYPES: BEGIN OF I_LIPS,

POSNR TYPE POSNR_VL,

MATNR TYPE MATNR,

LFIMG TYPE LFIMG,

END OF I_LIPS.

TYPES: BEGIN OF I_REASON,

SPRAS TYPE SPRAS,

AUGRU TYPE AUGRU,

BEZEI TYPE BEZEI40,

END OF I_REASON.

TYPES: BEGIN OF I_VBPA,

VBELN TYPE VBELN,

PARVW TYPE PARVW,

KUNNR TYPE KUNNR,

END OF I_VBPA.

TYPES: BEGIN OF I_KNA1,

KUNNR TYPE KUNNR,

NAME1 TYPE NAME1_GP,

END OF I_KNA1.

TYPES: BEGIN OF I_FINAL,

VBELN TYPE VBELN_VA,

POSNR TYPE POSNR_VA,

MATNR TYPE MATNR,

ZMENG TYPE DZMENG,

MAKTX TYPE MAKTX,

LFIMG TYPE LFIMG,

SPRAS TYPE SPRAS,

AUGRU TYPE AUGRU,

BEZEI TYPE BEZEI40,

PARVW TYPE PARVW,

KUNNR TYPE KUNNR,

NAME1 TYPE NAME1_GP,

END OF I_FINAL.

*INTERNAL TABLES

DATA: IT_VBAK TYPE STANDARD TABLE OF I_VBAK.

DATA: IT_VBAP TYPE STANDARD TABLE OF I_VBAP.

DATA: IT_MAKT TYPE STANDARD TABLE OF I_MAKT.

DATA: IT_LIPS TYPE STANDARD TABLE OF I_LIPS.

DATA: IT_VBPA TYPE STANDARD TABLE OF I_VBPA.

DATA: IT_KNA1 TYPE STANDARD TABLE OF I_KNA1.

DATA: IT_FINAL TYPE STANDARD TABLE OF I_FINAL.

DATA: IT_REASON TYPE STANDARD TABLE OF I_REASON.

DATA : V_FLAG.

*WORK AREA

DATA: WA_VBAK TYPE I_VBAK.

DATA: WA_VBAP TYPE I_VBAP.

DATA: WA_MAKT TYPE I_MAKT.

DATA: WA_LIPS TYPE I_LIPS.

DATA: WA_VBPA TYPE I_VBPA.

DATA: WA_KNA1 TYPE I_KNA1.

DATA: WA_FINAL TYPE I_FINAL.

DATA: WA_REASON TYPE I_REASON.

*DATA DECLARATION.

DATA: V_PROGNAME TYPE SY-REPID.

DATA: V_VBELN TYPE VBAK-VBELN.

DATA: V_GRIDTITLE TYPE LVC_TITLE.

***PARAMETERS: D_VARI LIKE DISVARIANT-VARIANT.

*DATA: I_VARIANT LIKE DISVARIANT.

*DATA: P_VARI LIKE DISVARIANT-VARIANT.

*DATA DECLARATION FOR CATALOGS LAYOUT SORT EVENTCATALOG TOPOFPAGE.

DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA: I_SORTINFO TYPE SLIS_T_SORTINFO_ALV.

DATA: I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA: I_EVENTCAT TYPE SLIS_T_EVENT.

*INITIALIZATION

INITIALIZATION.

V_PROGNAME = SY-REPID.

V_FLAG = SPACE.

*SELECTION SCREEN

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-002.

SELECT-OPTIONS: S_VBELN FOR V_VBELN.

SELECTION-SCREEN END OF BLOCK BLK1.

*AT SLECTION-SCREEN.

AT SELECTION-SCREEN.

PERFORM Z_VALIDATIONS.

*AT SELECTION SCREEN.

START-OF-SELECTION.

PERFORM Z_SELECT.

PERFORM CHECK_VALIDATION_FLAG.

PERFORM Z_FIELDCAT USING I_FIELDCAT.

PERFORM Z_LAYOUT.

PERFORM Z_SORTINFO USING I_SORTINFO.

PERFORM Z_EVENTCAT USING I_EVENTCAT.

PERFORM Z_GRIDTITLE.

PERFORM Z_LISTHEADER USING I_LISTHEADER.

PERFORM Z_DISPLAY.

&----

*& Form Z_VALIDATIONS

&----

FORM Z_VALIDATIONS .

SELECT VBELN INTO V_VBELN

UP TO 1 ROWS

FROM VBAK

WHERE VBELN IN S_VBELN.

ENDSELECT.

IF SY-SUBRC <> 0.

MESSAGE I002(SY) WITH 'No Records'.

V_FLAG = 'X'.

ENDIF.

ENDFORM. " Z_VALIDATIONS

&----

*& Form Z_FIELDCAT

&----

FORM Z_FIELDCAT USING P_I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: I_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

*VBAK-VELN

I_FIELDCAT-COL_POS = '1'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT SCROLLABLE AND

*HIDDABLE.

I_FIELDCAT-JUST = 'C'. " FOR JUSTIFICATION.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'SALES ORDER'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAK'. " FOR F1 & F4 HELP AS REFERNCED TO

*THE DDIC TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-SPRAS

I_FIELDCAT-COL_POS = '2'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'SPRAS'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'LANGUAGE'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 5. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'TVAUT'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-AUGRU

I_FIELDCAT-COL_POS = '3'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'AUGRU'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'REASON'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 5. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAK'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-bezei

I_FIELDCAT-COL_POS = '4'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'BEZEI'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'TVAUT'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-POSNR

I_FIELDCAT-COL_POS = '5'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'POSNR'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'ITEM'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 8. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-MATNR.

I_FIELDCAT-COL_POS = '6'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'MATNR'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'MATERIAL'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*VBAP-ZMENG

I_FIELDCAT-COL_POS = '7'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'ZMENG'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'QUANT'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*MAKT-MAKTX

I_FIELDCAT-COL_POS = '8'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'MAKTX'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'MAKT'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*LIPS-VBELN

I_FIELDCAT-COL_POS = '9'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'DELIVERY'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'LIPS'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*LIPS-LFIMG

I_FIELDCAT-COL_POS = '10'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'LFIMG'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-DO_SUM = 'X'.

I_FIELDCAT-SELTEXT_L = 'LFIMG'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'LIPS'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*parvw

I_FIELDCAT-COL_POS = '11'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'PARVW'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'PARTNER FUN'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBPA'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*KUNNR

I_FIELDCAT-COL_POS = '12'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'KUNNR'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'SHIP'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'VBPA'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

*NAME1

I_FIELDCAT-COL_POS = '13'. " POSITION OF THE COLUMN.

I_FIELDCAT-FIELDNAME = 'NAME1'. " FIELD FOR WHICH CATALOG ID FILLED.

I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD

*BELONGS TO.

I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.

I_FIELDCAT-SELTEXT_L = 'NAME'. " LONG TEXT FOR HEADER.

I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.

I_FIELDCAT-REF_TABNAME = 'KNA1'. " FOR F1 & F4 HELP AS REFERNCED TO

*TABLE.

APPEND I_FIELDCAT TO P_I_FIELDCAT.

ENDFORM. " Z_FIELDCAT

&----

*& Form Z_SELECT

&----

FORM Z_SELECT .

SELECT VBELN

AUGRU INTO CORRESPONDING FIELDS OF TABLE IT_VBAK

FROM VBAK

WHERE VBELN IN S_VBELN.

IF SY-SUBRC = 0.

SELECT VBELN

POSNR

MATNR

ZMENG INTO CORRESPONDING FIELDS OF TABLE IT_VBAP

FROM VBAP

FOR ALL ENTRIES IN IT_VBAK

WHERE VBELN = IT_VBAK-VBELN.

IF SY-SUBRC = 0.

SELECT SPRAS

AUGRU

BEZEI INTO CORRESPONDING FIELDS OF TABLE IT_REASON

FROM TVAUT

FOR ALL ENTRIES IN IT_VBAK

WHERE AUGRU = IT_VBAK-AUGRU.

IF SY-SUBRC = 0.

SELECT VBELN

PARVW

KUNNR INTO CORRESPONDING FIELDS OF TABLE IT_VBPA

FROM VBPA

FOR ALL ENTRIES IN IT_VBAK

WHERE VBELN = IT_VBAK-VBELN.

IF SY-SUBRC = 0.

SELECT KUNNR

NAME1 INTO CORRESPONDING FIELDS OF TABLE IT_KNA1

FROM KNA1

FOR ALL ENTRIES IN IT_VBPA

WHERE KUNNR = IT_VBPA-KUNNR.

IF SY-SUBRC = 0.

SELECT POSNR

MATNR

LFIMG INTO CORRESPONDING FIELDS OF TABLE IT_LIPS

FROM LIPS

FOR ALL ENTRIES IN IT_VBAP

WHERE POSNR = IT_VBAP-POSNR.

IF SY-SUBRC = 0.

SELECT MATNR

MAKTX INTO CORRESPONDING FIELDS OF TABLE IT_MAKT

FROM MAKT

FOR ALL ENTRIES IN IT_VBAP

WHERE MATNR = IT_VBAP-MATNR.

ENDIF.

ELSE.

MESSAGE I002(SY) WITH 'No Data found'.

LEAVE LIST-PROCESSING.

ENDIF.

IF SY-SUBRC = 0.

LOOP AT IT_VBAP INTO WA_VBAP.

READ TABLE IT_VBAK INTO WA_VBAK WITH KEY VBELN = WA_VBAP-VBELN

BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_VBAK-VBELN TO WA_FINAL-VBELN,

WA_VBAK-AUGRU TO WA_FINAL-AUGRU,

WA_VBAP-POSNR TO WA_FINAL-POSNR,

WA_VBAP-MATNR TO WA_FINAL-MATNR,

WA_VBAP-ZMENG TO WA_FINAL-ZMENG.

ENDIF.

READ TABLE IT_LIPS INTO WA_LIPS WITH KEY POSNR = WA_FINAL-POSNR

BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_LIPS-LFIMG TO WA_FINAL-LFIMG.

ENDIF.

READ TABLE IT_REASON INTO WA_REASON WITH KEY AUGRU =

WA_FINAL-AUGRU BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_REASON-SPRAS TO WA_FINAL-SPRAS,

WA_REASON-BEZEI TO WA_FINAL-BEZEI.

ENDIF.

READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_FINAL-MATNR

BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_MAKT-MAKTX TO WA_FINAL-MAKTX.

ENDIF.

READ TABLE IT_VBPA INTO WA_VBPA WITH KEY VBELN = WA_FINAL-VBELN

BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_VBPA-PARVW TO WA_FINAL-PARVW,

WA_VBPA-KUNNR TO WA_FINAL-KUNNR.

ENDIF.

READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_FINAL-KUNNR

BINARY SEARCH.

IF SY-SUBRC = 0.

MOVE: WA_KNA1-NAME1 TO WA_FINAL-NAME1.

ENDIF.

APPEND WA_FINAL TO IT_FINAL.

CLEAR WA_FINAL.

ENDLOOP.

ENDIF.

ENDFORM. " Z_SELECT

&----

*& Form Z_LAYOUT

&----

FORM Z_LAYOUT .

I_LAYOUT-ZEBRA = 'X'.

I_LAYOUT-TOTALS_TEXT = 'Total'(A00).

I_LAYOUT-SUBTOTALS_TEXT = 'SubTotal'(A01).

I_LAYOUT-BOX_TABNAME = 'IT_FINAL'.

ENDFORM. " Z_LAYOUT

&----

*& Form Z_SORTINFO

&----

FORM Z_SORTINFO USING P_I_SORTINFO TYPE SLIS_T_SORTINFO_ALV.

DATA: I_SORTINFO TYPE SLIS_SORTINFO_ALV.

CLEAR I_SORTINFO.

I_SORTINFO-SPOS = '1'.

I_SORTINFO-FIELDNAME = 'VBELN'.

I_SORTINFO-TABNAME = 'IT_FINAL'.

I_SORTINFO-UP = 'X'.

I_SORTINFO-GROUP = 'UL'. " I.E UNDERLINE AFTER EVERY GROUP

I_SORTINFO-SUBTOT = 'X'.

APPEND I_SORTINFO TO P_I_SORTINFO.

ENDFORM. " Z_SORTINFO

&----

*& Form Z_EVENTCAT

&----

FORM Z_EVENTCAT USING P_I_EVENTCAT TYPE SLIS_T_EVENT.

DATA: I_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_I_EVENTCAT

EXCEPTIONS

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

CLEAR I_EVENT.

READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO

I_EVENT.

IF SY-SUBRC = 0.

MOVE 'TOP_OF_PAGE' TO I_EVENT-FORM.

APPEND I_EVENT TO P_I_EVENTCAT.

ENDIF.

READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_PF_STATUS_SET INTO

I_EVENT.

IF SY-SUBRC = 0.

MOVE 'SET_PF_STATUS' TO I_EVENT-FORM.

APPEND I_EVENT TO P_I_EVENTCAT.

ENDIF.

CLEAR I_EVENT.

READ TABLE P_I_EVENTCAT INTO I_EVENT WITH KEY NAME =

SLIS_EV_USER_COMMAND .

IF SY-SUBRC = 0.

MOVE 'USER_COMMAND' TO I_EVENT-FORM.

APPEND I_EVENT TO P_I_EVENTCAT.

ENDIF.

ENDFORM. " Z_EVENTCAT

&----

*& Form Z_DISPLAY

&----

FORM Z_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_PROGNAME

*I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = V_GRIDTITLE

I_SAVE = 'A'

IS_LAYOUT = I_LAYOUT

IT_FIELDCAT = I_FIELDCAT[]

IT_SORT = I_SORTINFO

IT_EVENTS = I_EVENTCAT

IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_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.

ENDFORM. " Z_DISPLAY

&----

*& Form Z_GRIDTITLE

&----

FORM Z_GRIDTITLE .

V_GRIDTITLE = 'ALV FOR SALES ORDER DISPLAY'.

ENDFORM. " Z_GRIDTITLE

*TOP OF PAGE.

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = I_LISTHEADER.

ENDFORM. "TOP_OF_PAGE

*MENU SETTINGS.

FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ALV_MENU'.

ENDFORM. "SET_PF_STATUS

*USER-COMMAND

FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

DATA : VBELN TYPE VBELN_VA.

CASE P_UCOMM.

WHEN 'BACK'.

LEAVE PROGRAM.

WHEN '&IC1'.

CLEAR : VBELN.

VBELN = RS_SELFIELD-VALUE.

SET PARAMETER ID: 'AUN' FIELD VBELN.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDCASE.

ENDFORM. " USER_COMMAND

&----

*& Form Z_LISTHEADER

&----

FORM Z_LISTHEADER USING P_I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA: L_LISTHEADER TYPE SLIS_LISTHEADER.

REFRESH P_I_LISTHEADER.

CLEAR L_LISTHEADER.

L_LISTHEADER-TYP = 'H'.

L_LISTHEADER-INFO = TEXT-001.

APPEND L_LISTHEADER TO P_I_LISTHEADER.

CLEAR L_LISTHEADER.

L_LISTHEADER-TYP = 'H'.

L_LISTHEADER-INFO = TEXT-002.

APPEND L_LISTHEADER TO P_I_LISTHEADER.

ENDFORM. " Z_LISTHEADER

&----

*& Form check_validation_flag

&----

FORM CHECK_VALIDATION_FLAG .

IF NOT V_FLAG IS INITIAL.

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " check_validation_flag

How do I program double click in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=11601

http://www.sapfans.com/forums/viewtopic.php?t=23010

topic Re: Issue with SY-UCOMM in Application Development and Automation Discussions

Issue with SY-UCOMM

Re: Issue with SY-UCOMM

Re: Issue with SY-UCOMM

Re: Issue with SY-UCOMM

Re: Issue with SY-UCOMM