Enable F8 function ( execute )

[Former Member]

Hi Experts,

I am able to disable the F8 function key using the FF code:

  gv_ucomm = 'ONLI'.

  APPEND gv_ucomm TO gt_ucomm.

  CLEAR gv_ucomm.

  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'

    EXPORTING

      p_status        = sy-pfkey

*     P_PROGRAM       = ' '

    TABLES

      p_exclude       = gt_ucomm.

Question:

How do I ENABLE it again in my program?

Thanks!

Carl

[Former Member]

Hi,

  You can use the event AT SELECTION-EVENT with the same code to put it back.

PARAMETERS: p_matnr TYPE matnr.

DATA: l_text TYPE char1.

DATA: gt_ucomm TYPE STANDARD TABLE OF syucomm.

DATA: gv_ucomm TYPE syucomm.

AT SELECTION-SCREEN OUTPUT.

   IF l_text = 'X'.

     CLEAR: gt_ucomm.

     CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'

       EXPORTING

         p_status  = sy-pfkey

       TABLES

         p_exclude = gt_ucomm.

     l_text = space.

   ELSE.

     gv_ucomm = 'ONLI'.

     APPEND gv_ucomm TO gt_ucomm.

     CLEAR gv_ucomm.

     CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'

       EXPORTING

         p_status  = sy-pfkey

       TABLES

         p_exclude = gt_ucomm.

     l_text = 'X'.

   ENDIF.

Thanks,

Naren

[Former Member]

Hi Naren,

Thanks a LOT!!

Carl