Zeilentyp nicht kompatibel

Zeilentyp nicht kompatibel

Hallo,
ich arbeite mich gerade in ABAP ein und versuche gerade ein paar Daten zwischen Tabellen hin und her zu schieben.
Leider scheitere ich an der Erstellung einer internen Tabelle.
Mein Coding sieht folgendermaßen aus:

*&---------------------------------------------------------------------*
*& Report ZSELECTFLIGHT *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZSELECTFLIGHT_ITAB
.

*Interne Tabellendefinition
types: begin of lFlight,
lcarrid type S_CONN_ID,
lconnid type S_CARR_ID,
lfldate type s_date,
lprice type s_price,
lseatsmax type S_SEATSMAX,
lseatsocc type S_SEATSocc,
lpers type p decimals 2,
end of lFlight.

types: it_flight TYPE sorted table of lflight WITH unique key lcarrid
lconnid INITIAL SIZE 10.


data wa_it_flight type it_flight with header line.

data: wa_flight type sflight.

data pers type p decimals 2.

parameters pa_FLI type s_carr_id.

select * from sflight into corresponding fields of wa_flight
where
carrid = pa_fli.

if wa_flight-seatsmax <> 0.
pers = wa_flight-seatsocc / wa_flight-seatsmax.
else.
pers = 0.
endif.

insert wa_flight into table wa_it_Flight .


endselect.

loop at wa_it_flight.

new-line.

write: /
wa_it_flight-lconnid,
wa_it_flight-lcarrid,
wa_it_flight-lseatsmax,
wa_it_flight-lseatsocc,
wa_it_flight-lfldate,
wa_it_flight-lpers,
wa_it_flight-lprice.

endloop.

Leider kommt bei "insert wa_flight into table wa_it_Flight ." immer die Fehlermeldung "wa_flight und der Zeilentyp von wa_it_flight sind nicht kompatibel.
Wenn ich folgendes machen:
wa_it_flight-lcarrid = wa_flight-carrid
meckert ABAP zwar nicht, aber es wird auch nichts übergeben?
Kann mir jemand helfen?
Thanks
Forty2

Hi,
das habe ich mal ausprobiert.
Leider funktioniert es nicht.
Der Insert Befehl natürlich schon gar nicht mehr, aber auch eine Zuweisung von wa_it_flight = wa_flight. bricht mit der gleichen Fehlermeldung der Nicht-Konvertierung ab.
Forty2

Hi,
ich glaube zumindest den Unterschied zu kennen.
War aber auch mein Fehler mit den Bezeichnern.
Nun ja.
Ich habe das Coding nun etwas vereinfacht und das Programm lässt sich auch starten.

*&---------------------------------------------------------------------*
*& Report ZSELECTFLIGHT *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZSELECTFLIGHT_ITAB
.

*--------------Deklaration

*Interne Tabellendefinition
types: begin of lFlight,
lcarrid type S_CONN_ID,
lconnid type S_CARR_ID,
lfldate type s_date,
lprice type s_price,
lseatsmax type S_SEATSMAX,
lseatsocc type S_SEATSocc,
lpers type p decimals 2,
end of lFlight.

DATA:
it_flight TYPE standard table of lFlight.


*Arbeitsbereich
DATA wa_it_flight type lFlight.

*data: wa_sflight type sflight.

data pers type p decimals 2.

parameters pa_FLI type s_carr_id.

*--------------------Programm

select * from sflight into corresponding fields of wa_it_flight
where
carrid = pa_fli.

if wa_it_flight-lseatsmax <> 0.
pers = wa_it_flight-lseatsocc / wa_it_flight-lseatsmax.
else.
pers = 0.
endif.
append wa_it_flight to it_flight.

endselect.

loop at it_flight into wa_it_flight.

new-line.

write: /
wa_it_flight-lconnid,
wa_it_flight-lcarrid,
wa_it_flight-lseatsmax,
wa_it_flight-lseatsocc,
wa_it_flight-lfldate,
wa_it_flight-lprice,
wa_it_flight-lpers,
'%'.

endloop.

Allerdings bei
select * from sflight into corresponding fields of wa_it_flight
where
carrid = pa_fli.
wird nie was in wa_it_flight geschrieben. Somit wird in meine interne tabelle immer Nuller geschrieben.
Thanks
Forty2

Sind sie, zumindest was die Felder in it_flight betrifft.
SFlight hat natürlich noch ein paar mehr Felder.

Sinn der Sache ist letzlich, dass ich eine vorhandene Tabelle (SFLIGHT) filtere und auslese und dann um Werte (berechnet oder aus anderen Tabellen) erweitere um die Daten dann weiter zu verabeiten.

Wahrscheinlich geht das alles viel einfacher als hier probiert. HEUL

Hmpf,
die Welt kann so einfach sein.
Nun funzt es.
Super vielen dank.

Forty2

Du willst die ganze Tabelle übergeben, dann musst du "tables" nutzen anstatt "using".

DESCRIBE TABLE itab LINES lines.

naja eigentlich ist sy-dbcnt eher für db-tabellen gedacht:

SQL-Anweisungen setzen den Inhalt von SY-DBCNT auf die Anzahl der bearbeiteten Tabellenzeilen. Bei SELECT-Schleifen in Open SQL ist SY-DBCNT nach der Anweisung ENDSELECT gesetzt. In Native SQL ist SY-DBCNT nach der Anweisung ENDEXEC gesetzt.

DELETE setzt SY-DBCNT auf die Anzahl der gelöschten Zeilen
FETCH setzt SY-DBCNT auf die Anzahl aller bisher für den entsprechenden Cursor gelesenen Zeilen.
INSERT setzt SY-DBCNT auf die Anzahl der eingefügten Zeilen.
MODIFY setzt SY-DBCNT auf die Anzahl der bearbeiteten Zeilen
UPDATE setzt SY-DBCNT auf die Anzahl der geänderten Zeilen.