A Wetpaint Site | TV Fandex 100

Build search help(F4) for PC and server file selection

This place is most things about SAP.
It's DAVID's knowledge base to summarize his knowledge of SAP during work.
If you also wanna build it to share your knowledge togerther with me here, please just mail blueoxygen at gmail.com.

For PC file selection

PARAMETERS p_local LIKE rlgrap-filename DEFAULT 'C:/'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_local.
PERFORM frm_local_files_f4.
FORM frm_local_files_f4.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
program_name = sy-repid
dynpro_number = sy-dynnr
field_name = 'p_local'
static = space
mask = text-001
CHANGING
file_name = p_local
EXCEPTIONS
mask_too_long = 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. "frm_local_files_f4

*&---------------------------------------------------------------------*
*& Form FRM_PC_FILENAME_GET
*&---------------------------------------------------------------------*
* Search help for input file
*&---------------------------------------------------------------------*
* -->UP_MODE モード選択:
* 開くの場合は”O”
* 保存の場合は”S”
* <--CP_FILENAME ファイル名称
*----------------------------------------------------------------------*
FORM FRM_PC_FILENAME_GET USING VALUE(UP_MODE) TYPE C
CHANGING VALUE(CP_FILENAME) TYPE RLGRAP-FILENAME.
*【ローカルデータ宣言】
DATA:
LC_FILE TYPE STRING, "ファイル名称
LC_PATH TYPE STRING, "ファイル経路
LC_FULLPATH TYPE STRING, "出力ファイル名称
L_TAB_FILE TYPE FILETABLE, "ファイルを維持するテーブル
LSTR_FILE TYPE FILE_TABLE, "ファイル名称を格納するレコード
LC_AMOUNT TYPE I. "ファイル名称の個数
IF UP_MODE = CNS_MODE_SAVE.
* モード選択は保存の場合、ファイルの検索ヘルプをポップアップ
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
CHANGING
FILENAME = LC_FILE "ファイル名称
PATH = LC_PATH "ファイル経路
FULLPATH = LC_FULLPATH "全ファイル名称
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC = 0.
CP_FILENAME = LC_FULLPATH.
ENDIF.
ELSE.
* モード選択は開くの場合、ファイルの検索ヘルプをポップアップ
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
CHANGING
FILE_TABLE = L_TAB_FILE "ファイルテーブル
RC = LC_AMOUNT "ファイル名称の個数
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5.
IF SY-SUBRC = 0.
READ TABLE L_TAB_FILE INTO LSTR_FILE INDEX 1.
CP_FILENAME = LSTR_FILE.
ENDIF.
ENDIF.
ENDFORM. " FRM_PC_FILENAME_GET

For Server file selection

PARAMETERS p_server LIKE filename-pathintern.

blueoxygen	Latest page update: made by blueoxygen , Jun 10 2007, 10:43 PM EDT (about this update About This Update Edited by blueoxygen view changes - complete history)
	Keyword tags: abap file More Info: links to this page