How to see the file at the application server

Question

HI TO ALL SDNERS ,
                             THIS IS MY CODE WHERE TO CHECK THE DOWNLOADED FILE AT THE APPLICATION SERVER.IN TCODE AL11 I HAVE SEEN THERE IS NO FILE GETTING CREATED.WHEN TRANSFERRING THE SY-SUBRC VALUE IS ZERO.
Program Name        : ZME11_BDC.
Title               : PURCHASE INFORMATION RECORD LOAD PROGRAM
Program Objective   : THIS PROGRAM READS IN THE PURCHASE
                      INFORMATION FILE. IT CREATES A BDC SESSION TO
                      USE TO LOAD THE PURCHASE INFORMATION RECORDS
                      INTO SAP using the ME11 Transaction.
REPORT  ZME11_BDC no standard page heading MESSAGE-ID ZHNC line-size 55.
            constants declaration
constants: c_x value 'X',
           c_sess type apqi-groupid value 'zcustomer',
           c_xd01 type tstc-tcode value 'ME11'.
              DECLARING VARIABLES
DATA: V_MSG(255),
      V_ERREC TYPE I,"NO OF FAILED RECORDS
      V_LINES."NO OF RECORDS
       FLAG DECLARATIONS
DATA: FG_DATA_EXIST VALUE 'X',"CHECK FOR DATA
      FG_SESSION_OPEN VALUE ''.
      STRUCTURES AND INTERNAL TABLE DECLARATIONS
TYPES :BEGIN OF TY_PIR,
         LIFNR TYPE EINA-LIFNR,
         MATNR TYPE EINA-MATNR,
         EKORG TYPE EINE-EKORG,
         WERKS TYPE EINE-WERKS,
         VERKF TYPE EINA-VERKF,"sales person
         TELF1 TYPE EINA-TELF1,"telephone
         URZLA TYPE EINA-URZLA,"country
         REGIO TYPE EINA-REGIO,"region
         APLFZ(5),"plan deleivery time
         EKGRP TYPE EINE-EKGRP,"purchase group
         NORBM(13),
         NETPR(13),
     END OF TY_PIR.
DATA : IT_PIR TYPE TABLE OF TY_PIR,
       WA_PIR LIKE LINE OF IT_PIR.
DATA: BEGIN OF IT_BDCDATA.
INCLUDE STRUCTURE BDCDATA.
DATA END OF IT_BDCDATA.
DATA : BEGIN OF IT_BDCMSG.
INCLUDE STRUCTURE BDCMSGCOLL.
DATA END OF IT_BDCMSG.
                  SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : FNAME TYPE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.
                       AT SELECTION ON VALUE REQUEST
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
   PROGRAM_NAME        = SYST-CPROG
   DYNPRO_NUMBER       = SYST-DYNNR
   FIELD_NAME          = ' '
IMPORTING
   FILE_NAME           = FNAME.
                         START OF SELECTION
START-OF-SELECTION.
PERFORM F_GET_DATA USING FNAME
                   CHANGING IT_PIR.
PERFORM F_GENERATE_DATASET USING FNAME
                           CHANGING IT_PIR WA_PIR.
*&      Form  F_GET_DATA
      text
     -->P_V_FNAME  text
     <--P_IT_PIR  text
FORM F_GET_DATA  USING    P_FNAME LIKE FNAME
                 CHANGING P_IT_PIR LIKE IT_PIR.
DATA: LV_FILE TYPE STRING.
LV_FILE  = FNAME.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME                      = LV_FILE
   FILETYPE                      = 'DAT'
  HAS_FIELD_SEPARATOR           = 'X'
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
  TABLES
    DATA_TAB                      = P_IT_PIR
EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF P_IT_PIR IS INITIAL.
FG_DATA_EXIST = ''.
ENDIF.
ENDFORM.                    " F_GET_DATA
*&      Form  F_GENERATE_DATASET
      text
     -->P_V_FNAME  text
     <--P_IT_PIR  text
FORM F_GENERATE_DATASET  USING    P_V_FNAME LIKE FNAME
                         CHANGING P_IT_PIR LIKE IT_PIR
                                  P_WA_PIR LIKE WA_PIR.
MESSAGE I001(ZHNC).
*OPENING FILE AT THE APPLICATION SERVER FOR WRITING
OPEN DATASET FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC  EQ 0.
MESSAGE I002(ZHNC).
LOOP AT P_IT_PIR INTO P_WA_PIR.
SPLIT P_WA_PIR AT '*' INTO P_WA_PIR-LIFNR
                           P_WA_PIR-MATNR
                           P_WA_PIR-EKORG
                           P_WA_PIR-WERKS
                           P_WA_PIR-VERKF
                           P_WA_PIR-TELF1
                           P_WA_PIR-URZLA
                           P_WA_PIR-REGIO
                           P_WA_PIR-APLFZ
                           P_WA_PIR-EKGRP
                           P_WA_PIR-NORBM.
*TRANSFER THE FILE FROM INTERNAL TABLE TO APPLICATION SERVER
MESSAGE I003(ZHNC).
TRANSFER P_WA_PIR TO FNAME.
ENDLOOP.
*CLOSING THE FILE AT THE APPLICATION SERVER
CLOSE DATASET FNAME.
ENDIF.

Answer 1

Hello,
I made a similar program. You can have a look at it.
*&      Form  write_to_app_server
      text
-->  p1        text
<--  p2        text
FORM write_to_app_server.
To get filename
  PERFORM get_filename.
To write into the application server
  OPEN DATASET g_filename_with_path FOR OUTPUT IN TEXT MODE.
  IF sy-subrc = 0.
    LOOP AT <l_table> INTO <l_line>.
      TRANSFER <l_line> TO g_filename_with_path.
    ENDLOOP.
    CLOSE DATASET g_filename_with_path.
  ELSE.
    CLOSE DATASET g_filename_with_path.
  ENDIF.
To send mail
  PERFORM send_mail.
ENDFORM.                    " write_to_app_server
*&      Form  get_filename
      text
-->  p1        text
<--  p2        text
FORM get_filename.
  DATA : l_log_path TYPE  filepath-pathintern
                      VALUE 'Y28M_DOWNLOADS_BACKGROUND' .
  CALL FUNCTION 'FILE_GET_NAME_USING_PATH'
       EXPORTING
            client                     = sy-mandt
            logical_path               = l_log_path
            operating_system           = sy-opsys
            file_name                  = p_fname
       IMPORTING
            file_name_with_path        = g_filename_with_path
       EXCEPTIONS
            path_not_found             = 1
            missing_parameter          = 2
            operating_system_not_found = 3
            file_system_not_found      = 4
            OTHERS                     = 5.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    " get_filename
You may find it useful.
Regards,
Karuna.