How to skip an erroneous file in a Sender CC File

Hi everyone!
I have a question, and i'd like to know if someone of you knows something about it:
I have many File to IDOCS scenarios, and sometimes we have the next problem:
e.g. if in the specified folder where the Sender CC will take the files, are put 3 files:
- File1.txt is put at 11:23 AM
- File2.txt at 11:29 AM
- and, File3.txt at 11:42
Let's suposse that File1.txt has a SOX Validation error, the XI informs the error, but keeps trying to take the same file, and the rest of the files that were put after that have to wait until this one is corrected or removed from the server.
¿Do you know any way to improve this?
Thanks in advance.
Juan

Juan.
Check out this file CC property..
Archive Faulty Source File...
Directory for archiving Files with error....XXXXXX
Check out this thread for more information..
Re: Processing Mode = 'Delete'; Archive Faulty Source Files; Add Timestamp ?
Hope this will help.
Nilesh

Similar Messages

How do I set up my phone to send a file to print from my iphone 5 to my Samsung CLX-4195FW printer?

How do I set up my phone to send a file to print from my iphone 5 to my Samsung CLX-4195FW printer?

Read the printer manual.

How do I scan a photo to a file and then send the file as an attachment via email.

How do I scan a photo to a file and then send the file as an attachment via email.

All of this depends largely on what printer /software you have, which Email client you use and to some extent which OS you are running.
Most HP printers have HP Solution Center which is used to set up scanning,choosing where to save,etc. Once a file/photo is scanned and saved to the folder, open the folder.Select the file and at the top of the window should be the option to 'Email'.
******Clicking the Thumbs-Up button is a way to say -Thanks!.******
**Click Accept as Solution on a Reply that solves your issue to help others**

File format while sending a file using FTP Process

Hi,
I am facing a formatting problem when i send a file from SAP application server to a different sever using FTP process.
The problem is like this:
Lets say I have a file with 10 records on the application server. When i am downloading this file to a pc, the file is showing 10 lines.
But when i open the same file on the other server it is showing 10 records as 1 line.
The file i am sending is a text file.(ex: acc_payable.txt)
If i open the same file on the other server using word pad it is showing 10 records in 10 different lines.
I want the file to be opened using notepad and want to see the each record in a different line
Can anybody help me on this issue
Regards,
Radhakrishna

Another stab at "simplest": can you avoid embedding
newline characters in the strings
your write and reply on PrintWriter's
println() methods instead?But, if I understand the OP, this will cause the same problem. He is running on Unix but wants to generate a DOS type eol. The println() method will use the OS default; therefore, he needs to explicitly specify the DOS eol.

(How) can I use my Airport Extreme to send FLAC files/iTunes to my stereo?

