Flat File Records Validation

Hi All,
We have a requirement, every one hour we are getting a flat file. We are loading into a stagging tables , at the time of extraction we want to validate the count of records from source and count of records loaded into stagging tables. If the records count
not match delete the data from stagging tables.
How can we achieve the above one using C# Code.
Thanks in Advance....

Thanks Visakh for quick reply...
We want to use C# script here, it is our requirement.... How can we achieve the same....
Its straightforward
see
http://www.c-sharpcorner.com/uploadfile/muralidharan.d/how-to-use-rowcount-in-ssis/
Still I cant understand why you need to go for this when there is a standard way (unless this is an assignment!)
Please Mark This As Answer if it solved your issue
Please Vote This As Helpful if it helps to solve your issue
Visakh
My Wiki User Page
My MSDN Page
My Personal Blog
My Facebook Page

Similar Messages

Errors in flat file records? how can i handle them?

Hi All,
I am new for BDC. I am uploading customer(XD01) records using BDC caltransaction method.my problem is when i am running the program, some times my program is not updating the records because of my flat file errors. after i correcting the error records and if i run the same program already updated records not processing. my program not running. what i need to do? how can i handle the flat file for reprocessing the error records?
i have around 50,000 records in my flat file.

your program accepts a flat file say the structure of it is structure_load and you create another structure similar to structure_load and name it structure_error.
loop at itab_load.
call transactions...
if success..
commit work and wait X sec.
else.
move-corresponding field to structure_error
append structure_error.
endif.
endloop.
write the file stru_error to PC or app server and make the changes to the data and use the str_error as input to your code again..

BDC (Flat File Data Validation) - Code

I am trying to validate flat file data BEFORE performing BDC (Call Trans. or Session)..
Pls help me out in below code for xk02..
DATA: BEGIN OF itab occurs 0, "ITAB having flat file data.
      lifnr(16) ,
      bukrs(4),
      ekorg(4),
      END OF itab.
DATA: BEGIN OF int_final occurs 0,
      lifnr(16) ,
      bukrs(4),
      ekorg(4),
      status(6),
      message(6),
      END OF int_final.
DATA: int_final TYPE TABLE OF int_final.
DATA: wa_itab TYPE TABLE OF itab.
DATA: validate_itab TYPE TABLE OF itab. "VALIDATE_ITAB having master data.
DATA: wa_validate_itab TYPE TABLE OF itab.
FORM data_validation .
SELECT LFB1LIFNR LFB1BUKRS LFM1~EKORG INTO TABLE validate_itab
         FROM LFB1 INNER JOIN LFM1 ON LFB1LIFNR = LFM1LIFNR.
IF sy-subrc = 0.
SORT validate_itab BY lifnr bukrs ekorg.
ENDIF.
LOOP AT itab INTO wa_itab.
READ TABLE validate_itab WITH KEY
lifnr = itab-lifnr
bukrs = itab-bukrs
ekorg = itab-ekorg
BINARY SEARCH.
IF sy-subrc NE 0.
PERFORM f_error_log USING text-005. "Invalid Value Set
CONTINUE.
ENDIF.
ENDLOOP.
ENDFORM.                    " data_validation
*&      Form f_error_log
FORM f_error_log USING l_message TYPE string.
CLEAR : fs_final.
fs_final-lifnr = itab-lifnr.
fs_final-bukrs = itab-bukrs.
fs_final-ekorg = itab-ekorg.
fs_final-status = text-014. "Error
fs_final-message = l_message.
APPEND fs_final TO int_final.
ENDFORM.                    " f_error_log
Thanks..

Hi GAurav,
I have a small question in th validation.
In LFM1~LIFNR does not contian any value how u r comparing both and one more thing After getting the data using GUI_upload u will get the data into validate_tab.
Loop at Vlidate_tab into wa_itab.
SELECT LFB1LIFNR LFB1BUKRS LFM1~EKORG INTO TABLE validate_itab
FROM LFB1 INNER JOIN LFM1 ON LFB1~LIFNR = wa_itab-lifnr.
endllop.
Thanks,

