Listausgabe begrenzen
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Hallo Kollegen,
als ABAP Anfänger stehe ich vor folgendem Problem. Ich habe einen Report der eigentlich nur eine Aneinanderreihung von Standartreports (Subreports) ist. Die Ausgabe erfolgt nicht im ALV sondern 'unstrukturiert' am Bildschirm.
Werden im Produktivsystem nun Massendatenänderungen vorgenommen kann es sein, daß die Ausgabe 2500 Seiten lang ist.
Gibt es eine Möglichkeit die Listenausgabe der 'Subreports' zu begrenzen? z.B. zeige nur die ersten hundert Treffer und eine Message, daß eigentlich mehr Treffer vorhanden sind.
An welcher Stelle müsste dies dann eingefügt werden?
Danke schonmal für Eure Hilfe! Kann ab Montag 5.11. erst wieder ans System.
Flo
anbei ein code-ausschnitt:
i_str_usr = interne Tabelle mit usernamen aus select-options.
als ABAP Anfänger stehe ich vor folgendem Problem. Ich habe einen Report der eigentlich nur eine Aneinanderreihung von Standartreports (Subreports) ist. Die Ausgabe erfolgt nicht im ALV sondern 'unstrukturiert' am Bildschirm.
Werden im Produktivsystem nun Massendatenänderungen vorgenommen kann es sein, daß die Ausgabe 2500 Seiten lang ist.
Gibt es eine Möglichkeit die Listenausgabe der 'Subreports' zu begrenzen? z.B. zeige nur die ersten hundert Treffer und eine Message, daß eigentlich mehr Treffer vorhanden sind.
An welcher Stelle müsste dies dann eingefügt werden?
Danke schonmal für Eure Hilfe! Kann ab Montag 5.11. erst wieder ans System.
Flo
anbei ein code-ausschnitt:
i_str_usr = interne Tabelle mit usernamen aus select-options.
Code: Alles auswählen.
WRITE: / '|******************************************Beginn**********************************************|',
/ '|* CA1 *|',
/ '|* Es werden alle Änderung an Kreditoren-, Debitoren-Stammdaten *|',
/ '|* und Konditionen angezeigt. *|',
/ '|**********************************************************************************************|'.
SKIP.
SKIP 1.
LOOP AT i_str_usr INTO wa_str_usr.
SELECT * FROM cdhdr
INTO TABLE gt_cdhdr
WHERE username EQ wa_str_usr
AND udate GE p_von
AND udate LE p_bis.
ENDLOOP.
LOOP AT gt_cdhdr INTO gs_cdhdr.
IF sy-tabix = 1.
WRITE: /
'Mdt', "Mandant
5 'Objkl', "Objektklasse
21 'Objektid', "Objektwert
112 'Changenr', "Änderungsnummer des Belegs
123 'User', "Benutzername des Änderers im Ä.beleg
136 'Datum', "Erstellungsdatum des Änderungsbelegs
150 'Zeit', "Uhrzeit der Änderung
162 'Tac', "Transaktion der Änderung
183 'Chngnr', "Nummer, die gepl. Änd. zusammenfaßt
196 'Chngno', "Änderungsnr.d.erzeugten Belegs
207 'K', "Kz.,daß Änderung aus gepl. Änderung
210 'I'. "Art der Änderung (U, I, E, D) Objekt
ENDIF.
WRITE: /
gs_cdhdr-mandant,
5 gs_cdhdr-objectclas,
21 gs_cdhdr-objectid,
112 gs_cdhdr-changenr,
123 gs_cdhdr-username,
136 gs_cdhdr-udate,
150 gs_cdhdr-utime,
162 gs_cdhdr-tcode,
183 gs_cdhdr-planchngnr,
196 gs_cdhdr-act_chngno,
207 gs_cdhdr-was_plannd,
210 gs_cdhdr-change_ind.
ENDLOOP.
IF sy-subrc NE 0.
WRITE: / '-> No changes found!'..
ELSE.
* WRITE: / '-> End of list!'..
ENDIF.
FORMAT RESET.
PERFORM block_ende.
ENDIF.
Zuletzt geändert von thiemf am 30.10.2007 16:13, insgesamt 1-mal geändert.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo,
stell' doch erst einmal fest, wie groß die auszugebende Tabelle ist:
data: count type i.
describe table gt_cdhdr lines count.
Wenn sie zu groß ist, verlasse den loop:
LOOP AT gt_cdhdr INTO gs_cdhdr.
...
if count > 500.
if sy-tabix = 500.
exit.
endif.
endif.
endloop.
endif.
Hilft das?
lg khb
stell' doch erst einmal fest, wie groß die auszugebende Tabelle ist:
data: count type i.
describe table gt_cdhdr lines count.
Wenn sie zu groß ist, verlasse den loop:
LOOP AT gt_cdhdr INTO gs_cdhdr.
...
if count > 500.
if sy-tabix = 500.
exit.
endif.
endif.
endloop.
endif.
Hilft das?
lg khb
Muss man nicht feststellen, steht fest: sy-dbcnt. (nach Select-Anweisung).stell' doch erst einmal fest, wie groß die auszugebende Tabelle ist:
data: count type i.
describe table gt_cdhdr lines count.
Beispiel aus'm Kopf....
Code: Alles auswählen.
Parameters: P_ausg type TBMAXSEL default 500.
Loop at table.....
LOOP AT gt_cdhdr INTO gs_cdhdr.
AT FIRST.
WRITE: / Text-100,
5 Text-101,
21 Text-102,
112 Text-103
ENDAT.
* 'Mdt', "Mandant
* 5 'Objkl', "Objektklasse
* 21 'Objektid', "Objektwert
* 112 'Changenr', "Änderungsnummer
............
if sy-tabix > p_ausg.
exit.
endif.
WRITE: / gs_cdhdr-mandant under text-100,
gs_cdhdr-objectclas under text-101,
gs_cdhdr-objectid under text-102,
gs_cdhdr-changenr under text-102,
...........
endloop.
write
Seite 1 von 1
Vergleichbare Themen
2
Antw.
Antw.
2968
Views
Views
4
Antw.
Antw.
2617
Views
Views
4
Antw.
Antw.
1980
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
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.