ABAP自用代码

&---------------------------------------------------------------------
*& Report
&---------------------------------------------------------------------
*&
&---------------------------------------------------------------------
REPORT

DATA GT_VBAP TYPE STANDARD TABLE OF VBAP.
DATA GT_VBAP_UP TYPE STANDARD TABLE OF VBAP.
DATA GS_VBELN TYPE VBAP-VBELN.
DATA:
VG_FILENAME TYPE STRING,
VG_PATH TYPE STRING,
VG_FULLPATH TYPE STRING.

DATA:
VG_STRING TYPE XSTRING,
TBL_FILETABLE TYPE FILETABLE,
WG_FILETABLE TYPE FILE_TABLE,
VG_RC TYPE I.

CONSTANTS
CNS_M01 TYPE CHAR3 VALUE ‘M01’.

CONSTANTS
CNS_M02 TYPE CHAR3 VALUE ‘M02’.

SELECT-OPTIONS:
S_VBELN FOR GS_VBELN.

PARAMETERS:
P_RA1 TYPE C RADIOBUTTON GROUP R1 DEFAULT ‘X’,
P_PATH TYPE STRING MODIF ID M01.

PARAMETERS:
P_RA2 TYPE C RADIOBUTTON GROUP R1,
P_UP TYPE STRING MODIF ID M02.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
CASE SCREEN-GROUP1.
WHEN CNS_M01.
IF P_RA1 IS INITIAL.
SCREEN-INPUT = 0.
CLEAR: P_PATH.
ENDIF.
WHEN CNS_M02.
IF P_RA2 IS INITIAL.
SCREEN-INPUT = 0.
CLEAR : P_UP.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PATH.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

• EXPORTING
• WINDOW_TITLE =
• DEFAULT_EXTENSION =
• DEFAULT_FILE_NAME =
• WITH_ENCODING =
• FILE_FILTER =
• INITIAL_DIRECTORY =
• PROMPT_ON_OVERWRITE = ‘X’
  CHANGING
  FILENAME = VG_FILENAME
  PATH = VG_PATH
  FULLPATH = VG_FULLPATH