(New to this topic.) Is it possible to use my Airport Extreme Base Station to send FLAC and iTunes music files to my (ParaSound P3/A23) stereo system wirelessly?
If so, how?
(Not interested in iOS devices doing this - just, effectively, in using my 'mid-2011' 2.7 iMac (10.7.3) as a music server
TIA!

Yes, add an AirPort Express and convert FLAC to Apple Lossless and iTunes will be able to play them. VLC will not help since you need iTunes to connect to the AirPort Express and VLC will not work with iTunes.
There may be an exception to this but I've never tried it. You could try using AirFoil to connect to the AirPort Express and play your FLAC files that way but I have no guarantee it will work. AirFoil seems very flexible so it may prove to be a solution for you.
I'm not familiar with the Sonos Bridge/Connect system so I cannot comment on the quality. I understand that it is comparable to using the AirPort Express but locking at the price it seems a more expensive solution for your needs.

Preserve the file name when sending a file thru AS2

Hi Ramesh,
i encounter this requirement that my Customer want us to send a custom document to them with a specific filename thru AS2.
for example:-ORG1234DES20070423.xml where the 1234 and 20070423 is dynamic value and i get it from the content of the document.
they are using Cyclone
can this be done and how ?
thanks
Kin Wah

Hello,
Right now we do not have a feature as part of AS2 Plugin where in we can preserve the file name. Please raise an SR, depending on the justification we can give this as a feature.
Rgds,Ramesh

How to skip line for delimited file type?

Hi, i wanna ask how to skip (example: the first two line) for delimited file type?
Thanks...
Here is my script
Function NY_Skip06Center [strField, strRecord]
' FDM DataPump Import Script:
'Created by: FDM_Admin
'Date created: 2/28/2006
Dim strEntity
'Check first two characters of entity
For strEntity = 1 to 6
'Skip line
Res.PblnSKip = True
Next strEntity
End if
End Function
But it returns this error when imported
Error: An error occurred importing the file.
Detail: Object variable or With block variable not set
Anyone knows what's wrong
Edited by: user649207 on Mar 19, 2010 2:15 AM
Edited by: user649207 on Mar 19, 2010 3:04 AM

strAcc = DW.Utilities.fParseString (strField, 1, 1, chr(9))
I didn't look closely enough last time. The above is illogical. The parsestring function parses a string based on a delimiter.
The function has these arguments:
String to Parse
How many fields are in the string
The parsed field to return
Field delimiter
In the above, strField is returning the field specified in your import format. You are also saying that there is a total of 1 field. If that were the case, you wouldn't need to parse anything.
I am guessing that your call needs to look something more like this:
strAcc = DW.Utilities.fParseString (*strRecord*, *8*, 1, chr(9))
Make sense?
If not, maybe you can include a few sample lines from your data file and that will make it easier to help you.
Is your import format fixed or delimited?

How to skip first records while reading a csv file

Hi,
How to skip the first 5 records while reading csv file.
I have a file which contains first 5 records as dummy records, I want to skip those records and load the rest into RDBMS.
How to achieve this?
Thanks,
Naveen Suram

Hi Guru,
Actually I have converted an excel to CSV format, which is generating first 4 rows as some dummy records. 5th row is my header record. But in hearder record, two column names are same. Thats why while reversing it is giving an error.
With zero in number of columns in header, I am getting the column names as C1, C2...
If not in reversing, can we reject the first records while loading into RDMBS table using an interface?
Thanks,
Naveen Suram

How to skip from one list to another list in interactive report?

Hi Friends,
How to skip from one list to another list in interactive report that means now i am in 7 th list how to skip 4th list ?
Or now i am in 7 th list how to skip 9th list ?
can anybody send sample code please.
Thanks in advance.

hi,
at line-selection.
case sy-lsind.
when 9.
sylsind = 4.
endcase.
try like this when u r in 9th list next it goes to 4 th list

Send XML File as attachement in Mail Receiver adapter

Hi all,
i have the following scenario. i would like to read an XML file from the file system and send this file as an attachement of a mail to a mail receiver specified in this file.
i would like to fill the payload of the mail with some information from the xml file and in addition i would like to send the complete xml file as an mail attachement.
can anybody tell me, how the mail receiver adater needs to be specified ?
best regards,
martin

Hey,
you can go for dynamic configuration of mail adapter.
In this you need to import a mail structure.
mail details such as to, from, subject and content of the mail are a part of the structure.
In your ID check the Use Mail package and also keep attachments.
Now you can give your details in mapping itself.
whatever you want to map in the content of the mail, map it in the content field.
also your file will behave as an attachment.
refer to this blog.
this is the mail structure. Import it as extenal definitions.
<?xml version="1.0" encoding="utf-8" ?>

<xs:schema targetNamespace="http://sap.com/xi/XI/Mail/30"
xmlns:xi="http://sap.com/xi/XI/Mail/30"
xmlns:xs="http://www.w3.org/2001/XMLSchema">

<xs:element name="Mail">
    <xs:annotation>
      <xs:documentation>Mail package for XI - Mail Adapter</xs:documentation>
    </xs:annotation>
    <xs:complexType>
      <xs:sequence>
        <xs:element name="Subject" type="xs:string" minOccurs="0"/>
        <xs:element name="From" type="xs:string" minOccurs="0"/>
        <xs:element name="To" type="xs:string" minOccurs="0"/>
        <xs:element name="Reply_To" type="xs:string" minOccurs="0"/>
        <xs:element name="Content_Type" type="xs:string" minOccurs="0"/>
        <xs:element name="Date" type="xs:dateTime" minOccurs="0"/>
        <xs:element name="Message_ID" type="xs:string" minOccurs="0"/>
        <xs:element name="X_Mailer" type="xs:string" minOccurs="0"/>
        <xs:element name="Content" minOccurs="0">
          <xs:annotation>
            <xs:documentation>any type</xs:documentation>
          </xs:annotation>
        </xs:element>
      </xs:sequence>
      <xs:attribute name="encoding" type="xs:string"/>
    </xs:complexType>
</xs:element>
<xs:element name="MailReceipt">
    <xs:annotation>
      <xs:documentation>Mail Receipt for XI - Mail Adaper</xs:documentation>
    </xs:annotation>
    <xs:complexType>
      <xs:sequence>
        <xs:element name="Server" type="xs:string"/>
        <xs:element name="Format" type="xs:string"/>
        <xs:element name="UseMailPackage" type="xs:boolean"/>
        <xs:element name="Encoding" type="xs:string"/>
        <xs:element name="Subject" type="xs:string" minOccurs="0"/>
        <xs:element name="From" type="xs:dateTime" minOccurs="0"/>
        <xs:element name="To" type="xs:string" minOccurs="0"/>
        <xs:element name="Date" type="xs:dateTime" minOccurs="0"/>
      </xs:sequence>
    </xs:complexType>
</xs:element>
</xs:schema>
regards,
milan

Sending multiple files

in file to file. i am sending multiple file with different file name and in target side the same file names should be displayed.help me how to solve problem

Hi,
In recevier communication channel we have advanced tab, asam properties we have enable that file name.
try {
String filename    = "";
DynamicConfiguration conf1 = (DynamicConfiguration) container
    .getTransformationParameters()
    .get(StreamTransformationConstants.DYNAMIC_CONFIGURATION);
DynamicConfigurationKey key1 = DynamicConfigurationKey.create( "http:/"+"/sap.com/xi/XI/System/File","FileName");
filename = conf1.get(key1);
filename = filename".xml";
conf1.put(key1,filename);
return filename;
catch(Exception e)
     String exception = e.toString();
      return exception;
regards,
ganesh.

Sending multiple files using one socket

Hi guys
I'm working on a simple app that sends multiple files over LAN or I-NET. The problem is that the app run seems to be non-deterministic. I keep getting this error on the client side:
java.io.UTFDataFormatException: malformed input around byte 5
        at java.io.DataInputStream.readUTF(Unknown Source)
        at java.io.DataInputStream.readUTF(Unknown Source)
        at service.DownloadManager.storeRawStream(DownloadManager.java:116)
        at service.DownloadManager.downloadFiles(DownloadManager.java:47)
        at manager.NetworkTransferClient$1.run(NetworkTransferClient.java:104)The byte position changes every time I run a transfer. The error is caused by this line: String fileName = in.readUTF(); Here's the complete code:
Client
private void storeRawStream() {
        try {
            FileOutputStream fileOut;
            int fileCount = in.readInt();
            for(int i=0; i<fileCount; i++) {
                byte data[] = new byte[BUFFER];
                String fileName = in.readUTF();
                fileOut = new FileOutputStream(new File(upload, fileName));
                long fileLength = in.readLong();
                for(int j=0; j<fileLength / BUFFER; j++) {
                    int totalCount = 0;
                    while(totalCount < BUFFER) {
                        int count = in.read(data, totalCount, BUFFER - totalCount);
                        totalCount += count;
                    fileOut.write(data, 0, totalCount);
                    fileOut.flush();
                    bytesRecieved += totalCount;
                // read the remaining bytes
                int count = in.read(data, 0, (int) (fileLength % BUFFER));
                fileOut.write(data, 0, count);
                fileOut.flush();
                fileOut.close();
                transferLog.append("File " + fileName + " recieved successfully.\n");
        } catch (Exception ex) {
            ex.printStackTrace();
    }Server
public void sendFiles(File[] files) throws Exception {
        byte data[] = new byte[BUFFER];
        FileInputStream fileInput;
        out.writeInt(files.length);
        for (int i=0; i<files.length; i++) {
            // send the file name
            out.writeUTF(files.getName());
// send the file length
out.writeLong(files[i].length());
fileInput = new FileInputStream(files[i]);
int count;
while((count = fileInput.read(data, 0, BUFFER)) != -1) {
out.write(data, 0, count);
bytesSent += count;
fileInput.close();
out.flush();
Does anybody know where's the problem? Thanx for any reply.

Send the length of each file ahead of each file, with DataOutputStream.writeLong().
When reading, read that long, then stop reading bytes when you've read exactly that length.

Is it possible to send a file to a sharepoint site using SSIS?

Hi everyone,
I got a request from my customer. She wanted me to develop a SSIS package that produces a CSV file and then send the file to a sharepoint folder. Is this possible? Please give me some detailed suggestion so I can do a simple test by myself. Thank you very
much.
regards,
Oliver

You may also want to check these other posts, too:
http://spmaster.wordpress.com/2011/08/15/uploading-documents-to-sharepoint-via-powershell/
http://www.a2zdotnet.com/View.aspx?Id=138#.U_ziy_ldWSo
http://geekswithblogs.net/bjackett/archive/2010/02/15/programmatically-uploading-files-to-a-sharepoint-2007-document-library.aspx
http://www.cozyroc.com/script/http-upload-download-task
SSIS Tasks Components Scripts Services | http://www.cozyroc.com/

How to skip first record while inserting data from a flat file to BW system

Hi Experts,
In my project we have to upload flat file into a BW system. I have written a program and it is working fine.
Now we have got another requirement. The flat file will have a header record (first row). While uploading the flat file we have to skip this record. How I can do so?
The code is as below:
FORM upload1.
DATA : wf_title    TYPE string,
          lt_filetab TYPE filetable,
          l_separator TYPE char01,
          l_action    TYPE i,
          l_count     TYPE i,
          ls_filetab TYPE file_table,
          wf_delemt TYPE rollname,
          wa_fieldcat TYPE lvc_s_fcat,
          tb_fieldcat TYPE lvc_t_fcat,
          rows_read TYPE i,
          p_error   TYPE char01,
          l_file      TYPE string.
DATA: wf_object(30) TYPE c,
          wf_tablnm TYPE rsdchkview.
wf_object = 'myprogram'.
DATA i TYPE i.
DATA:
       lr_mdmt                TYPE REF TO cl_rsdmd_mdmt,
       lr_mdmtr               TYPE REF TO cl_rsdmd_mdmtr,
       lt_idocstate           TYPE rsarr_t_idocstate,
       lv_subrc               TYPE sysubrc.
TYPES : BEGIN OF test_struc,
           /bic/myprogram TYPE /bic/oimyprogram,
           txtmd   TYPE rstxtmd,
           END OF test_struc.
DATA :    tb_assum TYPE TABLE OF /bic/pmyprogram.
DATA: wa_ztext TYPE /bic/tmyprogram,
        myprogram_temp TYPE ziott_assum,
        wa_myprogram TYPE /bic/pmyprogram.
DATA : test_upload TYPE STANDARD TABLE OF test_struc,
         wa2 TYPE test_struc.
DATA : wa_test_upload TYPE test_struc,
         ztable_data TYPE TABLE OF /bic/pmyprogram,
         ztable_text TYPE TABLE OF /bic/tmyprogram,
         wa_upld_text TYPE /bic/tmyprogram,
         wa_upld_data TYPE /bic/pmyprogram,
          t_assum TYPE ziott_assum.
DATA : wa1 LIKE test_upload.
wf_title = text-026.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = wf_title
      default_extension       = 'txt'
      file_filter             = 'Tab delimited Text Files (*.txt)'
    CHANGING
      file_table              = lt_filetab
      rc                      = l_count
      user_action             = l_action
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      OTHERS                  = 3.                          "#EC NOTEXT
IF sy-subrc <> 0.
    EXIT.
ENDIF.
LOOP AT lt_filetab INTO ls_filetab.
    l_file = ls_filetab.
ENDLOOP.
CHECK l_action = 0.
IF l_file IS INITIAL.
    EXIT.
ENDIF.
l_separator = 'X'.
wa_fieldcat-fieldname = 'test'.
wa_fieldcat-dd_roll = wf_delemt.
APPEND wa_fieldcat TO tb_fieldcat.
CALL FUNCTION 'MESSAGES_INITIALIZE'.
CLEAR wa_test_upload.
Upload file from front-end (PC)
File format is tab-delimited ASCII
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = l_file
      has_field_separator     = l_separator
    TABLES
     data_tab                = i_mara
    data_tab                   = test_upload
    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.
    EXIT.
ELSE.
   CALL FUNCTION 'MESSAGES_INITIALIZE'.
    IF test_upload IS NOT INITIAL.
      DESCRIBE TABLE test_upload LINES rows_read.
      CLEAR : wa_test_upload,wa_upld_data.
      LOOP AT test_upload INTO wa_test_upload.
        CLEAR : p_error.
        rows_read = sy-tabix.
        IF wa_test_upload-/bic/myprogram IS INITIAL.
          p_error = 'X'.
          MESSAGE s153 WITH wa_test_upload-/bic/myprogram sy-tabix.
          CONTINUE.
        ELSE.
          TRANSLATE wa_test_upload-/bic/myprogram TO UPPER CASE.
          wa_upld_text-txtmd = wa_test_upload-txtmd.
          wa_upld_text-txtsh = wa_test_upload-txtmd.
          wa_upld_text-langu = sy-langu.
          wa_upld_data-chrt_accts = 'xyz1'.
          wa_upld_data-co_area = '12'.
          wa_upld_data-/bic/zxyzbcsg = 'Iy'.
          wa_upld_data-objvers = 'A'.
          wa_upld_data-changed = 'I'.
          wa_upld_data-/bic/zass_mdl = 'rrr'.
          wa_upld_data-/bic/zass_typ = 'I'.
          wa_upld_data-/bic/zdriver = 'yyy'.
          wa_upld_text-langu = sy-langu.
          MOVE-CORRESPONDING wa_test_upload TO wa_upld_data.
          MOVE-CORRESPONDING wa_test_upload TO wa_upld_text.
          APPEND wa_upld_data TO ztable_data.
          APPEND wa_upld_text TO ztable_text.
        ENDIF.
      ENDLOOP.
      DELETE ADJACENT DUPLICATES FROM ztable_data.
      DELETE ADJACENT DUPLICATES FROM ztable_text.
      IF ztable_data IS NOT INITIAL.
        CALL METHOD cl_rsdmd_mdmt=>factory
          EXPORTING
            i_chabasnm     = 'myprogram'
          IMPORTING
            e_r_mdmt       = lr_mdmt
          EXCEPTIONS
            invalid_iobjnm = 1
            OTHERS         = 2.
   CALL FUNCTION 'MESSAGES_INITIALIZE'.
   **Lock the Infoobject to update
        CALL FUNCTION 'RSDG_IOBJ_ENQUEUE'
          EXPORTING
            i_objnm      = wf_object
            i_scope      = '1'
            i_msgty      = rs_c_error
          EXCEPTIONS
            foreign_lock = 1
            sys_failure = 2.
        IF sy-subrc = 1.
          MESSAGE i107(zddd_rr) WITH wf_object sy-msgv2.
          EXIT.
        ELSEIF sy-subrc = 2.
          MESSAGE i108(zddd_rr) WITH wf_object.
          EXIT.
        ENDIF.
*****Update Master Table
        IF ztable_data IS NOT INITIAL.
          CALL FUNCTION 'RSDMD_WRITE_ATTRIBUTES_TEXTS'
                EXPORTING
                  i_iobjnm                     = 'myprogram'
                  i_tabclass                   = 'M'
       I_T_ATTR                     = lt_attr
                TABLES
                  i_t_table                    = ztable_data
                  EXCEPTIONS
                 attribute_name_error         = 1
                 iobj_not_found               = 2
                 generate_program_error       = 3
                 OTHERS                       = 4.
          IF sy-subrc <> 0.
            CALL FUNCTION 'MESSAGE_STORE'
              EXPORTING
                arbgb = 'zddd_rr'
                msgty = 'E'
                txtnr = '054'
                msgv1 = text-033
              EXCEPTIONS
                OTHERS = 3.
            MESSAGE e054(zddd_rr) WITH 'myprogram'.
          ELSE.
            CALL FUNCTION 'MESSAGE_STORE'
              EXPORTING
                arbgb = 'zddd_rr'
                msgty = 'S'
                txtnr = '053'
                msgv1 = text-033
              EXCEPTIONS
                OTHERS = 3.
          ENDIF.
*endif.
*****update Text Table
          IF ztable_text IS NOT INITIAL.
            CALL FUNCTION 'RSDMD_WRITE_ATTRIBUTES_TEXTS'
              EXPORTING
                i_iobjnm               = 'myprogram'
                i_tabclass             = 'T'
              TABLES
                i_t_table              = ztable_text
              EXCEPTIONS
                attribute_name_error   = 1
                iobj_not_found         = 2
                generate_program_error = 3
                OTHERS                 = 4.
            IF sy-subrc <> 0.
              CALL FUNCTION 'MESSAGE_STORE'
                EXPORTING
                  arbgb = 'zddd_rr'
                  msgty = 'E'
                  txtnr = '055'
                  msgv1 = text-033
                EXCEPTIONS
                  OTHERS = 3.
            ENDIF.
          ENDIF.
        ELSE.
          MESSAGE s178(zddd_rr).
        ENDIF.
      ENDIF.
      COMMIT WORK.
      CALL FUNCTION 'RSD_CHKTAB_GET_FOR_CHA_BAS'
        EXPORTING
          i_chabasnm = 'myprogram'
        IMPORTING
          e_chktab   = wf_tablnm
        EXCEPTIONS
          name_error = 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.
****Release locks on Infoobject
      CALL FUNCTION 'RSDG_IOBJ_DEQUEUE'
        EXPORTING
          i_objnm = 'myprogram'
          i_scope = '1'.
    ENDIF.
ENDIF.
PERFORM data_selection .
PERFORM update_alv_grid_display.
CALL FUNCTION 'MESSAGES_SHOW'.
ENDFORM.
Please let me know how I can skip first record of the flat file?
Regards,
S

go through this hope u can get some idea
REPORT ztest no standard page heading line-size 255.
                      Declaration                            *
TYPES t_itab1 TYPE alsmex_tabline.
types: begin of t_csks,
       kostl like csks-kostl,
      end of t_csks.
types: begin of t_cska,
       kstar like cska-kstar,
      end of t_cska.
data: begin of t_flatfile,
      docdate like COHEADER-BLDAT,
      postdate like COHEADER-BUDAT,
      doctext like COHEADER-BLTXT,
       costele like RK23F-KSTAR,
       amount like RK23F-WTGBTR,
       scostctr like RK23F-SKOSTL,
       rcostctr like RK23F-EKOSTL,
       rintorder like RK23F-EAUFNR,
     end of t_flatfile.
data: begin of t_flatfile1,
      docdate like COHEADER-BLDAT,
      postdate like COHEADER-BUDAT,
      doctext like COHEADER-BLTXT,
       costele like RK23F-KSTAR,
       amount like RK23F-WTGBTR,
       scostctr like RK23F-SKOSTL,
       rcostctr like RK23F-EKOSTL,
       rintorder like RK23F-EAUFNR,
       NUM LIKE SY-INDEX,
     end of t_flatfile1.
data: itab like table of t_flatfile with header line.
data: itab2 like table of t_flatfile1 with header line.
DATA: it_itab1 TYPE STANDARD TABLE OF t_itab1 WITH HEADER LINE,
      MESSTAB1 LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE,
      MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
data: begin of bdcdata occurs 0.
        include structure bdcdata.
data: end of bdcdata.
data:t_lin type i VALUE '0',
     u_rec type i VALUE '0',
     s_rec type i VALUE '0'.
data: it_csks type standard table of t_csks,
      wa_csks type t_csks.
data: it_cska type standard table of t_cska,
      wa_cska type t_cska.
*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-010.
parameters: p_docdat LIKE COHEADER-BLDAT obligatory,
            p_postda LIKE COHEADER-BUDAT obligatory,
            p_doctxt LIKE COHEADER-BLTXT.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-011.
parameters: p_file LIKE RLGRAP-FILENAME obligatory,
            DIS_MODE LIKE CTU_PARAMS-DISMODE DEFAULT 'N'.
SELECTION-SCREEN END OF BLOCK b2.
              A T S E L E C T I O N   S C R E E N                  *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM get_local_file_name USING p_file.
*Start of Selection
START-OF-SELECTION.
Perform get_Excel_data.
perform validate_data.
Perform Process_Data.
                end-of-selection
end-of-selection.
perform display_data.
*&      Form get_local_file_name
      text
     -->P_P_FILE text
FORM get_local_file_name USING    P_P_FILE.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    CHANGING
      file_name = p_file.
ENDFORM.                    " get_local_file_name
*&      Form get_Excel_data
      text
--> p1        text
<-- p2        text
FORM get_Excel_data .
FIELD-SYMBOLS : <FS>.
DATA : V_INDEX TYPE I.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = p_file
      i_begin_col             = 1
    i_begin_row             = 2
      i_begin_row             = 1
      i_end_col               = 256
      i_end_row               = 9999                        "65536
    TABLES
      intern                  = it_itab1
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    Message text-013 type 'E'.
ENDIF.
IF IT_ITAB1[] IS INITIAL.
    Message text-001 type 'E'.
else.                                    "IF IT_ITAB1[] IS INITIAL.
    data: itab2 like itab occurs 0 with header line.
    SORT IT_ITAB1 BY ROW COL.
    LOOP AT IT_ITAB1.
      MOVE :IT_ITAB1-COL TO V_INDEX.
      ASSIGN COMPONENT V_INDEX OF STRUCTURE itab2 TO <FS>.
      MOVE : IT_ITAB1-VALUE TO <FS>.
      AT END OF ROW.
        MOVE-CORRESPONDING itab2 TO itab.
        APPEND itab.
        CLEAR:itab,itab2.
      ENDAT.
    endloop.
    describe table itab lines t_lin.
endif.               "IF IT_ITAB1[] IS INITIAL.
ENDFORM.                    " get_Excel_data
*&      Form Process_Data
      text
--> p1        text
<-- p2        text
FORM Process_Data .
data:l_tabix type sy-tabix.
data:l_periv like t001-periv,
       l_monat like bkpf-monat,
       l_gjahr like bkpf-gjahr,
       l_amt(21) type c.
data: l_ddate(10),
        l_pdate(10).
WRITE p_docdat TO l_ddate.
WRITE p_postda TO l_pdate.
clear: l_periv,l_monat,l_gjahr.
select single periv from t001 into l_periv where bukrs = '5000'. "P_bukrs
if sy-subrc eq 0.
    l_gjahr = p_postda+0(4).
    call function 'FI_PERIOD_DETERMINE'
      EXPORTING
        i_budat = p_postda
        i_bukrs = '5000'     "p_bukrs
        i_periv = l_periv
        i_gjahr = l_gjahr
      IMPORTING
        e_monat = l_monat.
    clear:l_periv.
endif.
loop at itab2.
    refresh:bdcdata.
    clear:bdcdata.
    l_tabix = sy-tabix.
    perform bdc_dynpro      using 'SAPLK23F1' '1200'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'COHEADER-SEND_REC_REL'
                                  '10SAP'.
    perform bdc_field       using 'RK23F-STATUS'
                                  'S'.
    perform bdc_field       using 'COHEADER-BLDAT'
                             itab-docdate.
                                  l_ddate.
    perform bdc_field       using 'COHEADER-BUDAT'
                             itab-postdate.
                                  l_pdate.
    perform bdc_field       using 'COHEADER-PERIO'
                                   l_monat.                 "'9'.
    perform bdc_field       using 'COHEADER-BLTXT'
                             itab-doctext.
                                  p_doctxt.
    perform bdc_field       using 'RK23F-KSTAR'
                                  itab2-costele.
    WRITE itab2-amount TO l_amt.
l_amt = itab-amount.
    condense l_amt no-gaps.
    perform bdc_field       using 'RK23F-WTGBTR'
                                   l_amt.
                             itab-amount.
    perform bdc_field       using 'RK23F-WAERS'
                                  'USD'.
*perform bdc_field       using 'RK23F-SGTXT'
                             itab-doctext.
    perform bdc_field       using 'RK23F-SKOSTL'
                                  itab2-scostctr.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RK23F-EAUFNR'.
    perform bdc_field       using 'RK23F-EKOSTL'
                                  itab2-rcostctr.
    perform bdc_field       using 'RK23F-EAUFNR'
                                  itab2-rintorder.
    perform bdc_dynpro      using 'SAPLK23F1' '1200'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=POST'.
    perform bdc_field       using 'COHEADER-SEND_REC_REL'
                                  '10SAP'.
    perform bdc_field       using 'RK23F-STATUS'
                                  'S'.
    perform bdc_field       using 'COHEADER-BLDAT'
                             itab-docdate.
                                  l_ddate.
    perform bdc_field       using 'COHEADER-BUDAT'
                              itab-postdate.
                                  l_pdate.
    perform bdc_field       using 'COHEADER-PERIO'
                             '9'.
                                    l_monat.
    perform bdc_field       using 'COHEADER-BLTXT'
                              itab-doctext.
                                  p_doctxt.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RK23F-KSTAR'.
    perform bdc_field       using 'RK23F-WAERS'
                                  'USD'.
    CALL TRANSACTION 'KB15N' USING BDCDATA MODE DIS_MODE MESSAGES INTO MESSTAB.
    If sy-subrc = 0.
      s_rec = s_rec + 1.
    ELSE.
      u_rec = u_rec + 1.
      move ITAB2-NUM to messtab1-msgv1.
      concatenate itab2-costele ' | ' itab2-scostctr ' | ' itab2-rcostctr ' | ' itab2-rintorder into messtab1-msgv2.
      condense messtab1-msgv2.
      condense messtab1-msgv1.
      append messtab1.
    endif.
    clear:itab2.
endloop.
ENDFORM.                    " Process_Data
      BDC_DYNPRO                                                     *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO   = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.                    "BDC_DYNPRO
       BDC_FIELD                                                     *
FORM BDC_FIELD USING FNAM FVAL.
IF FVAL <> ''. "NODATA.
    CLEAR BDCDATA.
    BDCDATA-FNAM = FNAM.
    BDCDATA-FVAL = FVAL.
    APPEND BDCDATA.
ENDIF.
ENDFORM.                    "BDC_FIELD
*&      Form display_data
      text
--> p1        text
<-- p2        text
FORM display_data .
skip 2.
write:/15 text-002.
skip 2.
write:/8 text-003.
SKIP.
write:/12 text-008,
         25 P_DOCDAT.
SKIP.
write:/12 text-009,
         25 P_POSTDA.
SKIP.
write:/12 text-012,
          25 P_DOCTXT.
SKIP.
write:/12 text-004,
         25 p_file.
skip 2.
write:/8 text-005,
        60 t_lin.
skip.
write:/8 text-006,
        60 s_rec.
skip.
write:/8 text-007,
        60 u_rec.
skip.
write:/10 'row no',
         20 'Information'.
skip.
loop at messtab1.
    write:/10 messtab1-msgv1,
           20 messtab1-msgv2.
    clear:messtab1.
endloop.
ENDFORM.                    " display_data
*&      Form validate_data
      text
--> p1        text
<-- p2        text
FORM validate_data .
data: l_tabix1 type sy-tabix.
data: l_tabix2 type sy-tabix.
if not itab[] is initial.
    select kostl from CSKS into table it_csks.
    if sy-subrc eq 0.
      sort it_csks by kostl.
    endif.
    select kstar from CSKA into table it_cska.
    if sy-subrc eq 0.
      sort it_cska by kstar.
    endif.
    loop at itab.
      l_tabix1 = sy-tabix.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
    INPUT         = itab-scostctr
IMPORTING
   OUTPUT        = itab-scostctr .
      read table it_csks into wa_csks with key kostl = itab-scostctr.
      if sy-subrc ne 0.
        u_rec = u_rec + 1.
       L_TABIX2 = l_tabix1 + 1.
       move l_tabix2 to messtab1-msgv1.
        move l_tabix1 to messtab1-msgv1.
        move itab-rintorder to messtab1-msgv2.
        concatenate itab-costele ' | ' itab-scostctr ' | ' itab-rcostctr ' | ' itab-rintorder into messtab1-msgv2.
        condense messtab1-msgv2.
        condense messtab1-msgv1.
        append messtab1.
        clear:wa_csks.
       CLEAR:L_TABIX2.
        continue.
      endif.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
    INPUT         = itab-rcostctr
IMPORTING
   OUTPUT        = itab-rcostctr .
      read table it_csks into wa_csks with key kostl = itab-rcostctr.
      if sy-subrc ne 0.
        u_rec = u_rec + 1.
       L_TABIX2 = l_tabix1 + 1.
       move l_tabix2 to messtab1-msgv1.
        move l_tabix1 to messtab1-msgv1.
          concatenate itab-costele ' | ' itab-scostctr ' | ' itab-rcostctr ' | ' itab-rintorder into messtab1-msgv2.
        condense messtab1-msgv2.
        condense messtab1-msgv1.
        append messtab1.
        clear:wa_csks.
       CLEAR:L_TABIX2.
        continue.
      endif.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
    INPUT         = itab-costele
IMPORTING
   OUTPUT        = itab-costele .
      read table it_cska into wa_cska with key kstar = itab-costele.
      if sy-subrc ne 0.
        u_rec = u_rec + 1.
       L_TABIX2 = l_tabix1 + 1.
       move l_tabix2 to messtab1-msgv1.
        move l_tabix1 to messtab1-msgv1.
        concatenate itab-costele ' | ' itab-scostctr ' | ' itab-rcostctr ' | ' itab-rintorder into messtab1-msgv2.
        condense messtab1-msgv2.
        condense messtab1-msgv1.
        append messtab1.
        clear:wa_csks.
       CLEAR:L_TABIX2.
        continue.
      endif.
move-corresponding itab to itab2.
MOVE l_tabix1 TO ITAB2-NUM.
append itab2.
clear: itab2.
      clear:itab.
    endloop.
else.
    message 'No records in File' type 'S'.
endif.
ENDFORM.                    " validate_data

How to skip all files other than .txt file in Mail Sender Attachemnt ?

Hi Friends ,
                  I am reading an Mail attachement and sending to R3 using PaloadSwapBean and MessageTransformBean .
                     I used to get attachement as .txt file , name like Ex10185.txt in one mail . In another mail Ex10186.txt like that.
                    If only thoses file comes then no problem .
<b>                   IF some times along with .txt file some .html files are coming by that time my Mail Adapter incorretly reading the .html file.</b>
            <b>      Please tell me how to skip those kind of attachements and read only .txt file</b>
                      Expecting your answers asap.
Best Regards.,
V.Rangarajan

Hi Michal,
               Thanks for your reply , Sorry! I am aware of how to write adapter module. Can you please tell me how to write adapter module ?
                  Is there any links available or Blogs ?
                 I am expecting your reply asap .
Best Regards.,
V.Rangarajan

How to skip an erroneous file in a Sender CC File

Similar Messages

Maybe you are looking for