Datensätze mit RFC FuBa paketweise bekommen - Versionsgeschichte

M1ch3lde am 20. März 2026 um 16:26 Uhr

2026-03-20T16:26:15Z

← Nächstältere Version		Version vom 20. März 2026, 18:26 Uhr
Zeile 1:		Zeile 1:
			[[Kategorie: Codeschnipsel]]
	Dies ist ein einfaches Beispiel wie man paketweise Datensätze via RFC Baustein bekommen kann.		Dies ist ein einfaches Beispiel wie man paketweise Datensätze via RFC Baustein bekommen kann.
	Die Aufteilung in Paketen ist bei extrem vielen Datensätzen notwendig.		Die Aufteilung in Paketen ist bei extrem vielen Datensätzen notwendig.

M1ch3lde am 10. Mai 2022 um 13:14 Uhr

2022-05-10T13:14:39Z

← Nächstältere Version		Version vom 10. Mai 2022, 15:14 Uhr
Zeile 20:		Zeile 20:
	ENDIF.		ENDIF.

	"Wichtig für den SELECT in der DO-Schleife, damit neue Materialnummern selektiert werden.		"Wichtig für den SELECT in der DO-Schleife, damit nur neue Materialnummern selektiert werden.
	gv_last_mat = gt_mara[ lines( gt_mara ) ].		gv_last_mat = gt_mara[ lines( gt_mara ) ].

M1ch3lde am 10. Mai 2022 um 13:13 Uhr

2022-05-10T13:13:47Z

← Nächstältere Version		Version vom 10. Mai 2022, 15:13 Uhr
Zeile 3:		Zeile 3:

	<syntaxhighlight lang="abap" line start="1">		<syntaxhighlight lang="abap" line start="1">
	~~"Wir benötigten die gesamte Anzahl der Datensätze, wofür wir die Kurztexte haben wollen.~~
	~~SELECT COUNT( * ) FROM mara INTO @DATA(gv_total)~~
	~~WHERE matnr IN @gt_mat_range.~~

	DO.		DO.
	"Wir selektieren die jeweiligen Materialnummern von der MARA		"Wir selektieren die jeweiligen Materialnummern von der MARA

M1ch3lde am 10. Mai 2022 um 13:12 Uhr

2022-05-10T13:12:11Z

← Nächstältere Version		Version vom 10. Mai 2022, 15:12 Uhr
Zeile 3:		Zeile 3:

	<syntaxhighlight lang="abap" line start="1">		<syntaxhighlight lang="abap" line start="1">
			"Wir benötigten die gesamte Anzahl der Datensätze, wofür wir die Kurztexte haben wollen.
	SELECT COUNT( * ) FROM mara INTO @DATA(gv_total)		SELECT COUNT( * ) FROM mara INTO @DATA(gv_total)
	WHERE matnr IN @gt_mat_range.		WHERE matnr IN @gt_mat_range.

	DO.		DO.
			"Wir selektieren die jeweiligen Materialnummern von der MARA
			"von dem System, der die Kurztexte vom Zielsystem abfragen möchte
			"Dabei wird Paketweise z.B. 1000 Datensätze selektiert und nur diese,
			"die nicht bereits für die Anfrage ausgewählt wurden.
	SELECT matnr FROM mara INTO TABLE @DATA(gt_mara)		SELECT matnr FROM mara INTO TABLE @DATA(gt_mara)
	UP TO gv_packsize ROWS		UP TO gv_packsize ROWS
