Exporting BPs to application server

Hi,
I'm working in CRM 3.1 and need to export target groups to application server due to too large target groups. I found a note (459913) which seems to explain some of the procedure for how to configure this, but this note is actually a correction for CRM 3.0... Can some of you explain the procedure for making 'exporting of TGs to application server' possible, or perhaps you can give me a link to relevant documentation??
Thanks, Camilla

Hi,
Please see the below link . It refers to the same issue.
Is it possible PI pick the file from ECC application server without FTP
For FCC you can check the SAP help Docs.
http://help.sap.com/saphelp_nw04/helpdata/en/2c/181077dd7d6b4ea6a8029b20bf7e55/content.htm
Regards,
Shweta.

Similar Messages

Error in Oracle Application Server (export) Version 4.0.7.0 ON Windows NT

Hi all,
I am trying to install Oracle Application Server (Export) Version 4.0.7.0.0 for Windows NT on Windows NT 4.0 SP1.At the time of installation every thing goes smooth but when i try to connect to the specified database which is in the same network(LAN) of the machine it says tns could not resolve the service name and after that i did the tns entry in the tnsnames .ora file but it is givin the same issue i then tried to ping the server its giving reply i even see the installed poduct it is showing that net8.0 is installed what would be the problem i am not able to identify .
Following is the commach which i am firing to test the connection
1) start > run >cmd
2) command prompt opens then in that i type the command
exp80 scott@testit asks for passowrd i enter the password
then after some time the tns error comes
The home for this d:\orant1
Now after that i installed oracle 8i client release 8.1.5 on the same machine to check weather this problem is machine dependent,after the full installation and doing the tns entry i tryiid to connect thruoug sql plus (which got istalled which this installer) its working fine.
The home for this d:\orant
My main aim is to user the Expot Utility to take the export test database objects.
Thnks in Advance

Hi,
you have a database version 10.2.0.1.0, but SOA needs 10.2.0.2 or higher. Update your database using the latest patchset.
Regards,
Tomas

Export internal table to application server

hello all!
i would like to export the contents of an internal table to the appliation server. i tried via OPEN DATASET, but my itab contains not only character type data.
i do not want to copy all content into a parallel structure with all character type colums
do you know a way to export an internal table on application server, in a way that it is readable by ms excel?
thanks!

Hi Matthias, i think that the only solution is using a parallel structure with all character type colums. Also use 'SAP_CONVERT_TO_CSV_FORMAT' to convert the internal table to csv format in order to be readable by ms excel.
Regards,
Andrez

Visio SCOM Add-In - Distributed Application Export not Contacting Management Server

I have installed the Visio 2010 SCOM Add-In to my copy of Visio 2013 (since there is no 2013 Add-in and there seemed to be enough articles that it *should* work). I can connect to my Management server from a blank diagram and add objects without issue, although
I seem to have to reconnect every time I start a new drawing. Not that the configuration is gone, I just can't do anything until I go into Configure and click OK. The real issue though is that when I go into SCOM and export a Distributed Application as a Visio
Diagram and then open it in Visio, it is not connecting to the Management server and none of the objects seem to have any SCOM data associated with them. I have tried manually linking the objects in the drawing to SCOM objects but this does not work, even
though I can see the SCOM objects.
For reference, I am doing all of this work on my Win7 machine with Visio 2013. I have the SCOM console installed on my machine. SCOM is SCOM2012 R2 running on a 2012 server.
Thanks for any suggestions.

Hi,
Would you please install this add-in on another new brand Windows and check the result.
I hope these can help you:
SCOM 2012 - Visio Integration Add-In Not Loading
http://kevingreeneitblog.blogspot.dk/2012/08/scom-2012-visio-integration-add-in-not.html
Install the Visio 2010 Add-in
http://technet.microsoft.com/en-us/library/hh920815.aspx
Regards,
Yan Li
Regards, Yan Li

CrystalReport - Getting "The Report Application Server failed" while export

Hi Experts,
I am using Crystal Reports 2008 in my ASP.NET application to generate reports. Everythings works fine in the development environment. When I deploy it on my Windows Server 2003 system, I get an error "The Report Application Server failed" while exporting the report from the report control. But, the report assuch is working fine even in the production environement. I experience this issue only while exporting to excel or anyother format.
Do I need to configure anything or any settings needs to be turned on in the .rpt files!!
Appreciate any help to get this issue resolved.
TIA,
Prem

First a confirmation. When you say; "...exporting the report from the report control...", you mean the printer button on the viewer?
Questions;
What version of .NET?
What Crystal Reports Service Pack are you on?
How was the CR runtime installed on the server?\
Can you print the report OK?
Are you using sessions?
Ludek

How to delete file from application server(Unix)

Hi All,
Using the below code downloading a file from application server(Unix) to client machine. I want to delete the file from application server once it is downloaded to client
We work on Forms 11.1.1.4.0 and Oracle DB 10g. Client machine are Windows 7.
BEGIN
IF webutil_file_transfer.AS_to_Client
(clientFile => Name_In('global.g_file_name')
,serverFile => ls_AppServer_Loc)THEN
message('Data exported Successfully');
ELSE
message('File download from Application Server failed');
END IF;
EXCEPTION
WHEN OTHERS THEN
message('File download failed: '||SUBSTR(sqlerrm,1,200));
END;
I have search for solution on OTN. Few suggested to use HOST.
Can any one help me how to use Host() built_in to delete the file.
Thanks,
Maddy

