Need to send data as files from SAP to other systems.

I need some code which will be useful to me. I fetched data from sap to internal tables. Now, the data needs to be sent to other systems (Informatica or so..) as files. Pl. anyone send me a sample code which i can use in my program.
I will try to reward points to people who will be able to help me.

Hi, Pl. find the required code which might be useful for ur question.
Get the data for Userid(l_user) & password(l_pwd) & host string(l_host).
DATA: l_slen     TYPE i,
      l_error,
      l_pwd(30) TYPE c.
CONSTANTS: c_dest TYPE rfcdes-rfcdest VALUE 'SAPFTP',
           c_key TYPE i              VALUE 26101957.
connect to ftp server
l_slen = STRLEN( l_pwd ).
CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = l_pwd
      sourcelen   = l_slen
      key         = c_key
    IMPORTING
      destination = l_pwd.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text = 'Connect to FTP Server'.
To Connect to the Server using FTP
CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user            = l_user
      password        = l_pwd
      host            = l_host
      rfc_destination = c_dest
    IMPORTING
      handle          = w_hdl
    EXCEPTIONS
      OTHERS          = 1.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Get the path to which the data file needs to be moved (w_outfile).
PERFORM download_to_ftp TABLES it_coacode USING w_outfile.
FORM download_to_ftp TABLES it_tab
                     USING l_string TYPE char64.
CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      handle         = w_hdl
      fname          = l_string
      character_mode = 'X'
    TABLES
      text           = it_tab[]
    EXCEPTIONS
      tcpip_error    = 1
      command_error = 2
      data_error     = 3
      OTHERS         = 4.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
            RAISING invalid_output_file.
ENDIF.
ENDFORM.                    " download_to_ftp
Pl. award points if it has solved ur problem.

Similar Messages

BASIS Configuration needed to send an external mail from SAP Program

Can you please help me about the BASIS configuration needed to send an external mail from SAP Program?
Regards,
Subhasish

Hi Subhasish,
Please go thru the below link.
Re: SCOT Configuration--for external mail
Regards,
Lakshman.

How to send a XML file from SAP to WEB SERVICE

Hi folks,
i m creating a XML file with purchase order data, while saving the purchase order.now i need to send this XML file to some WEB SERVICE i.e to some perticular address in WEB.
can anyone give the step by step procedure to do this web service configuration? it's really urgent.
points must be awarded.
Thanks & Regards
pabitra

Hi all,
i need to send some purchase order data from SAP to WEB SERVICE. while saving the purchase order, i want to send some data from SAP to WEB SERVICE ( a perticular address in WEB).
i want to see those datas in xml format in WEB.
Now i am using SAP 4.7 version. Is this web service configuration is possible or not?
In SE37, i can not see the CREATE WEB SERVICE option in utilitities--> More utilities menu.is it possible in 4.7???
can anyone give any suggestion ? it's very urgent.
Thnaks
pabitra

Sending "on demand-files" from SAP

Hi gurus,
this is a scenario on which im workin on: SAP - PI 7.0 - Fileserver (RFCtoFTP)
my customer wants to indicate in the RFC some parameters and depending on them, access to some files located in some folders of the fileserver or others files in other directories...Them, to populate the content of these files to SAP via RFC.
In order to do this, the RFC should be a SYNCHRONOUS RFC (sRFC) but FILE adapter does not support synchronous exchange.
Do you guys know how to meet these requirements and which adapters to use??
I would prefer not using BPM as there are lots of interfaces running on it.
Thanks a lot in advance and best regards,
david

Hi
File - RFC - File without BPM File - RFC - File without a BPM - Possible from SP 19.
U shud also go through follwoing link for RFC sender. It may helps you...
The specified item was not found.
Troubleshooting - RFC and SOAP scenarios *** Updated on 20/04/2009 ***
RFC -> XI -> WebService - A Complete Walkthrough (Part 1)
RFC -> XI -> WebService - A Complete Walkthrough (Part 2)
Regard's
Chetan Ahuja

HOW to update real time data from sap to other application?

