This is the example given in the FM documentation.
Example
Example for calling RS_EXTERNAL_SELSCREEN_STATUS:
PROGRAM SAPDBxyz DEFINING DATABASE xyz.
...
FORM INIT.
CALL FUNCTION 'RS_EXTERNAL_SELSCREEN_STATUS'
EXPORTING P_FB = 'TEST_EXTERNAL_STATUS'.
ENDFORM.
...
Example for function module that sets the status:
FUNCTION TEST_EXTERNAL_STATUS.
*"----
""Local interface:
*" IMPORTING
*" P_SUBMIT_MODE
*" TABLES
*" P_EXCLUDE STRUCTURE RSEXFCODE
*" EXCEPTIONS
*" NO_ACTION
*"----
IF P_SUBMIT_MODE NE SPACE.
RAISE NO_ACTION.
ENDIF.
SET PF-STATUS 'TEST' EXCLUDING P_EXCLUDE.
SET TITLEBAR 'TST'.
ENDFUNCTION.
*********************************************************
INITIALIZATION.
IMPORT T185V FROM MEMORY
ID SD_COND_MEM_01. "JAY
RV13B-KVEWE = 'B'.
RV13B-KOTABNR = '001'.
CALL FUNCTION 'RS_SUBMIT_INFO'
IMPORTING
P_SUBMIT_INFO = RSSUBINFO.
IF NOT RSSUBINFO-MODE_NORML IS INITIAL.
TITEL = T185V-CTITEL.
CALL FUNCTION 'RV_CONDITION_GET_CUA_REPO'
EXPORTING
PFKEY_I = 'BSELE'
TITLE_I = TITEL
PAR1_I = T185V-PARA1
PAR2_I = T185V-PARA2
PAR3_I = T185V-PARA3
PAR4_I = T185V-PARA4
TABLES
EXCL_I = AUSSCHLUSS.
CALL FUNCTION 'RS_EXTERNAL_SELSCREEN_STATUS'
EXPORTING
P_FB = 'RV_CONDITION_SET_CUA_REPO'.
ENDIF.
Bluesky