How to upload the flat file records into internal table by position?

Hi
I have a flat file which has 7 records in each row and they are NOT provided with CSV or Tab demilited...
They are continous text without spaces....
but i know the fixed length of each field Eg : 1st field 7 char and seconc field 3 char and so on...
How can i upload this file into internal table by reading positions of each field...I know we can use GUI_UPLOAD and Read dataset and Open dataset...
But please let me know to read the file with the fixed postions and load into internal table...
Thanks in advance
MM

Hi
As per my knowledge i dont think thr is some function module or so to read with a fixed positions.
You can use the below method if you think this is the best way.
Suppose your file has
types : begin of ty_itab,
            field1 type char7,
            field2 type char3,
            field3 type chat3,
            field4 type char3,
            end of ty_itab.
types : begin of ty_upload,
             str type string,
            end of ty_upload.
data : it_itab type standatd table of ty_itab,
          it_upload type standard table ot ty_upload,
          wa_itab type ty_itab,
          wa_upload type ty_upload.
use gui_upload.get the data in it_upload.
here you know that u have first 16 charcters makes a first row n then next 16 charcters next row
Loop at it_upload into wa_upload.
   v_len = strlen ( wa_upload ).
   v_len = v_len / 16.
    You get number of rows per record ,if it is decimal value make it final value if 3.9 make to 4.
    do v_len times.
      wa_itab = wa_upload.
      By this only first 16 characters are moved and respective fields will get a value.or else u can use offset
       wa_upload+0(16).
      append wa_itab to it_itab.
      Now shift 16 characters using shift command in wa_upload.
    enddo.
endloop.
Hope this syntax help you to resolve your issue.May be something i have missed .Right now i don't have sap system to send you the full correct syntax code.
Cheers
Joginder

Flat file to tables (insert/update/delete) using utl file.--urgent

Hi all,
Scenorio s here ...
ex : emp
EMPNO
ENAME
JOB
MGR
HIREDATE
SAL
COMM
DEPTNO
STATUS -- i/U/d
flat file records willbe like this ....
I^001^name^job^manager^10-dec-2002^90000^900^^
I^001^name^job^manager^10-dec-2002^90000^900^343^
U,002^name^job^manager^10-dec-2002^90000^900^899^900
U,002^name^job^manager^10-dec-2002^90000^900^899^900
The first record indicator show I , so need to insert into the table emp.The second record indicator show U , so need to update the table emp.like this i've 5 tables(different structure and large data ).
How do i upload data into concern tables using procedures using UTL_file.
Needs to generalised the processing (for each table specific)..........
(me right now doing this way...in a pakage with UTL_FILE using pl/sql tables,parsing the record by record ,
storeing the values in a pl/sql table then insert/updates....)
any sugg'n ? idea? sample code ?
Thanx OTN members.

Hi Ganesan,
Hope it will help.
Best Regards
CREATE OR REPLACE PROCEDURE TEST_UTL
     loc_input_file                varchar2(30) ;
     loc_input_path                varchar2(30) ;
     loc_utl_file                UTL_FILE.FILE_TYPE;
     loc_get_data           varchar2(500);