Can any one help me how to use Host() built_in to delete the file.
Host('/bin/rm <complete file path>');

Use of Open and close data set in to pick up files from application server

Hi,
As per my earlier posts i m making a programm which will pick excel sheet from application server and make auto PR by bapi and this all process will be handle by background processing (SM36, SM37). My concer is all proces are working fine but my files are not been picked by application server , when run on my own machine everything is working fine.I never used OPENDATA SET command before , so i have no idea how it will be used , can anyone provide me details with my set of codes where it should be used ....
sou_dir_name = 'Y:\Sucess\'.
tar_dir_name = 'Y:\destination\'.
Open dataset sou_dir_name for input in text mode encoding default.
if sy-subrc eq 0.
   do.
       read dataset sou_dir_name into file_table.
   if sy-subrc ne 0.
     exit. " end of file.
enddo.
endif.
CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
EXPORTING
    DIRECTORY = sou_dir_name
    FILTER     = '.'
IMPORTING
    FILE_COUNT = file_count
    DIR_COUNT = dir_count
TABLES
    FILE_TABLE = file_table
    DIR_TABLE = dir_table
EXCEPTIONS
    CNTL_ERROR = 1
    OTHERS     = 2.
IF SY-SUBRC <> 0.
ENDIF.
loop at file_table into wa_file_table.
clear : strr , str1 , str2 , str3 .
strr = wa_file_table-PATHNAME .
concatenate sou_dir_name strr into str1 .
concatenate tar_dir_name strr into str2 . " success
concatenate tar_dir_name1 strr into str3 .         " failed
FILE = STR1 .
*start-of-selection.
*& Function For Retrieve Data From Excel
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
    filename                      = FILE
    i_begin_col                   = col_start
    i_begin_row                   = row_start
    i_end_col                     = col_end
    i_end_row                     = row_end
tables
    intern                        = excel_bdcdata
EXCEPTIONS
   INCONSISTENT_PARAMETERS       = 1
   UPLOAD_OLE                    = 2
   OTHERS                        = 3.
IF sy-subrc NE 0.
WRITE : / 'File Error'.
EXIT.
ENDIF.
loop at excel_bdcdata.
    translate excel_bdcdata to upper case .
    move excel_bdcdata-col to it_index.
    assign component it_index of structure wa_file to <fs> .
    move excel_bdcdata-value to <fs>.
    at end of row.
      append wa_file to it_file .
        clear wa_file.
      endat.
endloop.

Parsing XML data:
http://help.sap.com/saphelp_nw04/helpdata/en/86/8280ba12d511d5991b00508b6b8b11/frameset.htm
or alternatively check out ABAP online help for "CALL TRANSFORMATION".
For creating the material master look at BAPI_STANDARDMATERIAL_CREATE.
Thomas

How to see the file at the application server

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.

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.

How to upload a file in application server to an internal table

Hi,
      I am asked to upload a file from application server to internal table. Can you please suggest me the ways to do it or the function module which helps to browse the application server file names.
I have done a program. But its giving problem in searching the files from application server. I am pasting my code for ur review. Please tell me which part i have to correct or suggest me some other ways to do it.
*& Report ZUPLOAD1
REPORT ZUPLOAD1.
type-pools: truxs.
parameters: p_upl_ps radiobutton group g1 default 'X', "upload from pres. server
             p_path type rlgrap-filename,
             p_upl_as radiobutton group g1,   "upload from appln server
             <b>p_dir LIKE filepath-pathintern DEFAULT 'Y_ABAP',
             p_file LIKE filepath-pathintern lower case,</b>
             p_test as checkbox.
constants: c_x value 'X',
           c_tab type c value cl_abap_char_utilities=>horizontal_tab.
types: ty_data(1000) type c.    "structure to hold legacy data
data: i_data type standard table of ty_data. "internal table of ty_data
types: begin of stritab,
      land1 type v_t604-land1, "structure of legacy file.
      stawn type v_t604-stawn,
      bemeh type v_t604-bemeh,
      impma type v_t604-impma,
      minol type v_t604-minol,
      end of stritab.
data: gi_itab type standard table of stritab, "internal table of legacy file
      gw_itab type stritab. "work area
data: i_raw type truxs_t_text_data,
      v_fullpath type string.
at selection-screen on value-request for p_path.
if p_upl_ps = c_x. "if presentation server is selected
perform get_file.
else.            "if application server is selected
perform set_file_path.
perform upload_from_server.
perform split_data.
endif.
form get_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME        = SYST-CPROG
DYNPRO_NUMBER       = SYST-DYNNR
FIELD_NAME          = ' '
IMPORTING
   FILE_NAME           = p_path.     "getting the file name of pres server
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR          =
    I_LINE_HEADER              = 'X'              "converting excel to sap and filling in
    I_TAB_RAW_DATA             = i_raw      "internal table
    I_FILENAME                 = p_path
TABLES
    I_TAB_CONVERTED_DATA       = gi_itab
EXCEPTIONS
   CONVERSION_FAILED          = 1
   OTHERS                     = 2
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.
form set_file_path.                 "Getting the file path of application server
data: lv_file type p_file.
      lv_file = p_file.
      CALL FUNCTION 'FILE_GET_NAME_USING_PATH'
        EXPORTING
        CLIENT                           = SY-MANDT
          LOGICAL_PATH                     = p_dir
        OPERATING_SYSTEM                 = SY-OPSYS
        PARAMETER_1                      = ' '
        PARAMETER_2                      = ' '
        PARAMETER_3                      = ' '
        USE_BUFFER                       = ' '
          FILE_NAME                        = lv_file
        USE_PRESENTATION_SERVER          = ' '
        ELEMINATE_BLANKS                 = 'X'
       IMPORTING
         FILE_NAME_WITH_PATH              = v_fullpath
       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.
