DATA:
    it_files    TYPE zcl_tar=>ty_files.

  DATA:
    lv_packed   TYPE xstring,
    lv_msg      TYPE string,
    lo_tar_out  TYPE REF TO zcl_tar,
    lx_error    TYPE REF TO zcx_error,
    ls_file     TYPE zcl_tar=>ty_file.
  
 TRY.
      lo_tar_out = zcl_tar=>new( ).

      LOOP AT it_files INTO ls_file.
        lo_tar_out->append(
          iv_name     = ls_file-name
          iv_content  = ls_file-content
          iv_date     = ls_file-date
          iv_time     = ls_file-time
          iv_mode     = ls_file-mode
          iv_typeflag = ls_file-typeflag ).
      ENDLOOP.

      lv_data = lo_tar_out->save( ).

      lv_packed = lo_tar_out->gzip( lv_data ).

    CATCH zcx_error INTO lx_error.
      lv_msg = lx_error->get_text( ).
      MESSAGE lv_msg TYPE 'I' DISPLAY LIKE 'E'.
  ENDTRY.

  DATA:
    iv_filename TYPE string,
    iv_data     TYPE xstring.

  DATA:
    lv_unpacked TYPE xstring,
    lv_filedata TYPE xstring,
    lv_msg      TYPE string,
    lo_tar_in   TYPE REF TO zcl_tar,
    lx_error    TYPE REF TO zcx_error,
    ls_file     TYPE zcl_tar=>ty_file,
    lt_files    TYPE zcl_tar=>ty_files.
  
  TRY.
      lo_tar_in = zcl_tar=>new( ).

      IF iv_filename CP '*.tgz' OR iv_filename CP '*.tar.gz'.
        lv_unpacked = lo_tar_in->gunzip( iv_data ).
      ELSE.
        lv_unpacked = iv_data.
      ENDIF.

      lo_tar_in->load( lv_unpacked ).

      lt_files = lo_tar_in->list( ).

      LOOP AT lt_files INTO ls_file.
        lv_filedata = lo_tar_in->get( ls_file-name ).
        " ...
      ENDLOOP.

    CATCH zcx_error INTO lx_error.
      lv_msg = lx_error->get_text( ).
      MESSAGE lv_msg TYPE 'I' DISPLAY LIKE 'E'.
  ENDTRY.

IMPORT '*' TO 'z$1_your_project$2' FROM 'tar'.
" or
IMPORT '*' TO '/namespace/$1$2' FROM 'tar'.