BEGIN
loc_utl_file := UTL_FILE.FOPEN(loc_input_path, loc_input_file, R');
BEGIN
          LOOP
UTL_FILE.GET_LINE(loc_utl_file,loc_get_data);
IF SUBSTR(loc_get_data,1,1) = 'I' THEN
               INSERT INTO ..........
          --     USE SUBSTR function for columng break
          ELSIF SUBSTR(loc_get_data,1,1) = 'U' THEN
               UPDATE ....................
          END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
     UTL_FILE.FCLOSE(loc_utl_file);
END ;
EXCEPTION
END;

Error while validating flat file schema

Hi,
I have the flat file schema which is character delimited on '|'. It has Details and Tralier. Trailer starts with a "Tag Identifier" as 'T' and can have one value as "Total Records" i.e. T|3. Details is also delimited on the base of '|' and but has no "Tag Identifier".
Details have min occurs as 0.
Schema:
Eg of the valid values:
21788367|EN
21848269|EN
22004225|EN
T|3
This should also be the valid value (with no details and only trailer):
T|0
But, when I'm trying to validate this. I'm getting error:
Unexpected data found while looking for:
'\r\n'
The current definition being parsed is User_details. The stream offset where the error occurred is 2. The line number where the error occurred is 1. The column where the error occurred is 2.
I think it is trying to find Details record also. What setting I need to change?
Please help.
Kunal G

This is my schema:
<?xml version="1.0" encoding="utf-16"?>
<xs:schema xmlns="http://BTS_POC.Users" xmlns:b="http://schemas.microsoft.com/BizTalk/2003" targetNamespace="http://BTS_POC.Users" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:annotation>
<xs:appinfo>
<schemaEditorExtension:schemaInfo namespaceAlias="b" extensionClass="Microsoft.BizTalk.FlatFileExtension.FlatFileExtension" standardName="Flat File" xmlns:schemaEditorExtension="http://schemas.microsoft.com/BizTalk/2003/SchemaEditorExtensions" />
<b:schemaInfo standard="Flat File" codepage="65001" default_pad_char=" " pad_char_type="char" count_positions_by_byte="false" parser_optimization="speed" lookahead_depth="3" suppress_empty_nodes="false" generate_empty_nodes="true" allow_early_termination="false" early_terminate_optional_fields="false" allow_message_breakup_of_infix_root="false" compile_parse_tables="false" root_reference="Users_Root" />
</xs:appinfo>
</xs:annotation>
<xs:element name="Users_Root">
<xs:annotation>
<xs:appinfo>
<b:recordInfo structure="delimited" child_delimiter_type="hex" child_delimiter="0xD 0xA" child_order="infix" sequence_number="1" preserve_delimiter_for_empty_data="true" suppress_trailing_delimiters="false" />
</xs:appinfo>
</xs:annotation>
<xs:complexType>
<xs:sequence minOccurs="0">
<xs:annotation>
<xs:appinfo>
<groupInfo sequence_number="0" xmlns="http://schemas.microsoft.com/BizTalk/2003" />
</xs:appinfo>
</xs:annotation>
<xs:element minOccurs="0" maxOccurs="unbounded" name="Users_Detail">
<xs:annotation>
<xs:appinfo>
<b:recordInfo structure="delimited" child_delimiter_type="char" child_delimiter="|" child_order="infix" sequence_number="1" preserve_delimiter_for_empty_data="true" suppress_trailing_delimiters="false" />
</xs:appinfo>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:annotation>
<xs:appinfo>
<groupInfo sequence_number="0" xmlns="http://schemas.microsoft.com/BizTalk/2003" />
</xs:appinfo>
</xs:annotation>
<xs:element name="Name" type="xs:string">
<xs:annotation>
<xs:appinfo>
<b:fieldInfo justification="left" sequence_number="1" />
</xs:appinfo>
</xs:annotation>
</xs:element>
<xs:element name="Id" type="xs:string">
<xs:annotation>
<xs:appinfo>
<b:fieldInfo justification="left" sequence_number="2" />
</xs:appinfo>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Users_Trailer">
<xs:annotation>
<xs:appinfo>
<b:recordInfo tag_name="T" structure="delimited" child_delimiter_type="char" child_delimiter="|" child_order="prefix" sequence_number="2" preserve_delimiter_for_empty_data="true" suppress_trailing_delimiters="false" />
</xs:appinfo>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:annotation>
<xs:appinfo>
<groupInfo sequence_number="0" xmlns="http://schemas.microsoft.com/BizTalk/2003" />
</xs:appinfo>
</xs:annotation>
<xs:element name="TotalNumber" type="xs:string">
<xs:annotation>
<xs:appinfo>
<b:fieldInfo justification="left" sequence_number="1" />
</xs:appinfo>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>
Kunal G

Help Required regding: Validation on Data Loading from Flat File

Hi Experts,
I need u r help in the following issue.
I need to validated the transactional data loading to the GL Cube from Flat file,
1) The transactional data to the Cube to be loaded only if master data record exists for the 0GL_ACCOUNT info object.
2) If the master data record does not exits then the record need to be skipped from the loading and after the loading the system should throw a message saying that these many records have been skipped (if there are any skipped records.).
I would really appriciate u r help and suggestions on solving this issue.
Regds
Hari