form upload_from_server.
data: lv_msg type string,
      lw_data type ty_data.
open dataset v_fullpath for input message lv_msg in text mode encoding default.
if sy-subrc <> 0.
message lv_msg type 'i'.
stop.
endif.
do.
read dataset v_fullpath into lw_data.
if sy-subrc <> 0.
write:/5 'Error in processign data set'.
exit.
endif.
append lw_data to i_data.
enddo.
close dataset v_fullpath.
if sy-subrc <> 0.
write: /5 'Error closing dataset'.
endif.
endform.
form split_data.
data: lw_data type ty_data.
data: lw_itab type stritab.
data: begin of ty_itab,
      land1 type v_t604-land1,
      stawn type v_t604-stawn,
      bemeh type v_t604-bemeh,
      impma type v_t604-impma,
      minol type v_t604-minol,
      end of ty_itab.
loop at i_data into lw_data.
split lw_data at c_tab into
      ty_itab-land1
      ty_itab-stawn
      ty_itab-bemeh
      ty_itab-impma
      ty_itab-minol.
lw_itab-land1 = ty_itab-land1.
lw_itab-stawn = ty_itab-stawn.
lw_itab-bemeh = ty_itab-bemeh.
lw_itab-impma = ty_itab-impma.
lw_itab-minol = ty_itab-minol.
append lw_itab to gi_itab.
endloop.
endform.
start-of-selection.
loop at gi_itab into gw_itab.
write: /5 'COUNTRY', 'IMPORT CODE', 'SUP UNIT', 'FIRST UOM', 'SECOND UOM',
       /5 gw_itab-land1, gw_itab-stawn,gw_itab-bemeh,gw_itab-impma,gw_itab-minol.
endloop.
end-of-selection.
I hope problem must be in p_dir and p_file which are in bold.. Kindly help me out. Thanks in advance.

see the following ex:
*&      Form SUB_GET_FILEPATH
      text
--> p1        text
<-- p2        text
FORM SUB_GET_FILEPATH .
    GFILE = 'D:\SAP_INT\INBOUND\INBOX'. "Path
ENDFORM.                    " SUB_GET_FILEPATH
*&      Form SUB_GET_FILE
      text
--> p1        text
<-- p2        text
FORM SUB_GET_FILE .
DATA: P_FDIR(200) TYPE C.
DATA: IT_FILEDIR1 TYPE STANDARD TABLE OF TY_FILEDIR WITH HEADER LINE.
P_FDIR = GFILE.
CALL FUNCTION 'RZL_READ_DIR_LOCAL'
    EXPORTING
      NAME     = P_FDIR
    TABLES
      FILE_TBL = IT_FILEDIR.
REFRESH : IT_FILEDIR1.
LOOP AT IT_FILEDIR.
    IF IT_FILEDIR-NAME(4) = 'ZINC' OR IT_FILEDIR-NAME(4) = 'zinc'.
      MOVE IT_FILEDIR-NAME TO IT_FILEDIR1-NAME.
      APPEND IT_FILEDIR1.
    ENDIF.
ENDLOOP.
IF IT_FILEDIR1[] IS INITIAL.
    STOP.
ENDIF.
LOOP AT IT_FILEDIR1.
    REFRESH: I_TAB.
    CLEAR: I_TAB.
    NAME = IT_FILEDIR1-NAME.
    CONCATENATE: GFILE '\' NAME INTO G_FILE.
    OPEN DATASET G_FILE FOR INPUT IN TEXT MODE
                                     ENCODING DEFAULT
                                     IGNORING CONVERSION ERRORS.
    IF SY-SUBRC EQ 0.
      CONCATENATE 'FILENAME : ' G_FILE INTO I_MSG1.
      APPEND I_MSG1.
      DO.
        READ DATASET G_FILE INTO RECORD.
        IF SY-SUBRC = 0.
          SPLIT RECORD AT ',' INTO I_TAB-BUKRS I_TAB-EBELN
              I_TAB-BLDAT I_TAB-XBLNR I_TAB-LIFNR I_TAB-AMOUNT
              I_TAB-CURR I_TAB-BUSAREA
              I_TAB-BKTXT I_TAB-DMBTR I_TAB-MENGE I_TAB-SRNO.
          MOVE-CORRESPONDING I_TAB TO I_TAB1.
        ELSE.
          EXIT.
        ENDIF.
        APPEND I_TAB1.
        CLEAR: I_TAB, I_TAB1.
      ENDDO.
    ENDIF.
    CLOSE DATASET G_FILE.

While downloading file to application server its overwriting the earlier fi

hi if i am using below code with date time stamp the file is downloaded to the application server correctly and each time i execut eht program a difference file is generated as date time stamp differs each time but
whne i remove the date time stamp ie sy-datum and sy-uzeit as we dont need to display the date time stamp with the file each time i execute the program a file is generated but it overwrites the ealier existing file please suggest as each time it shoul generate a new file....
Concatenate file name sy-datum sy-uzeit '.txt' into v_datetimefile
file on Appplication Server is selected
CALL FUNCTION 'FILE_GET_NAME'
     EXPORTING
            CLIENT                        = SY-MANDT
           logical_filename              = 'ZFILE'

