Reading First record of table in smartform

Hi friends doing a smartform for COO certifcate of origin
in which selection criteria is Customer invoice throug that i get
list invoice and through which i get commercial invoice .
For each Sales order no and line item no there can be mulitple commercial invoice.
I got the data upto this in my main window the ouptut is correct but at the footer level which is another window out of mainwindow
i want to print text of country of final destination of the first comm. invoice from header .
suppose .
so no    so line     comm inv
1a        10                             123
                                  124
                                  125
1a         20                                  01
                                    02
i want to print the first invoice text 123 . rest to be igoner for so number.
i tried by describe and select,
by index too but i need to check it with other so itab.
in that iam getting the last record of this table to check as iam comparing with work area immdiatly after the main window .
which is wa_main.
READ TABLE i_cinvoice into wa_cinvoice
                            WITH KEY vbelv = wa_main-vbelv
                                     posnv = wa_main-posnv.
IF sy-subrc = 0.
w_vbeln1 = wa_cinvoice-vbeln.
ENDIF.
w_cntofd = w_vbeln1.
*END OF FQ01
CALL FUNCTION 'READ_TEXT'
EXPORTING
    id                      = 'ZEXC'
    language                = sy-langu
    name                    = w_cntofd
    object                  = 'VBBK'
TABLES
    lines                   = i_cntofd
EXCEPTIONS

loop at i_main into wa_main.
READ TABLE i_cinvoice into wa_cinvoice
WITH KEY vbelv = wa_main-vbelv
posnv = wa_main-posnv.
IF sy-subrc = 0.
w_cntofd = wa_cinvoice-vbeln.
ENDIF.
endloop.
here may be the read condition checks for the valid record in wa_main.

Similar Messages

Internal table - move record to first record in table

How can a move a record already in an internal table to the first record in the table? There is no appropriate sort that would make it the first record.

Assuming the record is in the header:
delete itab.
insert itab index 1.
That should be - assuming sy-index already points to the record you want to move.
Rob
Message was edited by: Rob Burbank

How to return to first record in table after a while statement?

Hi,
I'm trying to multiply data from two different tables to get a distance between two points - I only want to return the result if the distance is less than 0.15 metres. It loops ok the first time but dies once I get into the second while for the second time. I'm sure I have the logic wrong, I just can't figure out the right way. I haven't used Java or programmed in four years so apologises if the answer is ridiculously simple!
public static void main(String args[])
 try
 FileOutputStream out = new FileOutputStream("c://output.txt", true);
 PrintStream p;
// Connect print stream to the output stream
p = new PrintStream( out );
 Connection conn = getConnection();
 System.out.println("1");
 Statement st1 = conn.createStatement(ResultSet.TYPE_SCROLL_INSENSITIVE, ResultSet.CONCUR_UPDATABLE);
 Statement st2 = conn.createStatement(ResultSet.TYPE_SCROLL_INSENSITIVE, ResultSet.CONCUR_UPDATABLE);
 ResultSet inact = st1.executeQuery("select Radio, aLocationLatLong, Lat, Lon from Inactive_EK");
 ResultSet act = st2.executeQuery("select Radio, aLocationLatLong, Lat, Lon from Active_EK");
 while(inact.next())
 R_ID = inact.getString("Radio");
 inLt = inact.getDouble("Lat");
 inLn = inact.getDouble("Lon");
 p.println("Inactive: " + R_ID + " " + inLt + " " + inLn);
 while(act.next())
 acR_ID = act.getString("Radio");
 acLt = act.getDouble("Lat");
 acLn = act.getDouble("Lon");
 p.println("Active Lat: " + acLt + " " + acLn );
 double earthRadius = 6378.137;
 double dLat = Math.toRadians(inLt-acLt);
 double dLng = Math.toRadians(inLn - acLn);
 double a = Math.sin(dLat/2) * Math.sin(dLat/2) +
 Math.cos(Math.toRadians(acLt)) * Math.cos(Math.toRadians(inLt)) *
 Math.sin(dLng/2) * Math.sin(dLng/2);
 double c = 2 * Math.atan2(Math.sqrt(a), Math.sqrt(1-a));
 double dist = earthRadius * c;
 if(dist <= 0.15)
 p.println("Active Lat: " + acR_ID + " " + acLt + " " + acLn + " " + dist);
 p.close();
 st1.close();
 st2.close();
 conn.close();
 catch
 (Exception e)
System.err.println ("Connect problem");
Thanking you in advance!

Try something like below: change the script as required.
create Table T1(Col1 int)
Insert into T1 Select 1
Insert into T1 Select 2
Declare @T1 Table(Col1 int, errmsg varchar(100))
create Table T2(Col1 int, errmsg varchar(100))
DELETE T1
output deleted.*,'error 1' INTO @T1
Where Col1 = 1
Select * From @t1
If exists(Select 1 From @t1)
Begin
Insert into T2 Select * From @T1
Drop table T1,T2
return ;
End
DELETE T1
output deleted.*,'error 2' INTO @T1
Where Col1 = 2
Select * From @t1
Insert into T2 Select * From @T1
Select * From T2
Drop table T1,T2

Merge 2 internal tables into one and show first record from common fields

Hello PPl,
 I have 3 tables kna1 knb1 and knvp i have to join kna1 and knb1 on kunnr and move the data into an internal table it_data then on the basis of that data in it_data i have to retrieve records FOR ALL ENTRIES from KNVP and move it into it_knvp.
Then both it_data and it_knvp should be merged in it_alv and from that internal table report has to be displayed.
[NOTE: i had tried using loop twice but the report got messed up]
Apart from that for these set of values
0000000004
0000000418
0000000954
0000001190
0000001222
0000001451
0000001453
0000001455
0000001470
0000001508
finally knvp is showing records in such a way that for 2 records kunnr is same and so does all the other fields except PARZA and KUNN2 so the req. is to display only the first record among 2.
Plz help me by providing code for that its urgent......
Below i m providing my code so far, i hope it will be of some help.
TREMENDOUS REWARD POINTS GURANTEED!!!!!
REPORT zfanz_alv_report_whv.
TYPE-GROUPS *
TYPE-POOLS: slis.
TYPES *
TYPES: BEGIN OF ty_data,
 kunnr TYPE kunnr,
 ort01 TYPE ort01,
 pstlz TYPE pstlz,
 regio TYPE regio,
 bukrs TYPE bukrs,
 zterm TYPE zterm,
 END OF ty_data,
 BEGIN OF ty_knvp,
 vkorg TYPE vkorg,
 vtweg TYPE vtweg,
 spart TYPE spart,
 parvw TYPE parvw,
 parza TYPE parza,
 kunn2 TYPE kunn2,
 lifnr TYPE lifnr,
 END OF ty_knvp,
 BEGIN OF ty_alv,
 kunnr TYPE kunnr,
 ort01 TYPE ort01,
 pstlz TYPE pstlz,
 regio TYPE regio,
 bukrs TYPE bukrs,
 zterm TYPE zterm,
 vkorg TYPE vkorg,
 vtweg TYPE vtweg,
 spart TYPE spart,
 parvw TYPE parvw,
 parza TYPE parza,
 kunn2 TYPE kunn2,
 lifnr TYPE lifnr,
 END OF ty_alv,
 BEGIN OF ty_kna1,
 kunnr TYPE kunnr,
 END OF ty_kna1,
 BEGIN OF ty_knb1,
 bukrs TYPE bukrs,
 END OF ty_knb1.