Hi, write a start routine in transfer rules like this.
DATA: l_s_datapak_line type TRANSFER_STRUCTURE,
 l_s_errorlog TYPE rssm_s_errorlog_int,
 l_s_glaccount type /BI0/PGLACCOUNT,
 new_datapak type tab_transtru.
 refresh new_datapak.
 loop at datapak into l_s_datapak_line.
 select single * from /BI0/PGLACCOUNT into l_s_glaccount
 where CHRT_ACCTS eq l_s_datapak_line-field name in transfer structure/datsource for CHRT_ACCTS
and GL_ACCOUNT eq l_s_datapak_line-field name in transfer structure/datsource for GL_ACCOUNT
and OBJVERS eq 'A'.
 if sy-subrc eq 0.
 append l_s_datapak_line to new_datapak.
 endif.
 endloop.
 datapak = new_datapak.
 if datapak[] is initial.
abort <> 0 means skip whole data package !!!
 ABORT = 4.
 else.
 ABORT = 0.
 endif.
i have already some modifications but U can slightly change it to suit your need.
regards
Emil

Validate Technical Information from Flat File header record

Hi Experts,
I would like to know the best way to validate data from a flat file where the layout has a header containing the number of records sent and the total amount distributed along the file content.
Please, notice we have a commom layout where the first 3 fields are only used by header record (record type = 00)
For example:
RECORD TYPE     NUMBER OF RECORDS     TOTAL AMOUNT     COST CENTER     AMOUNT
          00                              3                                  250,00
          01                                                                                1000000             100,00
          01                                                                                2000000             100,00
          01                                                                                1000000               50,00
So, let´s suppose I received the file content above and I have recorded all 4 records in a first DSO. The next step I would like to load to a different DSO the records where RECORD TYPE = 01 (business) data. That´s OK.
The header record where RECORD TYPE = 00 (technical data) has to be uploded to a log DSO validating the total amount (250,00) and number of records (3) sent in the file. This line will be further exported as a validation information.
Well, any suggestions how to validate the data as described above?
Any information will be fully appreciated.
Thanks.
Fábio
Edited by: Fabio Chaves on Jan 30, 2010 9:30 PM

Hi Fabio,
You seem to compare the first record of file or header record with the collated values of rest of the records in the flat file.
Simple way would be to do validation separate and load the file...
create a function module to read a file...
compare the first record with the collated values in the rest of file.
If the file seems to be okay,then loading is your choice...
rakesh

FIDCC1 Validations / Substitutions and flat files?

I am investigating the potential for two different types of functionality from using the FIDCC1 IDOC for transferring financial postings between two separate SAP FICO systems. My understanding at this point in time is that this IDOC won't perform any of custom or standard substitutions or validations of the receiving system. Is this correct? can anyone confirm? Also, I understand that some IDOC will generate a flat file on the receiving system in addition to the posting of data there. Will FIDCC1 do this as well?
My apologies if this information is readily available elsewhere. I need to obtain these answer quickly and find that I can usually get rapid answers from the SAP Development Community.
Thanks,
David

Ok. That one is nice, especially in terms of defining header and trailer records. I also found this one http://sourceforge.net/projects/flatworm/ which allows for multi-line flat-files, which is also nice.
The problem is both only deal with parsing. Granted, writing a serializer even via reflection would not be all that tough. But a few Dukes for you!
- Saish

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

Write records to a Flat file & Ftp to a remote server

I know this would be a basic question for most of the ppl in this forum, but I am stuck in here.
There is a "Orders" table, and when new orders are made , I need to build a file with relevant information(extracted from tables) and FTP to a remote server.There should be a SQL job that would run for every 30 mins to see if there are any new orders made , and if so, Write them to a file and FTP back to a remote server.
The orders that were written to a file previously shouldn't appear when new files are created.
How can this be done..?
Thanks in advance..