We have two option of passing data from sap to other system.
1. web service
2. through idoc.
can anyone tell me advantages & disadv. of these two options.
Which scenario shd we use web service & idoc.
How is idoc triggerred.?
Is it only through user exit?
Kindly suggest any other ways for interacting with a 3rd party system which does not use a file.

Dear Libin,
IF you are using sap sytem as a sender then its better to use idoc's. Actually both systems (idoc and webservice) have there own advantages and disadvantages. Look up sdn for more info.
My personal choice would be idoc since with webservices you would need special tools like xml spy or altova and the skill to analyze and run those tools.,, its a little tedious..
Rgds
joel

Uploading an XML file from SAP into third party URL

Hi,
I need to Upload an XML file from sap into Third party URL. Can any body tell me the possible ways in SAP to achieve this task. Also explain me the proceedure.
Thanks in advance.
-Namdev

Sorry. If they only said HTTP/HTTPS and didn't say explicitly web service, it means they don't want it.
One thing I'm not sure is, do you have an URL at the third-party system that you need to contact, or should you provide one at your SAP system that they will contact?
If it is the first one, to send an HTTP request to a given URL using ABAP, you'll find an example here: [SAP Library: Example Program: Executing an HTTP Request|http://help.sap.com/saphelp_nw70/helpdata/en/1f/93163f9959a808e10000000a114084/frameset.htm]
Sandra

Sending mail to OUTLOOK from SAP when error encountered in MM creation

Hi ,
I am able to send a message to SAP inbox which i can view from SBWP. But as well i need to send mail to the OUTLOOK .How can i send this OUTLOOK .
I have configured the mail id in SCOT.
Even i configured in SCOT with BASIS team i m not able to send mail to outlook.I even checked in SOST their is no entry in that .
Is their a need for writing separate logic for sending mail to OUTLOOK as well?
Regards,
Ranjith ,
+91-8431858286.

HI Modak,
Please help me in getting out of this error encountered during a sample workflow thing.
Here is the requirement I need to send a OUTLOOK mail from SAP.If the user accepts the workflow task then mail need to send a recipient ,stating that he accepthed the request.
Below I designed that task.
In send Mail step I added the recipent thing as stated below.But I was unable to send mail to OUTLOOK .In this I am not even getting notification in my SBWP in SAP INBOX.

Can we send .csv file from sap srm system to sap pi?

Hi Experts,
we have 3 options send the data from sap systems to sap pi.i. e.proxy,idoc and rfc only
How can we send .csv file from sap srm to sap pi?
Regards,
Anjan

Anjan
As you know SAP SRM and SAP PI are different boxes.
*_Option 1:_*
we need a shared AL11 directory in between SAP SRM and SAP PI (Ask basis to setup shared folder). Place / Populate the file in the folder from SAP SRM and then it can be picked through sender file communication channel.
In this case you (Basis team) will share one folder which is visible from the AL11 transaction of both the systems (SRM and PI). You will drop .csv file using some report or program from SRM at this location and from PI you can read that file using File communication channel (NFS mode).
Option 2:
Setup a FTP at SRM environment and expose some folder which can be accessible from PI. Use sender file communication channel at PI end to pick the file.
You can use this option incase sharing of folder is not possible (due to network / other constrains). Here FTP server is required to expose any folder as FTP so as it can be accessible from internet (remote location). You need to expose some folder at SRM machine. You will drop .csv file using some report or program from SRM at this location. Now PI can fetch the file from that location using sender file communication channel (FTP Mode) providing user credentials.
Hope it clears now.
Regards
Raj

Send xml file from sap to third party url through https

Hi,
I have a requirement to send the xml file from ecc to a 3rd party url through HTTPS. How can we achieve this using ABAP.
Client doesn't have XI enviroment. The client has provided the 3rd party url where the file needs to be uploaded.
Please help ! <removed by moderator>
Thanks in advance.
Regards,
Chitra.K
Edited by: Thomas Zloch on Sep 12, 2011 12:58 PM