*DATA: IT_KNVP TYPE KNVP,
DATA: it_knvp TYPE STANDARD TABLE OF ty_knvp WITH HEADER LINE.
DATA: it_data TYPE STANDARD TABLE OF ty_data WITH HEADER LINE.
Report data to be shown.
DATA: it_alv TYPE STANDARD TABLE OF ty_alv WITH HEADER LINE.
Heading of the report.
DATA: t_heading TYPE slis_t_listheader.
*DATA: fieldcatalog type standard table of slis_fieldcat_alv with header
*line.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.
*TABLES
tables:knvp,kna1,knb1.
 CONSTANTS *
CONSTANTS: c_kunnr TYPE char5 VALUE 'KUNNR',
c_ort01 TYPE char5 VALUE 'ORT01',
c_pstlz TYPE char5 VALUE 'PSTLZ',
c_regio TYPE char5 VALUE 'REGIO',
c_bukrs TYPE char5 VALUE 'BUKRS',
c_zterm TYPE char5 VALUE 'ZTERM',
c_vkorg TYPE char5 VALUE 'VKORG',
c_vtweg TYPE char5 VALUE 'VTWEG',
c_spart TYPE char5 VALUE 'SPART',
c_parvw TYPE char5 VALUE 'PARVW',
c_parza TYPE char5 VALUE 'PARZA',
c_kunn2 TYPE char5 VALUE 'KUNN2',
c_lifnr TYPE char5 VALUE 'LIFNR'.
WORKAREA *
DATA: wa_data TYPE ty_data,
 wa_knvp TYPE ty_knvp,
 wa_alv TYPE ty_alv,
 wa_fcat TYPE slis_fieldcat_alv,
 wa_layout TYPE slis_layout_alv.
======================= Selection Screen ==========================
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*DATA: wa_kunnr LIKE kna1-kunnr,
 wa_bukrs LIKE knb1-bukrs,
 wa_vkorg LIKE knvp-vkorg,
 wa_vtweg LIKE knvp-vtweg,
 wa_spart LIKE knvp-spart,
 wa_parvw LIKE knvp-parvw.
SELECT-OPTIONS *
SELECT-OPTIONS s_kunnr FOR kna1-kunnr NO INTERVALS OBLIGATORY
SELECT-OPTIONS: s_bukrs FOR knb1-bukrs NO-EXTENSION NO INTERVALS,
s_vkorg FOR knvp-vkorg NO-EXTENSION NO INTERVALS,
s_vtweg FOR knvp-vtweg NO-EXTENSION NO INTERVALS,
s_spart FOR knvp-spart NO-EXTENSION NO INTERVALS,
s_parvw FOR knvp-parvw NO-EXTENSION NO INTERVALS.
SELECTION-SCREEN: END OF BLOCK b1.
AT SELECTION-SCREEN *
AT SELECTION-SCREEN ON s_kunnr.
PERFORM validate_data.
START-OF-SELECTION *
START-OF-SELECTION.
PERFORM get_data. "fetch data from table and perform join on them
PERFORM final_table.
PERFORM build_fieldcatalog. "populate field catalog
PERFORM build_layout.
PERFORM grid_display. "display the result in ALV grid
END-OF-SELECTION *
END-OF-SELECTION.
describe
SUBROUTINES (FORMS)
*& Form get_data
 Gets the information to be shown in the report.
 Join on tables KNA1, KNB1 and for all enteries in KNVP
--> p1 text
<-- p2 text
FORM get_data.
SELECT kna1~kunnr
kna1~ort01
kna1~pstlz
kna1~regio
knb1~bukrs
knb1~zterm
INTO TABLE it_data
FROM kna1 INNER JOIN knb1
ON kna1kunnr = knb1kunnr
 WHERE kna1~kunnr IN s_kunnr
 AND knb1~bukrs IN s_bukrs.
SELECT vkorg
 vtweg
 spart
 parvw
 parza
 kunn2
 lifnr
 INTO TABLE it_knvp FROM knvp
 FOR ALL ENTRIES IN it_data
 WHERE knvp~kunnr = it_data-kunnr
 AND vkorg IN s_vkorg
 AND vtweg IN s_vtweg
 AND spart IN s_spart
 AND parvw IN s_parvw.
ENDFORM. " get_data
*ENDFORM. " get_data
*& Form FINAL_TABLE
 text
--> p1 text
<-- p2 text
FORM final_table .
LOOP AT it_data.
 it_alv-kunnr = it_data-kunnr.
 it_alv-ort01 = it_data-ort01.
 it_alv-pstlz = it_data-pstlz.
 it_alv-regio = it_data-regio.
 it_alv-bukrs = it_data-bukrs.
 it_alv-zterm = it_data-zterm.
 APPEND it_alv.
 CLEAR it_alv.
ENDLOOP.
LOOP AT it_knvp.
 it_alv-vkorg = it_knvp-vkorg.
 it_alv-vtweg = it_knvp-vtweg.
 it_alv-spart = it_knvp-spart.
 it_alv-parvw = it_knvp-parvw.
 it_alv-parza = it_knvp-parza.
 it_alv-kunn2 = it_knvp-kunn2.
 it_alv-lifnr = it_knvp-lifnr.
 APPEND it_alv.
 CLEAR it_alv.
ENDLOOP.
ENDFORM. " FINAL_TABLE
*& Form BUILD_FIELDCATALOG
 Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
