* ==================================================================== * Stefanos Moschidis - SAP Certified Technical Consultant * ==================================================================== *&---------------------------------------------------------------------* *& Report Z_WRITE_A_REMOTE_FILE *& *&-------------------------------------------------------------------- REPORT Z_WRITE_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' . PARAMETERS : MLINE1 LIKE MSG DEFAULT 'LINE1'. PARAMETERS : MLINE2 LIKE MSG DEFAULT 'LINE2'. PARAMETERS : MLINE3 LIKE MSG DEFAULT 'LINE3'. PARAMETERS : MLINE4 LIKE MSG DEFAULT 'LINE4'. START-OF-SELECTION . concatenate '\\' sy-host '\sapmnt\trans\bin\' into mrempath . concatenate mrempath mfilenm1 into mfilenm1. OPEN DATASET mfilenm1 FOR OUTPUT IN TEXT MODE encoding default MESSAGE MSG . MSY_SUBRC = SY-SUBRC . IF MSY_SUBRC = 0 . TRANSFER MLINE1 TO mfilenm1 . TRANSFER MLINE2 TO mfilenm1 . TRANSFER MLINE3 TO mfilenm1 . TRANSFER MLINE4 TO mfilenm1 . ENDIF . IF MSY_SUBRC EQ 0 . CLOSE DATASET mfilenm1 . MESSAGE I398(00) WITH 'DATA WRITTEN SUCCESSFULLY' . ELSE . MESSAGE I398(00) WITH 'DATA NOT WRITTEN ' . ENDIF .