Hi Chitra,
I had similar requirement and here is what I did: -
REPORT Z_HTTP_POST_TEST_AMEY.
DATA: L_URL               TYPE                   STRING          ,
      L_PARAMS_STRING     TYPE                   STRING          ,
      L_HTTP_CLIENT       TYPE REF TO            IF_HTTP_CLIENT ,
      L_RESULT            TYPE                   STRING          ,
      L_STATUS_TEXT       TYPE                   STRING          ,
      L_HTTP_STATUS_CODE TYPE                   I               ,
      L_HTTP_LENGTH       TYPE                   I               ,
      L_PARAMS_XSTRING    TYPE                   XSTRING         ,
      L_XSTRING           TYPE                   XSTRING         ,
      L_IS_XML_TABLE      TYPE STANDARD TABLE OF SMUM_XMLTB      ,
      L_IS_RETURN         TYPE STANDARD TABLE OF BAPIRET2        ,
      L_OUT_TAB           TYPE STANDARD TABLE OF TBL1024
MOVE 'https://<hostname>/xxx/yyy/zzz' TO L_URL.
MOVE '<XML as string>' TO L_PARAMS_STRING.
*STEP-1 : CREATE HTTP CLIENT
CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
    EXPORTING
      URL                = L_URL
    IMPORTING
      CLIENT             = L_HTTP_CLIENT
    EXCEPTIONS
      ARGUMENT_NOT_FOUND = 1
      PLUGIN_NOT_ACTIVE = 2
      INTERNAL_ERROR     = 3
      OTHERS             = 4 .
"STEP-2 : AUTHENTICATE HTTP CLIENT
CALL METHOD L_HTTP_CLIENT->AUTHENTICATE
EXPORTING
    USERNAME             = 'testUser'
    PASSWORD             = 'testPassword'.
"STEP-3 : SET HTTP HEADERS
CALL METHOD L_HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
      EXPORTING NAME = 'Accept'
                VALUE = 'text/xml'.
CALL METHOD L_HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING NAME = '~request_method'
               VALUE = 'POST' .
CALL METHOD L_HTTP_CLIENT->REQUEST->SET_CONTENT_TYPE
    EXPORTING CONTENT_TYPE = 'text/xml' .
"SETTING REQUEST DATA FOR 'POST' METHOD
IF L_PARAMS_STRING IS NOT INITIAL.
   CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
     EXPORTING
         TEXT   = L_PARAMS_STRING
     IMPORTING
           BUFFER = L_PARAMS_XSTRING
     EXCEPTIONS
        FAILED = 1
        OTHERS = 2.
CALL METHOD L_HTTP_CLIENT->REQUEST->SET_DATA
    EXPORTING DATA = L_PARAMS_XSTRING .
ENDIF.
"STEP-4 : SEND HTTP REQUEST
CALL METHOD L_HTTP_CLIENT->SEND
    EXCEPTIONS
      HTTP_COMMUNICATION_FAILURE = 1
      HTTP_INVALID_STATE         = 2.
"STEP-5 : GET HTTP RESPONSE
    CALL METHOD L_HTTP_CLIENT->RECEIVE
      EXCEPTIONS
        HTTP_COMMUNICATION_FAILURE = 1
        HTTP_INVALID_STATE         = 2
        HTTP_PROCESSING_FAILED     = 3.
"STEP-6 : Read HTTP RETURN CODE
CALL METHOD L_HTTP_CLIENT->RESPONSE->GET_STATUS
    IMPORTING
      CODE = L_HTTP_STATUS_CODE
      REASON = L_STATUS_TEXT .
WRITE: / 'HTTP_STATUS_CODE = ',
          L_HTTP_STATUS_CODE,
         / 'STATUS_TEXT = ',
         L_STATUS_TEXT .
"STEP-7 : READ RESPONSE DATA
CALL METHOD L_HTTP_CLIENT->RESPONSE->GET_CDATA
        RECEIVING DATA = L_RESULT .
"STEP-8 : CLOSE CONNECTION
CALL METHOD L_HTTP_CLIENT->CLOSE
EXCEPTIONS
    HTTP_INVALID_STATE = 1
    OTHERS             = 2   .
