Program to download programs

[Former Member]

Hi all

I have been using a Z- program naming ZASDOWNLOAD which was used for downloading the programs, packages from system to HTML format... unfortunately that program has been deleted from my system during upgrade.

can anyone please provide me with that or give me the name of website to download it from.

thanks in advance.

Prateek

[Former Member]

Hi Prateek,

please check this link

Best regards,

raam

[Former Member]

hi there...

sap has provided the utility called 'save as local file'.... why dont u use that.... i feel u need the code of the program, right?? then save as local file is the best option..... its next to the code checker button on the panel as pretty printer.

hope it helps.

[former_member189059]

This code will download many programs into the text format

*&---------------------------------------------------------------------*
*& Report  ZKRIS_DOWNLOAD_MANY_PROGRAMS
*&---------------------------------------------------------------------*
*& Author  : Kris Donald
*& Purpose : Download many programs for backup (wildcard based)
*&---------------------------------------------------------------------*

REPORT ZKRIS_DOWNLOAD_MANY_PROGRAMS.

TABLES tadir.

TYPES: BEGIN OF t_type,
  line(256),
  END OF t_type.

DATA rep_table TYPE STANDARD TABLE OF t_type WITH
NON-UNIQUE DEFAULT KEY INITIAL SIZE 500.

DATA: file TYPE string,"RLGRAP-FILENAME.
path TYPE string.

selection-screen begin of block b1 with frame title frttl.

PARAMETER: obj_name LIKE tadir-obj_name DEFAULT 'Z%'.

SELECT-OPTIONS: object FOR tadir-object DEFAULT 'PROG',
author FOR tadir-author DEFAULT sy-uname,
devclass FOR tadir-devclass.

selection-screen end of block b1.

initialization.
  frttl = 'Choose your options'.

START-OF-SELECTION.

DATA: BEGIN OF it_table OCCURS 0,
  obj_name LIKE tadir-obj_name,
  END OF it_table.

DATA: BEGIN OF wa_table,
  obj_name LIKE tadir-obj_name,
  END OF wa_table.

DATA: message_text TYPE string.

  IF devclass-high <> ''.
    CONCATENATE 'C:\BACKUP-' sy-datum+6(2) '.' sy-datum+4(2) '.'
    sy-datum+0(4) '-' sy-sysid '-' devclass-low
    '-' devclass-high '\'
    INTO path.
  ELSE.
    CONCATENATE 'C:\BACKUP-' sy-datum+6(2) '.' sy-datum+4(2) '.'
    sy-datum+0(4) '-' sy-sysid '-' devclass-low
    '\'
    INTO path.
  ENDIF.
  CONDENSE path NO-GAPS.

  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.

  SORT it_table BY obj_name.
  LOOP AT it_table INTO wa_table.

    READ REPORT wa_table-obj_name INTO rep_table.
    IF wa_table-obj_name CS '\'.
    ELSE.
      CLEAR file.
      CONCATENATE path wa_table-obj_name '.TXT' INTO file.
      IF sy-subrc = 0.
        CALL FUNCTION 'GUI_DOWNLOAD'
          EXPORTING
            filename                = file
            filetype                = 'ASC'
          TABLES
            data_tab                = rep_table
          EXCEPTIONS
            file_write_error        = 1
            no_batch                = 2
            gui_refuse_filetransfer = 3
            invalid_type            = 4
            no_authority            = 5
            unknown_error           = 6
            header_not_allowed      = 7
            separator_not_allowed   = 8
            filesize_not_allowed    = 9
            header_too_long         = 10
            dp_error_create         = 11
            dp_error_send           = 12
            dp_error_write          = 13
            unknown_dp_error        = 14
            access_denied           = 15
            dp_out_of_memory        = 16
            disk_full               = 17
            dp_timeout              = 18
            file_not_found          = 19
            dataprovider_exception  = 20
            control_flush_error     = 21
            OTHERS                  = 22.
        IF sy-subrc <> 0.
          WRITE :/ 'File download error,Message code:',sy-subrc,
          ' creating file ',file.
        ENDIF.
      ELSE.
        WRITE: / 'Error Occured'.
      ENDIF.
    ENDIF.
  ENDLOOP.
  message_text = 'FILE(S) CREATED IN FOLDER'.
  CONCATENATE message_text path INTO message_text SEPARATED BY space.
  MESSAGE message_text TYPE 'I'.

[Former Member]

closed