IF it_alv[] IS NOT INITIAL.
 wa_fcat-fieldname = c_kunnr.
 wa_fcat-seltext_l = 'Customer Master'(001).
 wa_fcat-col_pos = 1.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_ort01.
 wa_fcat-seltext_l = 'City'(002).
 wa_fcat-col_pos = 2.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_pstlz.
 wa_fcat-seltext_l = 'Postal Code'(003).
 wa_fcat-col_pos = 3.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_regio.
 wa_fcat-seltext_l = 'Region'(004).
 wa_fcat-col_pos = 4.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_bukrs.
 wa_fcat-seltext_l = 'Company Code'(005).
 wa_fcat-col_pos = 5.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_zterm.
 wa_fcat-seltext_l = 'Terms of payment'(006).
 wa_fcat-col_pos = 6.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_vkorg.
 wa_fcat-seltext_l = 'Sales Organization'(007).
 wa_fcat-col_pos = 7.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_vtweg.
 wa_fcat-seltext_l = 'Distribution Channel'(008).
 wa_fcat-col_pos = 8.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_spart.
 wa_fcat-seltext_l = 'Division'(009).
 wa_fcat-col_pos = 9.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_parvw.
 wa_fcat-seltext_l = 'Partner function'(010).
 wa_fcat-col_pos = 10.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_kunn2.
 wa_fcat-seltext_l = 'Customer number of partner'(011).
 wa_fcat-col_pos = 11.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_lifnr.
 wa_fcat-seltext_l = 'Account Number of Vendor'(012).
 wa_fcat-col_pos = 12.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
 wa_fcat-fieldname = c_parza.
 wa_fcat-seltext_l = 'Partner counter'(013).
 wa_fcat-col_pos = 13.
 APPEND wa_fcat TO fieldcatalog.
 CLEAR wa_fcat.
*fieldcatalog-fieldname = c_kunnr.
 fieldcatalog-seltext_l = 'Customer Master'(001).
 fieldcatalog-col_pos = 1.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_ort01.
 fieldcatalog-seltext_l = 'City'(002).
 fieldcatalog-col_pos = 2.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_pstlz.
 fieldcatalog-seltext_l = 'Postal Code'(003).
 fieldcatalog-col_pos = 3.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_regio.
 fieldcatalog-seltext_l = 'Region'(004).
 fieldcatalog-col_pos = 4.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_bukrs.
 fieldcatalog-seltext_l = 'Company Code'(005).
 fieldcatalog-col_pos = 5.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_zterm.
 fieldcatalog-seltext_l = 'Terms of payment'(006).
 fieldcatalog-col_pos = 6.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_vkorg.
 fieldcatalog-seltext_l = 'Sales Organization'(007).
 fieldcatalog-col_pos = 7.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_vtweg.
 fieldcatalog-seltext_l = 'Distribution Channel'(008).
 fieldcatalog-col_pos = 8.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_spart.
 fieldcatalog-seltext_l = 'Division'(009).
 fieldcatalog-col_pos = 9.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_parvw.
 fieldcatalog-seltext_l = 'Partner function'(010).
 fieldcatalog-col_pos = 10.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_kunn2.
 fieldcatalog-seltext_l = 'Customer number of partner'(011).
 fieldcatalog-col_pos = 11.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_lifnr.
 fieldcatalog-seltext_l = 'Account Number of Vendor'(012).
 fieldcatalog-col_pos = 12.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
 fieldcatalog-fieldname = c_parza.
 fieldcatalog-seltext_l = 'Partner counter'(013).
 fieldcatalog-col_pos = 13.
 APPEND fieldcatalog TO fieldcatalog.
 CLEAR fieldcatalog.
ENDIF.
ENDFORM. " BUILD_FIELDCATALOG
*& Form build_layout
 text
--> p1 text
<-- p2 text
form build_layout .
Set layout field for field attributes(i.e. input/output)
wa_layout-stylefname = 'FIELD_STYLE'.
wa_layout-zebra = 'X'.
endform. " build_layout
*& Form GRID_DISPLAY
 text
FORM grid_display. "using t_data type ty_tbl_data.
IF it_alv[] IS NOT INITIAL.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 IS_LAYOUT = wa_layout
 it_fieldcat = fieldcatalog[]
 TABLES
 t_outtab = it_alv[]
EXCEPTIONS
 program_error = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ENDIF.
ENDIF.
ENDFORM. "GRID_DISPLAY
*& Form VALIDATE_DATA
 text
--> p1 text
<-- p2 text
FORM validate_data .
DATA : li_kna1 TYPE STANDARD TABLE OF ty_kna1,
 li_knb1 TYPE STANDARD TABLE OF ty_knb1,
 li_knvp TYPE STANDARD TABLE OF ty_knvp.
SELECT kunnr
FROM kna1
INTO TABLE li_kna1
WHERE kunnr IN s_kunnr.
IF sy-subrc <> 0.
 MESSAGE 'Invalid Customer Number'(013) TYPE 'E'.
ENDIF.
SELECT bukrs
FROM t001
INTO TABLE li_knb1
WHERE bukrs IN s_bukrs.
 IF sy-subrc <> 0.
 MESSAGE 'Invalid Company Code'(014) TYPE 'E'.
 ENDIF.
 SELECT vkorg
 FROM tvko
 INTO TABLE li_knvp
 WHERE vkorg IN s_vkorg.
 IF sy-subrc <> 0.
 MESSAGE 'Invalid Sales Organization'(015) TYPE 'E'.
 ENDIF.
 SELECT vtweg
 FROM tvtw
 INTO TABLE li_knvp
 WHERE vtweg IN s_vtweg.
 IF sy-subrc <> 0.
 MESSAGE 'Invalid Distribution Channel'(016) TYPE 'E'.
 ENDIF.
 SELECT spart
 FROM tspa
 INTO TABLE li_knvp
 WHERE spart IN s_spart.
 IF sy-subrc <> 0.
 MESSAGE 'Invalid Division'(017) TYPE 'E'.
 ENDIF.
 SELECT parvw
 FROM tpar
 INTO TABLE li_knvp
 WHERE parvw IN s_parvw.
 IF sy-subrc <> 0.
 MESSAGE 'Invalid Partner function'(018) TYPE 'E'.
 ENDIF.
 ENDFORM. " VALIDATE_DATA

*1----
FORM get_data.
SELECT kna1~kunnr
kna1~ort01
kna1~pstlz
kna1~regio
knb1~bukrs
knb1~zterm
INTO TABLE it_data
FROM kna1 INNER JOIN knb1
ON kna1kunnr = knb1kunnr
 WHERE kna1~kunnr IN s_kunnr
 AND knb1~bukrs IN s_bukrs.
CHECK it_data[] IS NOT INITIAL.
SELECT kunnr
 vkorg
 vtweg
 spart
 parvw
 parza
 kunn2
 lifnr
 INTO TABLE it_knvp FROM knvp
 FOR ALL ENTRIES IN it_data
 WHERE kunnr = it_data-kunnr
 AND vkorg IN s_vkorg
 AND vtweg IN s_vtweg
 AND spart IN s_spart
 AND parvw IN s_parvw.