"STEP-9 : PRINT OUTPUT TO FILE
CLEAR : L_XSTRING, L_OUT_TAB[].
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
    EXPORTING
      TEXT   = L_RESULT
    IMPORTING
      BUFFER = L_XSTRING
    EXCEPTIONS
      FAILED = 1
      OTHERS = 2.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
    BUFFER                = L_XSTRING
TABLES
    BINARY_TAB            = L_OUT_TAB .
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
   FILENAME                        = 'C:AMEYHTTP_POST_OUTPUT.xml'
TABLES
    DATA_TAB                        = L_OUT_TAB .
Also, following is the detailed link for use of HTTP_CLIENT class: -
http://help.sap.com/saphelp_nw70ehp1/helpdata/EN/1f/93163f9959a808e10000000a114084/content.htm
Also, in below link, you can ignore XI specific part and observe how its sending XML to external URL:-
(I know it describes call to SAP XI server's URL, but it can be used to call any URL)
http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/ae388f45-0901-0010-0f99-a76d785e3ccc
In addition to all above, following configs to be present at ABAP application server: -
1. The hostname used to URL should be present in SAP ABAP application server's 'hosts' file.
2. Security certificate (if available) for URL to be called must be installed in SAP ABAP application server.
Let me know if you achieve any progress with it...

Export data from SAP Document Management System to File System(FileStore)

Hi,
We need to extract/ export data (documents and metadata) from SAP Document Management System to windows File System (File Store), can anyone suggest us tool or methodology to do the same.
Thanks,
Nilesh

I'm also looking for a solution for this problem. We are capturing comments in BW-BPS layouts. They get stored in BW's document management system and we would like to export them out of the system for external reporting into an ACCESS database.

How many RA, ID, RD needed to send date from 1 to 2 bs?

Hi PI Experts,
How many receiver agreements,interface determination, receiver determination needed to send a single file to 2 business systems.
I was able to send data to the 1st business system but unable to send data to another business system and the error is saying that cannot create receiver agreement and communication channel.
please help me out as i am new to sap pi.

How many receiver agreements,interface determination, receiver determination needed to send a single file to 2 business systems.
as per my knowledge , one receiver agreements,interface determination and receiver determination it's enough if we want to send data based on codition in receiver determination.
if u want to send same data to 2 receiver at a time.
u need to create multi mapping(1 :n)in esr and
need to create 2 interface determinations and 2 receiver agreements for 2 receiver comm.channels
I was able to send data to the 1st business system but unable to send data to another business system and the error is saying that cannot create receiver agreement and communication channel.
yes , only one agreement support to one comm.channel.

Send files from SAP ECC5.0 to websphere MQ

Hi
What I need or use (ABAP) for sending files from SAP ECC5.0 to Websphere MQ. I've been reading post but mention PI/XI .
Thanks in advance

The Question is not so clear on how you are intergrating between SAP and Websphere.
But just incase if you are using WebSphere MQ Integrator(WMQI) SAP IDOC solutions are preferred.You can probably send idocs from SAP.

Send binary files from SAP System to SAP XI/PI

Dear experts,
in our SAP ERP-System we have a link to JPG files which are stored in an archive. We want to send these files with some other information to our SAP XI and then store them on a file server. Is there a way to send a MIME attachment via RFC? Or is there another way to send binary files from SAP ERP to SAP XI? We want to avoid polling the files on OS level.
Thanks and regards,
David

Most recommended way is to go for ABAP proxies. They support attachments.
Regards,
Prateek

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.

Print a pdf file from sap

Hello,
I'm looking for a way to print a .pdf file from sap . The file was created manualy and is in a newtwork folder.
I have to send the print to a network printer . Is it possible to use the AcroRd32.exe as a command line?
Thank you.

hii,
try this
CONVERT_OTFSPOOLJOB_2_PDF
http://help.sap.com/saphelp_nw04/helpdata/en/27/67443cc0063415e10000000a11405a/content.htm
PDF - Printing a PDF file from ABAP or SAP Script
regards,
Sri.

Need to send data as files from SAP to other systems.

Similar Messages

Maybe you are looking for