anchor.diff:      ENDIF.
   
       ro_html->add( '</tr>' ).
  +
  +  ENDMETHOD.
  +
  +  METHOD package_zip.
  +
  +    DATA: lo_repo       TYPE REF TO lcl_repo_offline,
  +          ls_data       TYPE lcl_persistence_repo=>ty_repo,
  +          lv_returncode TYPE c,
  +          lv_url        TYPE string,
  +          lv_package    TYPE devclass,
  +          lt_fields     TYPE TABLE OF sval.
  +
  +    FIELD-SYMBOLS: <ls_field> LIKE LINE OF lt_fields.
  +
  +
  +    APPEND INITIAL LINE TO lt_fields ASSIGNING <ls_field>.
  +    <ls_field>-tabname   = 'TDEVC'.
  +    <ls_field>-fieldname = 'DEVCLASS'.
  +    <ls_field>-fieldtext = 'Package'.                       "#EC NOTEXT
  +
  +    CALL FUNCTION 'POPUP_GET_VALUES'
  +      EXPORTING
  +        no_value_check  = abap_true
  +        popup_title     = 'Export'             "#EC NOTEXT
  +      IMPORTING
  +        returncode      = lv_returncode
  +      TABLES
  +        fields          = lt_fields
  +      EXCEPTIONS
  +        error_in_fields = 1
  +        OTHERS          = 2.
  +    IF sy-subrc <> 0.
  +      _raise 'Error from POPUP_GET_VALUES'.
  +    ENDIF.
  +    IF lv_returncode = 'A'.
  +      RETURN.
  +    ENDIF.
  +
  +    READ TABLE lt_fields INDEX 1 ASSIGNING <ls_field>.
  +    ASSERT sy-subrc = 0.
  +    TRANSLATE <ls_field>-value TO UPPER CASE.
  +
  +    ls_data-key             = 'DUMMY'.
  +    ls_data-package         = <ls_field>-value.
  +    ls_data-master_language = sy-langu.
  +
  +    CREATE OBJECT lo_repo
  +      EXPORTING
  +        is_data = ls_data.
  +
  +    lcl_zip=>export( lo_repo ).
   
     ENDMETHOD.
   
  
positive.code: 
    ENDMETHOD.                    "decode_files
  
    METHOD export_key.
  
      DATA: lo_repo TYPE REF TO lcl_repo,
            lo_log  TYPE REF TO lcl_log,
            lt_zip  TYPE ty_files_item_tt.
  
  
      lo_repo = lcl_repo_srv=>get( iv_key ).
  
      CREATE OBJECT lo_log.
  
      lt_zip = lo_repo->get_files_local( lo_log ).
  
      IF lo_log->count( ) > 0.
        lo_log->show( ).
      ENDIF.
  
      IF iv_zip = abap_true.
        file_download( iv_package = lo_repo->get_package( )
                       iv_xstr = encode_files( lt_zip ) ).
      ELSE.
        files_commit( lt_zip ).
  
negative.code:     CREATE OBJECT lo_betasub.
  
      lo_betasub->add( iv_txt = 'Database util'    iv_cmd = 'sapevent:db' ).
      lo_betasub->add( iv_txt = 'Package to zip'   iv_cmd = 'sapevent:packagezip' ).
  
      lo_toolbar->add( iv_txt = 'Refresh All'      iv_cmd = 'sapevent:refresh' ).
      lo_toolbar->add( iv_txt = 'Clone'            iv_cmd = 'sapevent:install' ).
  