Zeile 13:		Zeile 18:
	ORDER BY matnr ASCENDING.		ORDER BY matnr ASCENDING.

			"Unsere Return Bedingung. Wenn keine Datensätze mehr zu bearbeiten sind,
			"springen wir aus der DO-Schleife raus.
	IF sy-dbcnt = 0.		IF sy-dbcnt = 0.
	EXIT.		EXIT.
	ENDIF.		ENDIF.

			"Wichtig für den SELECT in der DO-Schleife, damit neue Materialnummern selektiert werden.
	gv_last_mat = gt_mara[ lines( gt_mara ) ].		gv_last_mat = gt_mara[ lines( gt_mara ) ].
	~~gv_current = gv_current + gv_packsize.~~

	~~IF gv_current > gv_total.~~
	~~gv_current = gv_total.~~
	~~ENDIF.~~

	"Dieser FuBa ist im Zielsystem vorhanden.		"Dieser FuBa ist im Zielsystem vorhanden.
Zeile 39:		Zeile 42:
	RAISE EXCEPTION TYPE zcl_bal.		RAISE EXCEPTION TYPE zcl_bal.
	ENDIF.		ENDIF.

			"Hier kommt irgendeine Verarbeitung mit der gt_matnr_maktx_dest...

	ENDO.		ENDO.
	</syntaxhighlight>		</syntaxhighlight>

M1ch3lde am 10. Mai 2022 um 13:05 Uhr

2022-05-10T13:05:01Z

← Nächstältere Version		Version vom 10. Mai 2022, 15:05 Uhr
Zeile 1:		Zeile 1:
			Dies ist ein einfaches Beispiel wie man paketweise Datensätze via RFC Baustein bekommen kann.
			Die Aufteilung in Paketen ist bei extrem vielen Datensätzen notwendig.

			<syntaxhighlight lang="abap" line start="1">
	SELECT COUNT( * ) FROM mara INTO @DATA(gv_total)		SELECT COUNT( * ) FROM mara INTO @DATA(gv_total)
	WHERE matnr IN @gt_mat_range.		WHERE matnr IN @gt_mat_range.
Zeile 19:		Zeile 23:
	gv_current = gv_total.		gv_current = gv_total.
	ENDIF.		ENDIF.

			"Dieser FuBa ist im Zielsystem vorhanden.
			"Anhand der Materialnummer werden die Kurztexte gelesen und dem System übergeben,
			"der die Kurztexte anfragt.
	CALL FUNCTION 'Z_GET_MAT_SHORTEXT' DESTINATION gv_rfc_dest		CALL FUNCTION 'Z_GET_MAT_SHORTEXT' DESTINATION gv_rfc_dest
	EXPORTING		EXPORTING
Zeile 34:		Zeile 41:

	ENDO.		ENDO.
			</syntaxhighlight>

M1ch3lde: Die Seite wurde neu angelegt: „SELECT COUNT( * ) FROM mara INTO @DATA(gv_total) WHERE matnr IN @gt_mat_range. DO. SELECT matnr FROM mara INTO TABLE @DATA(gt_mara)…“

2022-05-10T13:00:16Z

Die Seite wurde neu angelegt: „SELECT COUNT( * ) FROM mara INTO @DATA(gv_total) WHERE matnr IN @gt_mat_range. DO. SELECT matnr FROM mara INTO TABLE @DATA(gt_mara)…“

Neue Seite

SELECT COUNT( * ) FROM mara INTO @DATA(gv_total)
WHERE matnr IN @gt_mat_range.

DO.
SELECT matnr FROM mara INTO TABLE @DATA(gt_mara)
UP TO gv_packsize ROWS
WHERE matnr IN gt_mat_range
AND matnr > gv_last_mat
ORDER BY matnr ASCENDING.

IF sy-dbcnt = 0.
EXIT.
ENDIF.

gv_last_mat = gt_mara[ lines( gt_mara ) ].
gv_current = gv_current + gv_packsize.

IF gv_current > gv_total.
gv_current = gv_total.
ENDIF.

CALL FUNCTION 'Z_GET_MAT_SHORTEXT' DESTINATION gv_rfc_dest
EXPORTING
it_matnr = gt_mara
IMPORTING
et_matnr_maktx = gt_matnr_maktx_dest
EXCEPTIONS
system_failure = 1
communication_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE zcl_bal.
ENDIF.

ENDO.