PARAMETERS : P_PROJID TYPE ZBC400_PROJ_113-PROJID.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PROJID.
PERFORM SUB_INIT_P_PROJID_F4HELP.
*&---------------------------------------------------------------------*
*& Form sub_init_p_projid_f4help
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SUB_INIT_P_PROJID_F4HELP .
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = 'P_PROJID'
* DEF_PATH = ' '
MASK = ' '
MODE = '0'
* TITLE = ' '
IMPORTING
FILENAME = P_PROJID
* RC =
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5
.
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.