* ====================================================================
* Stefanos Moschidis - SAP Certified Technical Consultant
* ====================================================================
*&---------------------------------------------------------------------*
*& Report  Z_READ_A_REMOTE_FILE
*&
*&--------------------------------------------------------------------
REPORT  Z_READ_A_REMOTE_FILE.


DATA : MSG(100) TYPE C .
data :  MREMPATH  type string .
DATA : MSY_SUBRC LIKE SY-SUBRC .


PARAMETERS : mfilenm1 like rlgrap-filename DEFAULT 'test.txt' .

START-OF-SELECTION .
  concatenate '\\' sy-host '\sapmnt\trans\bin\'
  into
  mrempath .
  concatenate  mrempath mfilenm1 into mfilenm1.
  OPEN DATASET mfilenm1 FOR INPUT IN TEXT MODE encoding default MESSAGE MSG  .
  MSY_SUBRC = SY-SUBRC .

  IF MSY_SUBRC = 0 .

    DO.
      READ DATASET mfilenm1 INTO MSG MAXIMUM LENGTH 100.
      IF sy-subrc = 0.
        WRITE: / MSG.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.

    CLOSE DATASET mfilenm1 .

  ENDIF .