IF sy-subrc EQ 0.
 SORT it_knvp BY kunnr.
ENDIF.
ENDFORM. " get_data
*2----
FORM final_table .
LOOP AT it_data INTO wa_data.
 READ TABLE it_knvp
 INTO wa_knvp
 WITH KEY kunnr = wa_data-kunnr
 BINARY SEARCH .
 IF sy-subrc = 0.
 MOVE-CORRESPONDING wa_data TO wa_alv.
 MOVE-CORRESPONDING wa_knvp TO wa_alv.
 APPEND wa_alv TO it_alv.
 ENDIF.
ENDLOOP.
ENDFORM. " FINAL_TABLE
Edited by: Faisal Khan on Mar 27, 2008 1:59 PM

Only first record in internal table in output

Hi,
I have a requirement.
I loop at an internal table and that tabl (list_selected_records) records.
Loop at list_of_selected_nodes into wa_selected_nodes.
node = wa_selected_nodes-node_id.
node_level = wa_selected_nodes-node_level.
read table ex_list_of_texts
into wa_list_of_texts
with key node_id = node
binary search.
IF sy-subrc eq 0.
node_text = wa_list_of_texts-text.
ENDIF.
node_level = node_level - 1.
Selecting Text for Node selected (Business Scenario)
READ TABLE list_of_all_nodes into wa_all_nodes WITH KEY NODE_LEVEL = node_level
BINARY SEARCH.
if sy-subrc = 0.
SELECT SINGLE TEXT FROM TTREET into texts WHERE ID EQ wa_all_nodes-tree_id
AND SPRAS EQ 'EN '.
IF NOT TEXTS IS INITIAL.
wa_final-texts = texts.
append wa_final to it_final.
CLEAR WA_FINAL.
endif.
endif.
endloop.
This is my code.
Now from the select single stmt i fetch a text and add it to be internal table . Once i fetch a one record the loop should be ended and a new iteration for for a second guid should start.
Once one record , first record is fetched for texts, only that shd appear in alv output but not other. but the loop should contnue for other fields. Please help
Thanks in Advance.
SS

Hi Swarna,
Use control event AT-NEW inside the loop. This event will triger only once for every new node_id.
Loop at list_of_selected_nodes into wa_selected_nodes.
AT-NEW node_id.
node = wa_selected_nodes-node_id.
node_level = wa_selected_nodes-node_level.
read table ex_list_of_texts
into wa_list_of_texts
with key node_id = node
binary search.
IF sy-subrc eq 0.
node_text = wa_list_of_texts-text.
ENDIF.
node_level = node_level - 1.
Selecting Text for Node selected (Business Scenario)
READ TABLE list_of_all_nodes into wa_all_nodes WITH KEY NODE_LEVEL = node_level
BINARY SEARCH.
if sy-subrc = 0.
SELECT SINGLE TEXT FROM TTREET into texts WHERE ID EQ wa_all_nodes-tree_id
AND SPRAS EQ 'EN '.
IF NOT TEXTS IS INITIAL.
wa_final-texts = texts.
append wa_final to it_final.
CLEAR WA_FINAL.
endif.
endif.
ENDAT.
endloop.
Thanks & Regards,
Parameswaran.K

Reading UTL_File, first record is missing

Hi,
I am reading text file using UTL_FILE to insert data in staging table.For some reason the first record in the text file in not inserting in table
(suppose there are 10 records in text.file, except very first record rest of the records will be inserted successfully).Please help me on this.
create or replace
PROCEDURE PRC_XYZ_FILE_LOAD(
    p_in_file_name IN VARCHAR2,
    p_out_message OUT VARCHAR2)
IS
v_membernumber     whr_stageftd.membernumber%TYPE ;
v_memberfullname   whr_stageftd.memberfullname%TYPE ;
BEGIN
--open files
v_file_handler := UTL_FILE.FOPEN(v_file_path, v_file_name, 'r');
   UTL_FILE.GET_LINE(v_file_handler, v_text);
   LOOP
    BEGIN
         BEGIN
        UTL_FILE.GET_LINE(v_file_handler, v_text);
      EXCEPTION
      WHEN no_data_found THEN
        EXIT; -- end of file
      END;
      -------------------- Insert data in to whr_stageftd table -------------------------------
      v_detail_record              :=FNC_PIPE_PARSE (V_TEXT,1,'~');
       v_membernumber               :=FNC_PIPE_PARSE (V_TEXT,2,'~');
       v_memberfullname             :=FNC_PIPE_PARSE (V_TEXT,3,'~');
       v_stage:='stage3';
       v_locationid                 :=FNC_PIPE_PARSE (V_TEXT,4,'~');
       v_regionid                   :=FNC_PIPE_PARSE (V_TEXT,5,'~');
       v_transstartdate             :=FNC_PIPE_PARSE (V_TEXT,6,'~');
       v_transenddate               :=FNC_PIPE_PARSE (V_TEXT,7,'~');
      IF v_detail_record            = '2' THEN
        INSERT
        INTO whr_stageftd
            fileid ,
            membernumber ,
            memberfullname ,
            locationid,
            regionid,
            earningstartdate,
            earningenddate )
          VALUES
            v_fileid,
            v_membernumber,
            v_memberfullname,
            v_locationid,
            v_regionid,
            v_transstartdate ,
            v_transenddate);
        v_rec_counter := v_rec_counter + 1;
        IF mod(v_rec_counter,10000)= 0 THEN
          COMMIT;
        END IF;
      END IF;
    EXCEPTION
    WHEN OTHERS THEN
     dbms_output.put_line(Sqlerrm||v_stage);
      END;
END LOOP;
   COMMIT;
UTL_FILE.FCLOSE(v_file_handler);
END PRC_XYZ_FILE_LOAD;here is the code for FNC_PIPE_PARSE
create or replace
Function      FNC_PIPE_PARSE
(p_instring in varchar2,
p_field_no in number,
p_delimiter in varchar2 default '|')
RETURN varchar2 IS
v_start number;
v_no_of_chars number;
v_instring varchar2(4000);
    v_delimiter_length NUMBER(10) := 0;
BEGIN
v_delimiter_length := length(p_delimiter);
v_instring:=p_instring||p_delimiter;
IF p_field_no = 1 THEN
     return(substr(v_instring,1,instr(v_instring,p_delimiter)-1));
