ABAP immer letzter Satz
4 Beiträge
•
Seite 1 von 1
4 Beiträge
Seite 1 von 1
Hallo
Ich habe folgenden ABAP:
REPORT ZM_LANGTEXTE_PM line-count 650(0) line-size 800.
tables:
equi.
data:
d_name like thead-tdname,
begin of t0 occurs 0,
equnr like equi-equnr, "Equipment
end of t0,
e_lines like tline occurs 0 with header line,
e_header like thead,
ltxth like /SAPDMC/LTXTH,
ltxtl like /SAPDMC/LTXTL.
* Selektion Screen
selection-screen begin of block orga with frame title text-001.
select-options:
s_equnr for equi-equnr.
selection-screen end of block orga.
parameters: p_file type char255 default '\Langtexte.txt'.
*Start of Selektion
start-of-selection.
*Daten aus Datenbank selektieren
select equi~equnr
into corresponding fields of table t0
from equi
where equi~equnr in s_equnr.
*End of Selektion
end-of-selection.
sort t0.
loop at t0.
d_name = t0-equnr.
endloop.
* Text auslesen
call function 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'INTV'
language = 'D'
name = d_name
object = 'EQUI'
IMPORTING
header = e_header
TABLES
lines = e_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4.
if sy-subrc <> 0.
clear e_lines.
refresh e_lines.
endif.
OPEN DATASET P_file FOR OUTPUT IN Text Mode.
move '1' to ltxth-STYPE.
move e_header-TDOBJECT to ltxth-OBJECT.
move e_header-TDNAME to ltxth-NAME.
move e_header-TDID to ltxth-ID.
move 'D' to ltxth-SPRAS.
transfer ltxth to P_file.
loop at e_lines.
move '2' to ltxtl-STYPE.
move e_lines-TDFORMAT to ltxtl-TEXTFORMAT.
move e_lines-TDLINE to ltxtl-TEXTLINE.
transfer ltxtl to P_file.
endloop.
CLOSE DATASET P_file.
*Ende Gelände
Das File wird auch geschrieben und kann per LSMW eigelesen werden,
Jetzt ist es nur so das er immer den Letzten Satz ausgibt.
Kann mir jemand sagen warum?
Vielen Dank.
Thomas
Ich habe folgenden ABAP:
REPORT ZM_LANGTEXTE_PM line-count 650(0) line-size 800.
tables:
equi.
data:
d_name like thead-tdname,
begin of t0 occurs 0,
equnr like equi-equnr, "Equipment
end of t0,
e_lines like tline occurs 0 with header line,
e_header like thead,
ltxth like /SAPDMC/LTXTH,
ltxtl like /SAPDMC/LTXTL.
* Selektion Screen
selection-screen begin of block orga with frame title text-001.
select-options:
s_equnr for equi-equnr.
selection-screen end of block orga.
parameters: p_file type char255 default '\Langtexte.txt'.
*Start of Selektion
start-of-selection.
*Daten aus Datenbank selektieren
select equi~equnr
into corresponding fields of table t0
from equi
where equi~equnr in s_equnr.
*End of Selektion
end-of-selection.
sort t0.
loop at t0.
d_name = t0-equnr.
endloop.
* Text auslesen
call function 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'INTV'
language = 'D'
name = d_name
object = 'EQUI'
IMPORTING
header = e_header
TABLES
lines = e_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4.
if sy-subrc <> 0.
clear e_lines.
refresh e_lines.
endif.
OPEN DATASET P_file FOR OUTPUT IN Text Mode.
move '1' to ltxth-STYPE.
move e_header-TDOBJECT to ltxth-OBJECT.
move e_header-TDNAME to ltxth-NAME.
move e_header-TDID to ltxth-ID.
move 'D' to ltxth-SPRAS.
transfer ltxth to P_file.
loop at e_lines.
move '2' to ltxtl-STYPE.
move e_lines-TDFORMAT to ltxtl-TEXTFORMAT.
move e_lines-TDLINE to ltxtl-TEXTLINE.
transfer ltxtl to P_file.
endloop.
CLOSE DATASET P_file.
*Ende Gelände
Das File wird auch geschrieben und kann per LSMW eigelesen werden,
Jetzt ist es nur so das er immer den Letzten Satz ausgibt.
Kann mir jemand sagen warum?
Vielen Dank.
Thomas
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo,
Problem ist daß Du immer einen Open Output machst,
dadurch wird die Datei immer neu initialisiert.
Ich denke der Open darf nur einmal druchgeführt werden und
einmal ein Close.
Text auslesen muß innerhalb der Loop -Schleife geschehen.
Gruß Wolfgang
Problem ist daß Du immer einen Open Output machst,
dadurch wird die Datei immer neu initialisiert.
Ich denke der Open darf nur einmal druchgeführt werden und
einmal ein Close.
Text auslesen muß innerhalb der Loop -Schleife geschehen.
Gruß Wolfgang
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
2300
Views
Views
Select mit genau 1 Satz vor und 1 Satz nach Timestamp
von babap » 04.05.2005 12:56 • Verfasst in ABAP® Core
von babap » 04.05.2005 12:56 • Verfasst in ABAP® Core
7
Antw.
Antw.
11146
Views
Views
2
Antw.
Antw.
2725
Views
Views
8
Antw.
Antw.
8618
Views
Views
2
Antw.
Antw.
2825
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 10 Stunden von DeathAndPain 4 / 691
vor 10 Stunden von DeathAndPain 4 / 691
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 10 Stunden von DeathAndPain 4 / 691
vor 10 Stunden von DeathAndPain 4 / 691