You'd need 3 basic components here
1) Something to identify new orders
2) Something to write whatever data you want to a flat file
3) Something to FTP that file
#2 is going to be the UTL_FILE package
#3 is going to require a third-party PL/SQL (or Java) FTP library. If you do a Google search on UTL_FTP, you'll find a few such PL/SQL packages or you can download an appropriate Java class and load that into the database.
#1 can be as simple as a Status column that gets set to NEW initially and PROCESSED when the file is generated. Or it could get a lot more complicated with something like Streams capturing changes to the table and sending those change records to a separate consumer process that would then generate the file and FTP it.
Justin

Saving records to a flat file

Dearest experts,
I do need your kindest assistance.
I have over 15 fieldnames from 11 tables.
Some of these fieldnames are mandatory fieldnames and others are optional.
The users are instructed to enter 'NA' to any to any fieldname that doesn't have a value.
So far, that has not been the case. Sometimes, they enter 'NA' to some fieldnames.
Some other times, they leave them blank. So, there is really noway to know which fieldnames would be left blank, we are forced now to come up with pl/sql script that will do 2 things:
1, select all of those 15 records, and with the help of an if else statement, or even CASE or DECODE, come up with a catch_all code that is something like:
if this fieldname is blank, assign 'NA' to it.
2, Save the newly corrected records to a flat file.
I will be forever indebted if you can give me a hand on this.
Thanks very much.

Great guy, thank you Warren!
a couple of more follow-ups, please?
Silly question 1, does NVL work with numeric values like 0 as well?
Second, if I need to trim some stuff off and I need to use something like Substr, can I fit that into NVL?
Thank you soooo very much

How to create sqlplus output spool to a flat file with a header record

Hi all,
I've requirement to spool data from a table to a flat file along with column headings in the first row.I'm getting data but I need header record in the first row also?
Thanks,
Mahender.

Hi, Mahender,
If you give this SQL*Plus command before you start SPOOLing
SET PAGESIZE 50000then you can get the usual SQL*Plus column headings, and they won't repeat unless you have more than 50,000 rows of output.
When I can't do that, I use PROMPT
{spool}
SPOOL foo.txt
PROMPT empno ename job mgr ...
SELECT empno, ename, job, mgr ...
PROMPT will trim leading whitespace (unless you enclose it in quotes), but it will leave spacing between the columns alone.
You could also do a separate query, where you select some literals from dual:SPOOL foo.txt
SELECT ' empno ename job mgr ...'
FROM dual;
SELECT empno, ename, job, mgr ...

How to find out duplicate record contained in a flat file

Hi Experts,
For my project I have written a program for flat file upload.
Requirement 1
In the flat file there may be some duplicate record like:
Field1   Field2
11        test1
11        test2
12        test3
13        test4
Field1 is primary key.
Can you please let me know how I can find out the duplicate record.
Requirement 2
The flat file contains the header row as shown above
Field1   Field2
How our program can skip this record and start reading / inserting records from row no 2 ie
11        test1
onwards.
Thanks
S
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.

Can you please let me know how I can find out the duplicate record.
you need to split the records from flat file structure into your internal table ans use a delete ADJACENT duplicates comparing fields
split flat_str into wa_f1 wa_f2 wa_f2 at tab_space.

How to load a flat file with lot of records

Hi,
I am trying to load a flat file with hundreds of records into an apps table. when i create the process and deploy it onto the console it asks for an input in an html form. why does it ask for an input when i have specified the input file directory in my process? is there any way around tis where in it just reads all the records from the flat file directly??is custom queues anyway related to what I am about to do?any documents on this process will be greatly appreciated.If any one can help me on this it will be great. thank you guys....

After deploying it, do you see if it is active and the status is on from the BPEL console BPEL Process tab? It should not come up to ask for input unless you are clicking it from the Dashboard tab. Do not click it from the Dashboard. Instead you should put some files into the input driectory. Wait few seconds you should see the instances of the BPEL process is created and start to process the files asynchrously.

Flat File Records Validation

Similar Messages

Maybe you are looking for