FUNCTION Z_LOAD_FILE_FROM_SERVER.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     REFERENCE(PI_FILENAME) TYPE  STRING
*"  CHANGING
*"     REFERENCE(PC_FILELINES) TYPE  STANDARD TABLE
*"  EXCEPTIONS
*"      FILE_NOT_LOADED
*"----------------------------------------------------------------------
  DATA: BEGIN OF lwa_xline,
          XLINE(3000) TYPE X,
        END OF lwa_xline.
  DATA: lh_all_file TYPE STRING,
        lh_len   TYPE I,
        lh_len1  TYPE I,
        lh_line(3000) TYPE C.
  DATA: c_conv TYPE REF TO CL_ABAP_CONV_IN_CE.

  OPEN DATASET pi_filename FOR INPUT IN BINARY MODE.
  IF sy-subrc <> 0.
    PERFORM log_msg USING '' '' 'Z...' c_error c_important '402' pi_filename '' '' ''.
    RAISE FILE_NOT_LOADED.
  ENDIF.

  DO.
    CLEAR lh_len.
    READ DATASET pi_filename INTO lwa_xline-xline ACTUAL LENGTH lh_len.
    IF lh_len > 0.
      c_conv = cl_abap_conv_in_ce=>create( input = lwa_xline-xline
                                           replacement = space
                                           encoding = '1504' ).
      c_conv->read( EXPORTING n = lh_len IMPORTING data = lh_line len = lh_len1 ).
      CONCATENATE lh_all_file lh_line INTO lh_all_file RESPECTING BLANKS.
    ENDIF.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
  ENDDO.

  " Это для юниксовых файлов, для виндовых можно по-другому, можно универсально придумать..
  REFRESH pc_filelines.
  SPLIT lh_all_file AT CL_ABAP_CHAR_UTILITIES=>CR_LF+1(1) INTO TABLE pc_filelines.
ENDFUNCTION.