Registration

Dear SAP Community Member,
In order to fully benefit from what the SAP Community has to offer, please register at:
http://scn.sap.com
Thank you,
The SAP Community team.
Skip to end of metadata
Go to start of metadata
Error rendering macro 'code': Invalid value specified for parameter 'lang'
REPORT zexecute.
DATA: BEGIN OF i_excl_tab OCCURS 0,
        pfkey LIKE sy-pfkey.
DATA: END OF i_excl_tab.

PARAMETERS: p_stdpf RADIOBUTTON GROUP rad1 USER-COMMAND rad,
            p_ownpf RADIOBUTTON GROUP rad1.

AT SELECTION-SCREEN OUTPUT.
  PERFORM set_sel_screen_pf_status.

START-OF-SELECTION.
*---------------------------------------------------------------------*
* FORM SET_SEL_SCREEN_PF_STATUS *
*---------------------------------------------------------------------*
FORM set_sel_screen_pf_status.
  DATA: l_pf_status LIKE sy-pfkey,
        l_program LIKE sy-repid.
  REFRESH i_excl_tab.
  IF p_stdpf = 'X'.
*-- change the standard PF status for the selection screen by removing
* the following functions
    MOVE 'ONLI' TO i_excl_tab-pfkey.
    APPEND i_excl_tab.
    CLEAR i_excl_tab.
    MOVE 'SJOB' TO i_excl_tab-pfkey.
    APPEND i_excl_tab.
    CLEAR i_excl_tab.
    MOVE 'PRIN' TO i_excl_tab-pfkey.
    APPEND i_excl_tab.
    CLEAR i_excl_tab.
    l_pf_status = '%_00'.
    l_program = 'RSSYSTDB'.
  ELSE.
*-- keep all the standard buttons open
    REFRESH i_excl_tab.
    CLEAR i_excl_tab.
    l_pf_status = '%_00'.
    l_program = sy-cprog.
  ENDIF.
  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status  = l_pf_status
      p_program = l_program
    TABLES
      p_exclude = i_excl_tab.
ENDFORM. " SET_SEL_SCREEN_PF_STATUS