Hi,
first of all decide you have to overwrite the existing file or you want to create the new, i think the answer is there in your query itself, if you want to create new then concatenate the date and time, else don't do that.
below are the additions we can use while opening the data set.
FOR INPUT
FOR OUTPUT
FOR APPENDING
IN BINARY MODE
IN TEXT MODE
AT POSITION p
TYPE ctrl
MESSAGE mess
FILTER f
Reward if useful.
Thanks,
Sreeram.

Application server file path vaidation

I have written the code for application server file path validation.
DATA : l_fname TYPE filename-fileintern." type c.
DATA : l_filpath TYPE filename-fileintern,
         l_filname(40) TYPE c.
PARAMETER : p_sucfil LIKE rfpdo-rfbifile OBLIGATORY. " rlgrap-filename
AT SELECTION-SCREEN ON p_sucfil.
l_fname = p_sucfil.
CALL FUNCTION 'FILE_GET_NAME'
EXPORTING
CLIENT                        = SY-MANDT
    logical_filename              = l_fname
   OPERATING_SYSTEM              = SY-OPSYS
PARAMETER_1                   = ' '
PARAMETER_2                   = ' '
PARAMETER_3                   = ' '
USE_PRESENTATION_SERVER       = ' '
   WITH_FILE_EXTENSION           = 'X'
USE_BUFFER                    = ' '
ELEMINATE_BLANKS              = 'X'
IMPORTING
EMERGENCY_FLAG                =
FILE_FORMAT                   =
   FILE_NAME                     = l_filpath
EXCEPTIONS
   FILE_NOT_FOUND                = 1
   OTHERS                        = 2
IF sy-subrc <> 0.
message 'Invalid file name' type 'E'.
ENDIF.
But always i will get Invalid file name.
Y is it so.
pls help me.

Praveen,
I have checked ur code and I found that if i give a logical file name from
tran. FILE under folder 'Logical file name definition, cross client' then ur code works. Pl. check.
Regards,
Joy.
DATA : l_fname TYPE filename-fileintern." type c.
DATA : l_filpath TYPE filename-fileintern,
l_filname(40) TYPE c.
PARAMETER : p_sucfil LIKE rfpdo-rfbifile OBLIGATORY. " rlgrap-filename
AT SELECTION-SCREEN ON p_sucfil.
l_fname = p_sucfil.
CALL FUNCTION 'FILE_GET_NAME'
EXPORTING
logical_filename = l_fname
operating_system = sy-opsys
with_file_extension = 'X'
IMPORTING
file_name = l_filpath
EXCEPTIONS
file_not_found = 1
OTHERS = 2
IF sy-subrc <> 0.
    MESSAGE 'Invalid file name' TYPE 'E'.
ENDIF.

Validate application server file

Hi,
I have to validate the application server file path on selection screen.
I am using following code :
form VALID_APP_FILEPATH   using    p_filpath TYPE FILENAME-FILEINTERN.
data : l_fname(60).
CALL FUNCTION 'FILE_GET_NAME'
    EXPORTING
      LOGICAL_FILENAME = p_filpath
      OPERATING_SYSTEM = SY-OPSYS
    IMPORTING
      FILE_NAME        = L_FNAME
    EXCEPTIONS
      FILE_NOT_FOUND   = 1
      OTHERS           = 2.
IF SY-SUBRC ne 0.
      MESSAGE 'Enter the valid file path'(e01) TYPE 'E'.
ENDIF.
endform.                    " VALID_APP_FILEPATH
but if i choose correct file path from F4 help also.
It displays error message.
Sy-subrc always equals 1.
Help me out

Hi,
I have implemented the code mentioned by you and am not having any problems even when I use F4 to get the fle name.
Pls recheck and get back if the error persists.
Reward if found helpful.
Warm Regards,
R Adarsh

Unable to download file to application server

Hi,
I am trying to download a file to the application server. I've also attached my code below.After the execution of this program, it is just returning blank values to the application server file. Let me know why it is not populating the values to the files.
Raj.
tables: kna1,
        knb1.
DATA: BEGIN OF itab_ls OCCURS 0,
       kunnr LIKE kna1-kunnr,
       altkn LIKE knb1-altkn,
     END OF itab_ls.
TYPES : BEGIN OF t_file,
          date(5) TYPE c,   " Date
          time(5) TYPE c,   " Time
        end of t_file.
DATA : gt_file TYPE TABLE OF t_file, " File Path
       g_spath TYPE fileextern,   " Path
       g_fieldname   TYPE dynfnam. " Field Name
SELECTION-SCREEN BEGIN OF BLOCK b_01 WITH FRAME TITLE text-b01.
SELECT-OPTIONS s_erdat FOR kna1-erdat obligatory.
SELECTION-SCREEN END   OF BLOCK b_01.
SELECTION-SCREEN BEGIN OF BLOCK b_02 WITH FRAME TITLE text-b02.
SELECTION-SCREEN BEGIN OF LINE.
Radio button for Presentation server file
PARAMETERS    : p_pres RADIOBUTTON GROUP file DEFAULT 'X'
                USER-COMMAND file.
SELECTION-SCREEN COMMENT 3(20) text-s01 FOR FIELD p_pres.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 23(22) text-s02 FOR FIELD p_flnam1
                                               MODIF ID com.
