如何下载abap代码到本地。

REPORT zzm_down .

*table decleration
TABLES : tadir.
*data decleration
TYPES: codeline(255).
DATA: sourcecode TYPE STANDARD TABLE OF codeline WITH HEADER LINE.
DATA: prog(60) ,
      codefile  LIKE rlgrap-filename,
      filename  TYPE string,

      func_tab    TYPE TABLE OF rs38l_incl WITH HEADER LINE,
      pname       TYPE pname,
      poolname    TYPE tlibg-area,
      fmcount(3)  TYPE n ,
      prgcount(3) TYPE n,
      msg1(45).

*Internal table for prgram info
DATA: BEGIN OF pgminfo OCCURS 0,
  pgmid TYPE tadir-pgmid,
  object TYPE tadir-object,
  obj_name TYPE tadir-obj_name,
  devclass TYPE tadir-devclass,
END OF pgminfo.

*____________________________________________________________________

*Get Development class from User
PARAMETERS: pckg TYPE tadir-devclass.
*____________________________________________________________________

*Initialize variables
fmcount  = '000'.
prgcount = '000'.
*____________________________________________________________________

*Proceed one by one
PERFORM cleardata.
PERFORM write_prgrms.
PERFORM cleardata.
PERFORM write_fms.

CONCATENATE prgcount ' Prgs Files & '
            fmcount ' FM Files Written' INTO msg1.
MESSAGE s001(00) WITH msg1.

*____________________________________________________________________

*&------------------------------------------------------------------*
*&      Form  cleardata
*&------------------------------------------------------------------*
*       text
*---------------------