ABAP-保存本地程序

&---------------------------------------------------------------------
*& Report ZA008
*&
&---------------------------------------------------------------------
*&
*&
&---------------------------------------------------------------------
REPORT za008.

TABLES tadir.
DATA: BEGIN OF it_table OCCURS 0,
obj_name LIKE tadir-obj_name,
END OF it_table.
DATA report_table TYPE TABLE OF string WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 500.
DATA: file TYPE string,
path TYPE string.

SELECTION-SCREEN BEGIN OF BLOCK blk01 WITH FRAME." TITLE text-001 .
PARAMETER: obj_name LIKE tadir-obj_name DEFAULT ‘ZA008’.
SELECT-OPTIONS: object FOR tadir-object DEFAULT ‘PROG’,
author FOR tadir-author,
devclass FOR tadir-devclass.
SELECTION-SCREEN END OF BLOCK blk01 .

START-OF-SELECTION.
PERFORM frm_save_file.
&---------------------------------------------------------------------
*& Form FRM_SAVE_FILE
&---------------------------------------------------------------------

•   text
  

----------------------------------------------------------------------

• –> p1 text
• <-- p2 text
  ----------------------------------------------------------------------
  FORM frm_save_file .

CONCATENATE obj_name ‘%’ INTO obj_name.
SELECT obj_name
INTO TABLE it_table FROM tadir
WHERE obj_name LIKE obj_name
AND object IN object
AND author IN author
AND devclass IN devclass.

path = ‘D:\ABAP’.
CONDENSE path NO-GAPS.

LOOP AT it_table.

READ REPORT it_table-obj_name INTO report_table.

CLEAR file.
CONCATENATE path it_table-obj_name '.TXT' INTO file.

CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    filename = file
    filetype = 'ASC'
  TABLES
    data_tab = report_table.

ENDLOOP.
ENDFORM. " FRM_SAVE_FILE