Presentation server file Name
PARAMETERS    : p_flnam1 TYPE localfile MODIF ID com ."MEMORY ID zp1.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
Radio button for Application server file
PARAMETERS    : p_app RADIOBUTTON GROUP file .
SELECTION-SCREEN COMMENT 3(20) text-s03 FOR FIELD p_app.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 23(22) text-s04 FOR FIELD p_flnam2
                                               MODIF ID com.
Application server file Name
PARAMETERS    : p_flnam2 TYPE localfile MODIF ID com ."MEMORY ID zp2 .
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END   OF BLOCK b_02.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flnam1.
g_fieldname = 'P_PCFILE'.
PERFORM call_pres_help USING    g_fieldname
                         CHANGING p_flnam1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flnam2.
PERFORM call_app_help CHANGING p_flnam2.
AT SELECTION-SCREEN OUTPUT.
Start-of-selection.
SELECT kna1kunnr knb1altkn kna1ktokd kna1erdat
INTO CORRESPONDING FIELDS OF TABLE itab_ls
FROM kna1 INNER JOIN knb1 ON kna1kunnr = knb1kunnr WHERE kna1~erdat in
s_erdat AND KNA1KTOKD = 'Z002' order by kna1kunnr.
OPEN DATASET p_flnam2 for output IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc EQ 0.
LOOP AT itab_ls.
    TRANSFER itab_ls TO p_flnam2.
ENDLOOP.
CLOSE DATASET p_flnam2.
endif.
WRITE:/'SAP Ship-toCustID', 18 'LegacyCustID'.
ULINE.
Loop at itab_ls.
write: /3 itab_ls-KUNNR, 18 itab_ls-ALTKN.
endloop.
PERFORM download_file.
*&      Form call_pres_help
      text
     -->P_FIELDNAME text
     -->P_PARAMETER text
FORM call_pres_help USING    p_fieldname    TYPE dynfnam
                    CHANGING p_parameter    TYPE localfile.
CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name = sy-repid
      dynpro_number = sy-dynnr
      field_name    = p_fieldname
    IMPORTING
      file_name     = p_parameter.
ENDFORM.                    "call_pres_help
*&      Form call_app_help
      text
     -->P_PARAMETER text
FORM call_app_help CHANGING p_parameter    TYPE localfile.
CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
    EXPORTING
      directory        = g_spath
    IMPORTING
      serverfile       = p_parameter
    EXCEPTIONS
      canceled_by_user = 1
      OTHERS           = 2.
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.                    "call_app_help

Hi,
If the SY-SUBRC is equal to 8, then error is nothing but "The file could not be opened". So pls check the file name again.
And for write statement,
If SY-SUBRC = 4 then the Contents of name are invalid, statement could not be executed, and contents of destination remain unchanged. So pls do check this also.
regs,
Venkat Ramanan
Message was edited by: Venkat Ramanan Natarajan

How to store multiple files from SAp in to Application server?

Hi Guys,
             Can anybody tell me how to store multiple files from SAP into Application server.in my application i have to get the data from SAP tables BSEG , BKPF , BSAK and BSIK that to daily i have to do.
            Any Logic or Code for how to do is welcomed.
                    plz help me urgently.
Thanks,
Gopi

Hi,
directories creates basis. If you have task to store data in application server you already should have information into which folder you have to do it. If you don't have this information because it is just for example training for next task then you can use your personal folder into which you have access. To get list of all available folders please look at attached code and form get_directories (you get the list of folders you see in transaction AL11). But don't forget: If you are using open dataset you have to have rights to access application folder!
Here you are code which I use to upload text files from local disc into application folder
Regards,
Karol
*& Report FILE_PC_TO_SAP
REPORT FILE_PC_TO_SAP.
DATA: BEGIN OF searchpoints OCCURS 100,
        DIRNAME(200)     TYPE c, " name of directory.
        sp_name(100)     TYPE c," name of entry. (may end with *)
      END OF searchpoints.
DATA: BEGIN OF isearchpoints OCCURS 10,
        dirname(75) TYPE c,            " name of directory.
        aliass(75) TYPE c,            " alias for directory.
        svrname(75) TYPE c,            " svr where directory is availabl
        sp_name(75) TYPE c,            " name of entry. (may end with *)
        sp_cs(10)   TYPE c,            " ContainsString pattern for name
      END OF isearchpoints.
data: l_file type filetable.
data: l_rc   type i.
data: itab   type TABLE OF string.
data: g_tmp_file_path type rlgrap-filename.
data: wa_itab type string.
data: h_destin(100) type c.
data: dat      type string.
INITIALIZATION.
perform get_directories.
START-OF-SELECTION.
parameters: in_file type string OBLIGATORY LOWER CASE.
parameters: destin(100) type c OBLIGATORY LOWER CASE.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
   FILENAME                      = in_file
   "FILETYPE                      = 'BIN'
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = ' '
   HEADER_LENGTH                 = 0
   READ_BY_LINE                  = 'X'
   DAT_MODE                      = ' '
TABLES
    DATA_TAB                     = itab
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.
write: / 'Error during loading input file!'.
ENDIF.
if h_destin is INITIAL.
h_destin = in_file.
endif.
CONCATENATE destin h_destin into dat SEPARATED BY '/'.
*TRANSLATE dat TO UPPER CASE.
OPEN DATASET dat FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-SUBRC = 0.
loop at itab into wa_itab.
     TRANSFER: wa_itab TO dat.