ELSE
   v_start := instr(v_instring,p_delimiter,1,p_field_no-1)+v_delimiter_length;
   v_no_of_chars := instr(v_instring,p_delimiter,1,p_field_no) - v_start;
return(substr(v_instring,v_start,v_no_of_chars));
END IF;
END; sample data
actual data
2~105266648J~C TEST~~~20050707~20050707
2~104133506D~K TEST~~~20050707~20050707
2~104929890I~A TEST~~~20050707~20050707
2~104700166K~D TEST~~~20050708~20050708data inserted in table is (which is missing first record
2~104133506D~K TEST~~~20050707~20050707
2~104929890I~A TEST~~~20050707~20050707
2~104700166K~D TEST~~~20050708~20050708Sqlerrm error is
ORA-06502: PL/SQL: numeric or value error: character string buffer too small stage3THANKS
Sandy

Apparently, you don't specify the len parameter to GET_LINE, and the doc says :
The GET_LINE len parameter must be a number in the range 1 and 32767. If unspecified, Oracle supplies the default value of max_linesize.The FOPEN max_linesize parameter must be a number in the range 1 and 32767. If unspecified, Oracle supplies a default value of 1024. Could that be the culprit ?You should try to put some debug in your code to see what line content raises the error.

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

MDM API to read the Record Key Mapping table

Hi,
Does anybody know what class/method I can use to read the Record Key Mapping table?
For the Business Partner table the Key Mapping table has this columns:
Default / MDM Partner ID / Remote System / Key
I have everything but the Key. How can I read it?
Thanks in advance,
Diego.

GetKey Mapping is one of the available Web Services as of SP4.
Else you could use the Java API to get the Key Mapping.
CatalogData class has the following method
GetKeyMapping
public java.lang.String[][] GetKeyMapping(java.lang.String agency,
 java.lang.String table,
 int[] recordIDs,
 boolean isDefaultKeyOnly)
 throws StringExceptionRetrieves the key mapping for each record.
Parameters:
agency - the agency name.
table - the table name.
recordIDs - the list of records.
isDefaultKeyOnly - True to retrieve only the default value, False to all key values.
Returns: the key values for each record.

JDBC sender: after read insert records into another table

Hi all,
I send records from a SQL view (not a table) to RFC via proxy method.
After reading a record from the view I would like to move this record to a database table called CHECKED. Can anyone provide me a solution for this or is this impossible. (there are 6 fields that have to be inserted in DB CHECKED after reading: admin, bukrs, dagbknr, bkstnr, datum, regel)
Can I use an INSERT statement in my Update SQL Statement with variables or do I have to create an SP?
Hope someone can help me out of here...
Thanks in advance!
Wouter.

ur strucutre would of:
<root>
<Satement1>
<TableName action=INSERT>
<table>checked</table>
<access>
<admin>val</admin>
<bukrs>val</bukrs>
<dagbknr>val</dagbknr>
<bkstnr>val</bkstnr>
<datum>val</datum>
<regel>val</regel>
</access>
</dbTableName>
</StatementName1>
</root>
or u can use a SQL DML which wud pose a strucutre similar to
<root>
<stmt>
 <Customers action="SQL_DML">
 <access> INSERT CHECKED SET admin=$admin$, bukrs=$bukrs$', dagbknr=$dagbknr$, bkstnr=$bkstnr$', datum=$datum$, regel.=$regel.$'
 </access>
 </Customers>
</stmt>
</root>
for more inputs refer to <a href="/people/sap.user72/blog/2005/06/01/file-to-jdbc-adapter-using-sap-xi-30 link on jdbc</a>

Computation only works for FIRST record in detail table

Hi,
I am having a weird problem. I have a master/detail form with page computations that work only for the very first record inserted into the detail table. If i try to enter a second or a third record the fields DO NOT get updated with the return values.
This is driving me nuts and i am on a deadline with this project. HELP!!!!!
Here is the code for all the computations below. Interestingly enough, only the name computation works for every new detail record. The others work only for the first.
-- Calulate Social Security PL/SQL Function
DECLARE
p_is16to62ssrate NUMBER(6,2);
p_u16o62ssrate NUMBER(6,2);
p_dob DATE;
p_base_date DATE := SYSDATE;
p_age NUMBER(3);
p_totalss NUMBER(9,2);
BEGIN
SELECT is16to62ssrate, u16o62ssrate
INTO p_is16to62ssrate, p_u16o62ssrate
FROM SSC3_RATES
WHERE ratescheduleid = 1;
SELECT dob
INTO p_dob
FROM SSC3_EMPLOYEES
WHERE ssno = :P25_SSNO;
p_age := TRUNC(MONTHS_BETWEEN(p_base_date,p_dob)/12);
IF (p_age >= 16) OR (p_age <=62) THEN
p_totalss := (:P25_TOTALWAGES * (p_is16to62ssrate/100));
ELSIF (p_age < 16) OR (p_age > 62) THEN
p_totalss := (:P25_TOTALWAGES * (p_u16o62ssrate/100));
ELSE
p_totalss := 0.00;
END IF;
RETURN p_totalss;
END;
-- Calculate Levy PL/SQL Function
DECLARE
-- declare local variables to hold rates from rates table
p_hsdlarate NUMBER(6,2);
p_hsdlbrate NUMBER(6,2);
p_hsdlcrate NUMBER(6,2);
p_hsdldrate NUMBER(6,2);
p_hsdlaminearnings NUMBER(8,2);
p_hsdlamaxearnings NUMBER(8,2);
p_hsdlbminearnings NUMBER(8,2);
p_hsdlbmaxearnings NUMBER(8,2);
p_hsdlcminearnings NUMBER(8,2);
p_hsdlcmaxearnings NUMBER(8,2);
p_hsdldminearnings NUMBER(8,2);
p_hsdldmaxearnings NUMBER(8,2);
p_totalwages NUMBER(8,2);
p_totallevy NUMBER(8,2);
BEGIN
-- Load rate info from table into variables
SELECT hsdlarate, hsdlbrate, hsdlcrate, hsdldrate, hsdlaminearnings,
hsdlamaxearnings, hsdlbminearnings, hsdlbmaxearnings,
hsdlcminearnings, hsdlcmaxearnings, hsdldminearnings,
hsdldmaxearnings
INTO p_hsdlarate, p_hsdlbrate, p_hsdlcrate, p_hsdldrate,
p_hsdlaminearnings, p_hsdlamaxearnings, p_hsdlbminearnings,
p_hsdlbmaxearnings, p_hsdlcminearnings, p_hsdlcmaxearnings,
p_hsdldminearnings, p_hsdldmaxearnings
FROM SSC3_RATES
WHERE ratescheduleid = 1;
-- Assign total wages to variable
p_totalwages := :P25_TOTALWAGES;
-- Determine applicable levy payment and rate
IF (p_totalwages < p_hsdlamaxearnings) THEN
p_totallevy := (p_totalwages * (p_hsdlarate/100));
ELSIF (p_totalwages >= p_hsdlbminearnings) AND (p_totalwages <= p_hsdlbmaxearnings) THEN
p_totallevy := (p_totalwages * (p_hsdlbrate/100));
ELSIF (p_totalwages >= p_hsdlcminearnings) AND (p_totalwages <= p_hsdlcmaxearnings) THEN
p_totallevy := (p_totalwages * (p_hsdlcrate/100));
ELSIF (p_totalwages >= p_hsdldminearnings) THEN
p_totallevy := (p_totalwages * (p_hsdldrate/100));
END IF;
RETURN p_totallevy;
END;
-- Calculate Total Wages PL/SQL Function
DECLARE
t_wages NUMBER(8,2);
BEGIN
t_wages := (:P25_WEEK1_WAGE + :P25_WEEK2_WAGE + :P25_WEEK3_WAGE + :P25_WEEK4_WAGE + :P25_WEEK5_WAGE + :P25_BONUS + :P25_OTHER);
RETURN t_wages;
END;
-- Calculate Employee Name PL/SQL Function
DECLARE
p_firstname VARCHAR2(20);
p_lastname VARCHAR2(20);
p_name VARCHAR2(40);
p_join VARCHAR2(2) := ', ';
BEGIN
SELECT firstname, lastname
INTO p_firstname, p_lastname
FROM SSC3_EMPLOYEES
WHERE ssno = :P25_SSNO;
p_name := Initcap(p_lastname||p_join||p_firstname);
RETURN p_name;
END;
Regards
Glenroy Skelton

Hi,
The first thing that strikes me is the following IF test:
IF (p_age >= 16) OR (p_age <=62) THEN
p_totalss := (:P25_TOTALWAGES * (p_is16to62ssrate/100));
ELSIF (p_age < 16) OR (p_age > 62) THEN
p_totalss := (:P25_TOTALWAGES * (p_u16o62ssrate/100));
ELSE
p_totalss := 0.00;
END IF;The first test will be true for every number as all numbers are greater than 16 or less than 62. I'd suggest changing the OR to an AND or use BETWEEN
Andy

SQL Query to Read each record in a table

Can you please share any T-SQL block of statement, that reads reach record row by row
for example
Table1
Row_1 a b c
Row_2 d e f
I need to call an stored proc which takes record values as parameters(row by row)
Equalent logic in c#
foreach row in Table1
Sp(row)

Try
--Create table
CREATE TABLE Test1 (
id INT identity(1, 1)
,Val INT
,flag CHAR(1) DEFAULT 'F'
--Feed value
INSERT INTO Test1
VALUES (
1
,'F'
2
,'F'
3
,'F'
SELECT *
FROM Test1
--Create SP
CREATE PROCEDURE yourSp @param INT
AS
BEGIN
SELECT 'Yes'
,@param
END
DECLARE @i INT = 1
,@count INT = 0
,@val INT = 0
SELECT @count = count(1)
FROM Test1
WHILE (@i <= @count)
BEGIN
SELECT @val = Val
FROM Test1
WHERE id = @i
EXEC YourSP @val
SET @i = @i + 1
END
Thanks
Manish
Please click Mark as Answer if my post solved your problem and click
Vote as Helpful if this post was useful.

With in the internal table can I READ the same internal table for a record?

With in the internal table can I READ the same internal table?
For Suppose
LOOP AT itab.
can I do as below
READ TABLE itab with key bukrs = itab-bukrs
belnr = itab-belnr.
*and I have to compare
IF itab-shkzg = itab-shkzg_ia.
ENDIF.
ENDLOOP.

Hi,
Yes..But use work area to differentiate..
EX.
DATA: WA LIKE ITAB.
DATA: WA_READ LIKE ITAB.
LOOP AT itab INTO WA.
can I do as below
READ TABLE itab INTO WA_READ
with key bukrs = itab-bukrs
belnr = itab-belnr.
*and I have to compare
IF WA-shkzg = WA_READ-shkzg_ia.
ENDIF.
ENDLOOP.
Please reward for helpful answers.
Thanks,
Naren

While selecting Frame for Table in Smartform

hi
While i am selecting Frame for Table in Smartform , it displaying very Bold frame.
wat is the reason,
guide me

hi,
do this steps,
->first in the shading of the table select white color
->provide the saturation as 100
->select the pattern and select any one of the pattern
->and then check the output
you will get the required do this in the same fashion i explained
Thanks,
Nethaji.

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 insert a new record to table with foreign key

I have 3 tables like this :
CREATE TABLE PERSON (
PK INTEGER NOT NULL,
NAME VARCHAR(10),
SSNUM INTEGER,
MGR INTEGER);
ALTER TABLE PERSON ADD CONSTRAINT PK_PERSON PRIMARY KEY (PK);
ALTER TABLE PERSON ADD CONSTRAINT FK_PERSON FOREIGN KEY (MGR) REFERENCES
PERSON (PK);
/* Tables
CREATE TABLE PROJECT (
PK INTEGER NOT NULL,
CODE_NAME INTEGER);
ALTER TABLE PROJECT ADD CONSTRAINT PK_PROJECT PRIMARY KEY (PK);
/* Tables
CREATE TABLE XREF (
PERSON INTEGER NOT NULL,
PROJECT INTEGER NOT NULL);
ALTER TABLE XREF ADD CONSTRAINT PK_XREF PRIMARY KEY (PERSON, PROJECT);
ALTER TABLE XREF ADD CONSTRAINT FK_XREF1 FOREIGN KEY (PERSON) REFERENCES
PERSON (PK);
ALTER TABLE XREF ADD CONSTRAINT FK_XREF2 FOREIGN KEY (PROJECT) REFERENCES
PROJECT (PK);
I do like the way of "ReverseTutoral" and the file .jdo here :
<?xml version="1.0" encoding="UTF-8"?>
<jdo>
<package name="reversetutorial">
<class name="Person" objectid-class="PersonId">
<extension vendor-name="kodo" key="class-column" value="none"/>
<extension vendor-name="kodo" key="lock-column" value="none"/>
<extension vendor-name="kodo" key="table" value="PERSON"/>
<field name="name">
<extension vendor-name="kodo" key="data-column"
value="NAME"/>
</field>
<field name="person">
<extension vendor-name="kodo" key="pk-data-column"
value="MGR"/>
</field>
<field name="persons">
<collection element-type="Person"/>
<extension vendor-name="kodo" key="inverse"
value="person"/>
<extension vendor-name="kodo" key="inverse-owner"
value="person"/>
</field>
<field name="pk" primary-key="true">
<extension vendor-name="kodo" key="data-column"
value="PK"/>
</field>
<field name="ssnum">
<extension vendor-name="kodo" key="data-column"
value="SSNUM"/>
</field>
<field name="xrefs">
<collection element-type="Xref"/>
<extension vendor-name="kodo" key="inverse"
value="person"/>
<extension vendor-name="kodo" key="inverse-owner"
value="person"/>
</field>
</class>
<class name="Project" objectid-class="ProjectId">
<extension vendor-name="kodo" key="class-column" value="none"/>
<extension vendor-name="kodo" key="lock-column" value="none"/>
<extension vendor-name="kodo" key="table" value="PROJECT"/>
<field name="codeName">
<extension vendor-name="kodo" key="data-column"
value="CODE_NAME"/>
</field>
<field name="pk" primary-key="true">
<extension vendor-name="kodo" key="data-column"
value="PK"/>
</field>
<field name="xrefs">
<collection element-type="Xref"/>
<extension vendor-name="kodo" key="inverse"
value="project"/>
<extension vendor-name="kodo" key="inverse-owner"
value="project"/>
</field>
</class>
<class name="Xref" objectid-class="XrefId">
<extension vendor-name="kodo" key="class-column" value="none"/>
<extension vendor-name="kodo" key="lock-column" value="none"/>
<extension vendor-name="kodo" key="table" value="XREF"/>
<field name="person">
<extension vendor-name="kodo" key="pk-data-column"
value="PERSON"/>
</field>
<field name="person2" primary-key="true">
<extension vendor-name="kodo" key="data-column"
value="PERSON"/>
</field>
<field name="project">
<extension vendor-name="kodo" key="pk-data-column"
value="PROJECT"/>
</field>
<field name="project2" primary-key="true">
<extension vendor-name="kodo" key="data-column"
value="PROJECT"/>
</field>
</class>
</package>
</jdo>
Data of those tables are :
PERSON :
| PK | NAME | SSNUM | MGR |
| 1 | ABC | 1 | 1 |
| 2 | DEF | 5 | 1 |
PROJECT
| PK | CODE_NAME |
| 1 | 12 |
| 2 | 13 |
And now I want to add a new record into table XREF : insert into XREF
values (1,1);
public void createData() {
Xref xref = new Xref();
Person person = new Person(1);
Project project = new Project(1);
xref.setPerson(person);
xref.setProject(project);
person.getXrefs().add(xref);
person.getXrefs().add(xref);
pm.currentTransaction().begin();
pm.makePersistent(xref);
pm.currentTransaction().commit();
I don't know why Kodo automatically insert new record to table PERSON ->
confilct Primary Key. The errors are :
0 [main] INFO kodo.Runtime - Starting Kodo JDO version 2.4.1
(kodojdo-2.4.1-20030126-1556) with capabilities: [Enterprise Edition
Features, Standard Edition Features, Lite Edition Features, Evaluation
License, Query Extensions, Datacache Plug-in, Statement Batching, Global
Transactions, Developer Tools, Custom Database Dictionaries, Enterprise
Databases, Custom ClassMappings, Custom ResultObjectProviders]
41 [main] WARN kodo.Runtime - WARNING: Kodo JDO Evaluation expires in 29
days. Please contact [email protected] for information on extending
your evaluation period or purchasing a license.
1627 [main] INFO kodo.MetaData -
com.solarmetric.kodo.meta.JDOMetaDataParser@e28b9: parsing source:
file:/D:/AN/Test/classes/reversetutorial/reversetutorial.jdo
3092 [main] INFO jdbc.JDBC - [ C:23387093; T:19356985; D:10268916 ] open:
jdbc:firebirdsql:localhost/3050:D:/An/test/temp.gdb (sysdba)
3325 [main] INFO jdbc.JDBC - [ C:23387093; T:19356985; D:10268916 ]
close:
com.solarmetric.datasource.PoolConnection@164dbd5[[requests=0;size=0;max=70;hits=0;created=0;redundant=0;overflow=0;new=0;leaked=0;unavailable=0]]
3335 [main] INFO jdbc.JDBC - [ C:23387093; T:19356985; D:10268916 ] close
connection
3648 [main] INFO jdbc.JDBC - Using dictionary class
"com.solarmetric.kodo.impl.jdbc.schema.dict.InterbaseDictionary" to
connect to "Firebird" (version "__WI-V6.2.972 Firebird 1.0.3)WI-V6.2.972
Firebird 1.0.3/tcp (annm)/P10") with JDBC driver "firebirdsql jca/jdbc
resource adapter" (version "0.1")
4032 [main] INFO jdbc.JDBC - [ C:25657668; T:19356985; D:10268916 ] open:
jdbc:firebirdsql:localhost/3050:D:/An/test/temp.gdb (sysdba)
4143 [main] INFO jdbc.SQL - [ C:25657668; T:19356985; D:10268916 ]
preparing statement <3098834>: INSERT INTO XREF(PERSON, PROJECT) VALUES
4224 [main] INFO jdbc.SQL - [ C:25657668; T:19356985; D:10268916 ]
executing statement <3098834>: [reused=1;params={(int)1,(int)1}]
4244 [main] INFO jdbc.SQL - [ C:25657668; T:19356985; D:10268916 ]
preparing statement <9090824>: INSERT INTO PERSON(MGR, NAME, PK, SSNUM)
VALUES (?, ?, ?, ?)
4315 [main] INFO jdbc.SQL - [ C:25657668; T:19356985; D:10268916 ]
executing statement <9090824>: [reused=1;params={null,null,(int)1,(int)0}]
4598 [main] WARN jdbc.JDBC - java.sql.SQLWarning: java.sql.SQLWarning:
resultSetType or resultSetConcurrency changed
4598 [main] WARN jdbc.JDBC - java.sql.SQLWarning: java.sql.SQLWarning:
resultSetType or resultSetConcurrency changed
4598 [main] INFO jdbc.JDBC - [ C:25657668; T:19356985; D:10268916 ] begin
rollback
4608 [main] INFO jdbc.JDBC - [ C:25657668; T:19356985; D:10268916 ] end
rollback 10ms
4628 [main] INFO jdbc.JDBC - [ C:25657668; T:19356985; D:10268916 ]
close:
com.solarmetric.datasource.PoolConnection@1878144[[requests=2;size=2;max=70;hits=0;created=2;redundant=0;overflow=0;new=2;leaked=0;unavailable=0]]
4628 [main] INFO jdbc.JDBC - [ C:25657668; T:19356985; D:10268916 ] close
connection
javax.jdo.JDOFatalDataStoreException:
com.solarmetric.kodo.impl.jdbc.sql.SQLExceptionWrapper:
[SQL=INSERT INTO PERSON(MGR, NAME, PK, SSNUM) VALUES (null, null, 1, 0)]
[PRE=INSERT INTO PERSON(MGR, NAME, PK, SSNUM) VALUES (?, ?, ?, ?)]
GDS Exception. violation of PRIMARY or UNIQUE KEY constraint "PK_PERSON"
on table "PERSON" [code=335544665;state=null]
NestedThrowables:
com.solarmetric.kodo.impl.jdbc.sql.SQLExceptionWrapper:
[SQL=INSERT INTO PERSON(MGR, NAME, PK, SSNUM) VALUES (null, null, 1, 0)]
[PRE=INSERT INTO PERSON(MGR, NAME, PK, SSNUM) VALUES (?, ?, ?, ?)]
GDS Exception. violation of PRIMARY or UNIQUE KEY constraint "PK_PERSON"
on table "PERSON"
at
com.solarmetric.kodo.impl.jdbc.runtime.SQLExceptions.throwFatal(SQLExceptions.java:17)
at
com.solarmetric.kodo.impl.jdbc.runtime.JDBCStoreManager.flush(JDBCStoreManager.java:416)
at
com.solarmetric.kodo.runtime.PersistenceManagerImpl.flush(PersistenceManagerImpl.java:575)
at
com.solarmetric.kodo.runtime.PersistenceManagerImpl.commit(PersistenceManagerImpl.java:438)
at reversetutorial.Finder.createData(Finder.java:74)
at reversetutorial.Finder.main(Finder.java:141)
NestedThrowablesStackTrace:
org.firebirdsql.jdbc.FBSQLException: GDS Exception. violation of PRIMARY
or UNIQUE KEY constraint "PK_PERSON" on table "PERSON"
at
org.firebirdsql.jdbc.FBPreparedStatement.internalExecute(FBPreparedStatement.java:425)
at
org.firebirdsql.jdbc.FBPreparedStatement.executeUpdate(FBPreparedStatement.java:136)
at
com.solarmetric.datasource.PreparedStatementWrapper.executeUpdate(PreparedStatementWrapper.java:111)
at
com.solarmetric.kodo.impl.jdbc.SQLExecutionManagerImpl.executePreparedStatementNonBatch(SQLExecutionManagerImpl.java:542)
at
com.solarmetric.kodo.impl.jdbc.SQLExecutionManagerImpl.executePreparedStatement(SQLExecutionManagerImpl.java:511
at
com.solarmetric.kodo.impl.jdbc.SQLExecutionManagerImpl.executeInternal(SQLExecutionManagerImpl.java:405)
at
com.solarmetric.kodo.impl.jdbc.SQLExecutionManagerImpl.flush(SQLExecutionManagerImpl.java:272
at
com.solarmetric.kodo.impl.jdbc.runtime.JDBCStoreManager.flush(JDBCStoreManager.java:411)
at
com.solarmetric.kodo.runtime.PersistenceManagerImpl.flush(PersistenceManagerImpl.java:575)
at
com.solarmetric.kodo.runtime.PersistenceManagerImpl.commit(PersistenceManagerImpl.java:438)
at reversetutorial.Finder.createData(Finder.java:74)
at reversetutorial.Finder.main(Finder.java:141)
at org.firebirdsql.gds.GDSException: violation of PRIMARY or UNIQUE KEY
constraint "PK_PERSON" on table "PERSON
at org.firebirdsql.jgds.GDS_Impl.readStatusVector(GDS_Impl.java:1683)
at org.firebirdsql.jgds.GDS_Impl.receiveResponse(GDS_Impl.java:1636)
at org.firebirdsql.jgds.GDS_Impl.isc_dsql_execute2(GDS_Impl.java:865)
at
org.firebirdsql.jca.FBManagedConnection.executeStatement(FBManagedConnection.java:782)
at
org.firebirdsql.jdbc.FBConnection.executeStatement(FBConnection.java:1072)
at
org.firebirdsql.jdbc.FBPreparedStatement.internalExecute(FBPreparedStatement.java:420)
at
org.firebirdsql.jdbc.FBPreparedStatement.executeUpdate(FBPreparedStatement.java:136)
at
com.solarmetric.datasource.PreparedStatementWrapper.executeUpdate(PreparedStatementWrapper.java:111)
at
com.solarmetric.kodo.impl.jdbc.SQLExecutionManagerImpl.executePreparedStatementNonBatch(SQLExecutionManagerImpl.java:542)
at
com.solarmetric.kodo.impl.jdbc.SQLExecutionManagerImpl.executePreparedStatement(SQLExecutionManagerImpl.java:511)
at
com.solarmetric.kodo.impl.jdbc.SQLExecutionManagerImpl.executeInternal(SQLExecutionManagerImpl.java:405)
at
com.solarmetric.kodo.impl.jdbc.SQLExecutionManagerImpl.flush(SQLExecutionManagerImpl.java:272)
at
com.solarmetric.kodo.impl.jdbc.runtime.JDBCStoreManager.flush(JDBCStoreManager.java:411)
at
com.solarmetric.kodo.runtime.PersistenceManagerImpl.flush(PersistenceManagerImpl.java:575)
at
com.solarmetric.kodo.runtime.PersistenceManagerImpl.commit(PersistenceManagerImpl.java:438)
at reversetutorial.Finder.createData(Finder.java:74)
at reversetutorial.Finder.main(Finder.java:141)
Exception in thread "main"

First off, use the '-primaryKeyOnJoin true' flag when running the reverse
mapping tool so that you can get rid of that useless Xref class and have
a direct relation between Person and Project. See the documentation on
reverse mapping tool options here:
http://www.solarmetric.com/Software/Documentation/latest/docs/ref_guide_pc_reverse.html
But your real problem is that you are creating new objects, assigning
primary key values, and expecting them to represent existing objects.
That's not the way JDO works. If you want to set relations to existing
objects in JDO, you use the PM to look up those objects. If you try to
create new objects, JDO will assume you want to insert new records into
the DB, and you'll get PK conflicts like you see here.
There are several good books out on JDO; if you're just starting out with
it, they might save you a lot of time and help you master JDO quickly.

Reading First record of table in smartform

Similar Messages

Maybe you are looking for