File copy from AL11

Question

Hi Experts,
  I generated a Extract from BW and placed it in a file in <b>AL11</b>  by using function module/program.
for some reasons i can't use infospoke.
The generated file is in AL11,How can i copy the file to by desktop
Thanks

Answer 1

Hi,
you need to make an abap program.
Try this code:
*& Report  ZBAJARARCH
REPORT  ZBAJARARCH.
TABLES:
    sscrfields. "Campos en las imágenes de selección
DATA:
    it(5000) OCCURS 100 WITH HEADER LINE.
*-parameters----
SELECTION-SCREEN:
    BEGIN OF BLOCK b1 WITH FRAME TITLE text-004.
PARAMETERS:
    sfn(128) OBLIGATORY LOWER CASE MEMORY ID z0s   " server file name
             DEFAULT 'C:',
    pfn(128) OBLIGATORY LOWER CASE MEMORY ID z0p   " pc file name
             DEFAULT 'C:'.
SELECTION-SCREEN END OF BLOCK b1.
*-events----
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pfn.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       CHANGING
            file_name     = pfn
       EXCEPTIONS
            mask_too_long = 1
            OTHERS        = 2.
START-OF-SELECTION.
  PERFORM getfrsrv.
      FORM getfrsrv                                                 *
FORM getfrsrv.
  REFRESH it.
  PERFORM borrar_file_si_esixte.
  PERFORM dsopen_input_text
      USING sfn.
  PERFORM xfer2it.
ENDFORM.
      FORM xfer2it                                                  *
FORM xfer2it.
  DATA: cont TYPE i.
  WHILE sy-subrc = 0.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
         EXPORTING
              percentage = cont
              text       = 'Espere por favor'.
    PERFORM dsread
        USING    sfn
        CHANGING it.
    IF sy-subrc <> 0.
      EXIT.
    ELSE.
      ADD 1 TO cont.
    ENDIF.
    APPEND it.
    IF cont = 100.
      PERFORM download.
      REFRESH it. CLEAR it.
      CLEAR cont.
    ENDIF.
  ENDWHILE.
  PERFORM download.
  REFRESH it. CLEAR it.
  PERFORM dsclose
      USING sfn.
ENDFORM.
      FORM dsclose                                                  *
-->  DSN                                                           *
FORM dsclose
    USING dsn TYPE c.
  CLOSE DATASET dsn.
  IF sy-subrc <> 0.
    MESSAGE e001(zk) WITH 'Error closing' dsn 'rc=' sy-subrc.
  ENDIF.
ENDFORM.
      FORM dsopen_&1_&2                                             *
-->  DSN                                                           *
FORM dsopen_input_text USING
        dsn  TYPE c.
  DATA msg(80).
  OPEN DATASET dsn FOR INPUT IN TEXT MODE MESSAGE msg encoding default.
  IF sy-subrc <> 0.
    MESSAGE e001(zk) WITH 'Error opening' dsn msg.
  ENDIF.
ENDFORM.
      FORM dsread                                                   *
-->  DSN                                                           *
-->  REC                                                           *
FORM dsread
    USING    dsn TYPE c
    CHANGING rec.
  STATICS: rctr TYPE i.
  READ DATASET dsn INTO rec.
  CASE sy-subrc.
    WHEN 0.
      ADD 1 TO rctr.
    WHEN 4.
      MESSAGE s001(zk) WITH rctr 'records read from' dsn.
    WHEN OTHERS.
      MESSAGE e001(zk) WITH 'Error reading' dsn 'rc=' sy-subrc.
  ENDCASE.
ENDFORM.
      FORM download                                                 *
FORM download.
  DATA: ls_file TYPE string.
  ls_file = pfn.
  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            filename            = pfn
            mode                = 'A'
       TABLES
            data_tab            = it
       EXCEPTIONS
            file_open_error     = 1
            file_write_error    = 2
            invalid_filesize    = 3
            invalid_table_width = 4
            invalid_type        = 5
            no_batch            = 6
            unknown_error       = 7
            OTHERS              = 8.
  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.
*&      Form  borrar_file_si_esixte
      text
-->  p1        text
<--  p2        text
FORM borrar_file_si_esixte.
  DATA: ls_file TYPE string,
        res,
        rc TYPE i.
  ls_file = pfn.
  CALL METHOD cl_gui_frontend_services=>file_exist
    EXPORTING
      file            = ls_file
    RECEIVING
      result          = res
    EXCEPTIONS
      cntl_error      = 1
      error_no_gui    = 2
      wrong_parameter = 3
      OTHERS          = 4
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  IF res = 'X'.
    CALL METHOD cl_gui_frontend_services=>file_delete
      EXPORTING
        filename           = ls_file
      CHANGING
        rc                 = rc
      EXCEPTIONS
        file_delete_failed = 1
        cntl_error         = 2
        error_no_gui       = 3
        file_not_found     = 4
        access_denied      = 5
        unknown_error      = 6
        OTHERS             = 7.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDIF.
ENDFORM.                    " borrar_file_si_esixte
Hope this helps.
Regards,
Diego