endloop.
CLOSE DATASET dat.
write: / 'File uploaded!'.
ELSE.
write: / 'Not possible to open dataset'.
ENDIF.
at selection-screen on value-request for in_file.
perform select_input_file_name.
loop at l_file into g_tmp_file_path.
    move g_tmp_file_path to in_file.
    h_destin = ''.
    SPLIT g_tmp_file_path at '\' into table itab.
    loop at itab into g_tmp_file_path.
      h_destin = g_tmp_file_path.
    endloop.
endloop.
at selection-screen on value-request for destin.
DATA: lt_dfies    TYPE TABLE OF dfies.
DATA: lwa_dfies   TYPE dfies.
CALL FUNCTION 'DDIF_FIELDINFO_GET'
    EXPORTING
      tabname    = '/BI0/PCO_AREA'
      lfieldname = 'CO_AREA'
    IMPORTING
      dfies_wa   = lwa_dfies.
lwa_dfies-tabname = 'searchpoints'.
lwa_dfies-REPTEXT   = 'Destination directory'.
lwa_dfies-LENG      = 100.
lwa_dfies-INTLEN    = 100.
lwa_dfies-OUTPUTLEN = 100.
lwa_dfies-fieldname = 'SP_NAME'.
APPEND lwa_dfies TO lt_dfies.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD = 'SP_NAME'
      DYNPPROG = SY-REPID
      DYNPNR = SY-DYNNR
      DYNPROFIELD = 'destin'
      VALUE_ORG = 'S'
    TABLES
      VALUE_TAB = searchpoints
      FIELD_TAB = lt_dfies
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      OTHERS = 3.
*&      Form select_input_file_name
*       text
form select_input_file_name.
* call function 'F4_FILENAME'
*       exporting
*            program_name = sy-repid
*            dynpro_number = sy-dynnr
*            field_name    = 'PATH'
*       importing
*            file_name     = g_tmp_file_path.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
WINDOW_TITLE = 'Please choose a file'
"default_extension = '*.TXT'
"default_filename = 'C:\*.txt'
initial_directory = 'C:\'
file_filter = '*.*'
CHANGING
FILE_TABLE = l_file
RC = l_RC
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 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.                    "select_input_file_name
*&      Form WRITE_DB_HOME
*       Write DB home directory
*       no parameters
FORM write_db_home.
CASE sy-dbsys(3).
    WHEN 'ORA'.
      CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_ORAHOME'
                         ID 'VALUE' FIELD searchpoints-dirname.
*--- C5056155 Start of ALV -------------------------------*
*      PERFORM flip_flop(rsora000) USING cflag.
*      WRITE: / 'DIR_ORAHOME',       30 searchpoints-dirname.
      MOVE: 'DIR_ORAHOME'        TO searchpoints-sp_name.
      APPEND searchpoints.
*--- C5056155 End   of ALV -------------------------------*
    WHEN 'ADA'.
      CALL 'C_GETENV' ID 'NAME' FIELD 'DBROOT'
                      ID 'VALUE' FIELD searchpoints-dirname.
*--- C5056155 Start of ALV -------------------------------*
*      PERFORM flip_flop(rsora000) USING cflag.
*      WRITE: / 'DIR_ADA_DBROOT',    30 searchpoints-dirname.
      MOVE: 'DIR_ADA_DBROOT'     TO searchpoints-sp_name.
      APPEND searchpoints.
*--- C5056155 End   of ALV -------------------------------*
    WHEN 'INF'.
      CALL 'C_GETENV' ID 'NAME' FIELD 'INFORMIXDIR'
                      ID 'VALUE' FIELD searchpoints-dirname.
*--- C5056155 Start of ALV -------------------------------*
*      PERFORM flip_flop(rsora000) USING cflag.
*      WRITE: / 'DIR_INF_INFORMIXDIR', 30 searchpoints-dirname.
      MOVE: 'DIR_INF_INFORMIXDIR' TO searchpoints-sp_name.
      APPEND searchpoints..
*--- C5056155 End   of ALV -------------------------------*
    WHEN 'DB6'.
      CALL 'C_GETENV' ID 'NAME' FIELD 'INSTHOME'
                      ID 'VALUE' FIELD searchpoints-dirname.
      IF sy-subrc = 0.
*--- C5056155 Start of ALV -------------------------------*
*        PERFORM flip_flop(rsora000) USING cflag.
*        WRITE: / 'DIR_DB2_HOME',    30 searchpoints-dirname.
        MOVE: 'DIR_DB2_HOME'       TO searchpoints-sp_name.
        APPEND searchpoints.
*--- C5056155 End   of ALV -------------------------------*
      ELSE.
        EXIT.
      ENDIF.
    WHEN OTHERS.
      EXIT.
ENDCASE.
ENDFORM.                    " WRITE_DB_HOME
FORM get_directories.
* get the name and aliases of ALL userdefined directories
SELECT * FROM user_dir INTO isearchpoints
    WHERE svrname = sy-uname.
    MOVE isearchpoints-dirname to searchpoints-dirname.
    MOVE isearchpoints-aliass to searchpoints-sp_name.
    APPEND searchpoints.
ENDSELECT.
SELECT * FROM user_dir INTO isearchpoints
    WHERE svrname = 'all'.
    MOVE isearchpoints-dirname to searchpoints-dirname.
    MOVE isearchpoints-aliass to searchpoints-sp_name.
    APPEND searchpoints.
ENDSELECT.
* Get DB home
IF sy-dbsys(3) = 'ADA'.
    PERFORM write_db_home.
ENDIF.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_ATRA'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_ATRA'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_BINARY'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_BINARY'         TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory $DIR_CCMS
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_CCMS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_CCMS'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_CT_LOGGING'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_CT_LOGGING'     TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_CT_RUN'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_CT_RUN'         TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_DATA'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_DATA'           TO searchpoints-sp_name.
APPEND searchpoints.
* Get DB home
IF sy-dbsys(3) = 'DB6'.
    PERFORM write_db_home.
ENDIF.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_DBMS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_DBMS'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_EXECUTABLE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_EXECUTABLE'     TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_EXE_ROOT'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_EXE_ROOT'       TO searchpoints-sp_name.
APPEND searchpoints.
*get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GEN'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GEN'            TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GEN_ROOT'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GEN_ROOT'       TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GLOBAL'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GLOBAL'         TO searchpoints-sp_name.
APPEND searchpoints.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GRAPH_EXE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GRAPH_EXE'      TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_GRAPH_LIB'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_GRAPH_LIB'      TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_HOME'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_HOME'           TO searchpoints-sp_name.
APPEND searchpoints.
* Get DB home
IF sy-dbsys(3) = 'INF'.
    PERFORM write_db_home.
ENDIF.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_INSTALL'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_INSTALL'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_INSTANCE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_INSTANCE'       TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_LIBRARY'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_LIBRARY'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_LOGGING'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_LOGGING'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the files written by the memory inspector
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_MEMORY_INSPECTOR'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_MEMORY_INSPECTOR' TO searchpoints-sp_name.
APPEND searchpoints.
* Get DB home
IF sy-dbsys(3) = 'ORA'.
    PERFORM write_db_home.
ENDIF.
*get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PAGING'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PAGING'         TO searchpoints-sp_name.
APPEND searchpoints.
*get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PUT'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PUT'            TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PERF'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PERF'           TO searchpoints-sp_name.
APPEND searchpoints.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PROFILE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PROFILE'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_PROTOKOLLS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_PROTOKOLLS'     TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_REORG'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_REORG'          TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_ROLL'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_ROLL'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_RSYN'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_RSYN'           TO searchpoints-sp_name.
APPEND searchpoints.
* calculate directory for saphostagent (no sapparam available...)
IF ( sy-opsys(3) = 'WIN' ) OR ( sy-opsys(3) = 'Win' ).
    DATA: windir_path(64), programfiles_path(64).
*   hoping that ProgramFiles is set in service user environment
    CALL 'C_GETENV' ID 'NAME' FIELD 'ProgramFiles'
                    ID 'VALUE' FIELD programfiles_path.
    IF programfiles_path IS INITIAL.
*     %ProgramFiles% not available. guess from windir
      CALL 'C_GETENV' ID 'NAME' FIELD 'windir'
                      ID 'VALUE' FIELD windir_path.
*     e.g. S:\WINDOWS ==> S:\Program Files
      CONCATENATE windir_path(3) 'Program Files' INTO programfiles_path.
    ENDIF.
    CONCATENATE programfiles_path '\SAP\hostctrl'
                                             INTO searchpoints-dirname.
ELSE.
*   on UNIX, the path is hard coded
    searchpoints-dirname = '/usr/sap/hostctrl'.
ENDIF.
MOVE: 'DIR_SAPHOSTAGENT' TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SAPUSERS'
                     ID 'VALUE' FIELD searchpoints-dirname.
IF searchpoints-dirname = '.'.
    IF sy-opsys = 'Windows NT'.
      searchpoints-dirname = '.\'.
    ELSE.
      searchpoints-dirname = './'.
    ENDIF.
ENDIF.
MOVE: 'DIR_SAPUSERS'       TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SETUPS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_SETUPS'         TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SORTTMP'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_SORTTMP'        TO searchpoints-sp_name.
APPEND searchpoints.
*get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SOURCE'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_SOURCE'         TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_TEMP'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_TEMP'           TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_TRANS'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_TRANS'          TO searchpoints-sp_name.
APPEND searchpoints.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_TRFILES'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_TRFILES'        TO searchpoints-sp_name.
APPEND searchpoints.
* get name of directory with the error files
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_TRSUB'
                     ID 'VALUE' FIELD searchpoints-dirname.
MOVE: 'DIR_TRSUB'          TO searchpoints-sp_name.
APPEND searchpoints.
* get the name of the current server.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'rdisp/myname'
                     ID 'VALUE' FIELD searchpoints-dirname.
data: h_ind type i.
LOOP AT searchpoints.
    h_ind = sy-tabix.
    IF searchpoints-sp_name IS INITIAL.
      DELETE searchpoints INDEX h_ind.
    ENDIF.
ENDLOOP.
ENDFORM.

Re: How to download an internal table to application server.. Unicode

Hi..
i have populated an internal table of a big structure (custom table) which has more than 100 fields.
i wanted to download it into the application server.. as a tab de-limited file..
Can anyone guide me how to proceed with
Thanks In Advance
Guhapriyan..

HI
this program will convert the internal table to the xml document
Report ZPRUEBA_MML_13 *
Export an internal table to XML document *
NO BORRAR ESTE CODIGO *
REPORT Z_table_xml.
PARAMETERS: GK_RUTA TYPE RLGRAP-FILENAME.
TYPES: BEGIN OF TURNOS,
LU LIKE T552A-TPR01,
MA LIKE T552A-TPR01,
MI LIKE T552A-TPR01,
JU LIKE T552A-TPR01,
VI LIKE T552A-TPR01,
SA LIKE T552A-TPR01,
DO LIKE T552A-TPR01,
END OF TURNOS.
TYPE SOCIO *
TYPES: BEGIN OF SOCIO,
NUMERO LIKE PERNR-PERNR,
REPOSICION LIKE PA0050-ZAUVE,
NOMBRE LIKE PA0002-VORNA,
TURNOS TYPE TURNOS,
END OF SOCIO.
TYPE SOCIO *
ESTRUCTURA ACCESOS *
DATA: BEGIN OF ACCESOS OCCURS 0,
SOCIO TYPE SOCIO,
END OF ACCESOS.
ESTRUCTURA ACCESOS *
START OF SELECTION *
START-OF-SELECTION.
PERFORM LLENA_ACCESOS.
PERFORM DESCARGA_XML.
END-OF-SELECTION.
END OF SELECTION *
FORM LLENA_ACCESOS *
FORM LLENA_ACCESOS.
REFRESH ACCESOS.
CLEAR ACCESOS.
MOVE: '45050' TO ACCESOS-SOCIO-NUMERO,
'MOISES MORENO' TO ACCESOS-SOCIO-NOMBRE,
'0' TO ACCESOS-SOCIO-REPOSICION,
'T1' TO ACCESOS-SOCIO-TURNOS-LU,
'T2' TO ACCESOS-SOCIO-TURNOS-MA,
'T3' TO ACCESOS-SOCIO-TURNOS-MI,
'T4' TO ACCESOS-SOCIO-TURNOS-JU,
'T5' TO ACCESOS-SOCIO-TURNOS-VI,
'T6' TO ACCESOS-SOCIO-TURNOS-SA,
'T7' TO ACCESOS-SOCIO-TURNOS-DO.
APPEND ACCESOS.
CLEAR ACCESOS.
MOVE: '45051' TO ACCESOS-SOCIO-NUMERO,
'RUTH PEÑA' TO ACCESOS-SOCIO-NOMBRE,
'0' TO ACCESOS-SOCIO-REPOSICION,
'T1' TO ACCESOS-SOCIO-TURNOS-LU,
'T2' TO ACCESOS-SOCIO-TURNOS-MA,
'T3' TO ACCESOS-SOCIO-TURNOS-MI,
'T4' TO ACCESOS-SOCIO-TURNOS-JU,
'T5' TO ACCESOS-SOCIO-TURNOS-VI,
'T6' TO ACCESOS-SOCIO-TURNOS-SA,
'T7' TO ACCESOS-SOCIO-TURNOS-DO.
APPEND ACCESOS.
ENDFORM.
FORM LLENA_ACCESOS *
FORM DESCARGA_XML *
FORM DESCARGA_XML.
DATA: L_DOM TYPE REF TO IF_IXML_ELEMENT,
M_DOCUMENT TYPE REF TO IF_IXML_DOCUMENT,
G_IXML TYPE REF TO IF_IXML,
W_STRING TYPE XSTRING,
W_SIZE TYPE I,
W_RESULT TYPE I,
W_LINE TYPE STRING,
IT_XML TYPE DCXMLLINES,
S_XML LIKE LINE OF IT_XML,
W_RC LIKE SY-SUBRC.
DATA: XML TYPE DCXMLLINES.
DATA: RC TYPE SY-SUBRC,
BEGIN OF XML_TAB OCCURS 0,
D LIKE LINE OF XML,
END OF XML_TAB.
CLASS CL_IXML DEFINITION LOAD.
G_IXML = CL_IXML=>CREATE( ).
CHECK NOT G_IXML IS INITIAL.
M_DOCUMENT = G_IXML->CREATE_DOCUMENT( ).
CHECK NOT M_DOCUMENT IS INITIAL.
WRITE: / 'Converting DATA TO DOM 1:'.
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING
NAME = 'ACCESOS'
DATAOBJECT = ACCESOS[]
IMPORTING
DATA_AS_DOM = L_DOM
CHANGING
DOCUMENT = M_DOCUMENT
EXCEPTIONS
ILLEGAL_NAME = 1
OTHERS = 2.
IF SY-SUBRC = 0.
WRITE 'Ok'.
ELSE.
WRITE: 'Err =',
SY-SUBRC.
ENDIF.
CHECK NOT L_DOM IS INITIAL.
W_RC = M_DOCUMENT->APPEND_CHILD( NEW_CHILD = L_DOM ).
IF W_RC IS INITIAL.
WRITE 'Ok'.
ELSE.
WRITE: 'Err =',
W_RC.
ENDIF.
CALL FUNCTION 'SDIXML_DOM_TO_XML'
EXPORTING
DOCUMENT = M_DOCUMENT
IMPORTING
XML_AS_STRING = W_STRING
SIZE = W_SIZE
TABLES
XML_AS_TABLE = IT_XML
EXCEPTIONS
NO_DOCUMENT = 1
OTHERS = 2.
IF SY-SUBRC = 0.
WRITE 'Ok'.
ELSE.
WRITE: 'Err =',
SY-SUBRC.
ENDIF.
LOOP AT IT_XML INTO XML_TAB-D.
APPEND XML_TAB.
ENDLOOP.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
BIN_FILESIZE = W_SIZE
FILENAME = GK_RUTA
FILETYPE = 'BIN'
TABLES
DATA_TAB = XML_TAB
EXCEPTIONS
OTHERS = 10.
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.
FORM DESCARGA_XML *
u can check the link
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/abap/abap-code-samples/conversion of abap data to xml.doc
Regards,
Naveen

Exporting BPs to application server

Similar Messages

Maybe you are looking for