Ansicht
Dokumentation

EXIT_RBDPROSE_001 -

BAL_S_LOG - Application Log: Log header data   TXBHW - Original Tax Base Amount in Local Currency  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Überblick

Dieser User-Exit ermöglicht es dem Kunden, bei der Umsetzung des logischen Systemnamens auch kundeneigene Tabellen umzusetzen, die nicht in der Vorschlagsliste auftauchen.

Im User-Exit muß durch die zu behandelnden Tabellen gesucht werden, ob Umsetzungen vorzunehmen sind. Im Testmodus erfolgt nur die Ausgabe, welche Umsetzungen vorgenommen werden müssen. Ist der Testmodus nicht aktiv, dann muß auch die Umsetzung erfolgen. Dabei ist zu unterscheiden,ob es sich bei dem umzusetzenden Feld um ein Schlüsselfeld oder ein normales Feld der Tabelle handelt. Bei einem normalen Feld erfogt die Umsetzung über ein Update. Bei Schlüsselfeldern muß in die Tabelle ein neuer Eintrag mit dem geänderten Schlüssel erfolgen (Insert) und der alte Eintrag gelöscht werden (Delete). Beispiele für das Programmcoding sind weiter unten in dieser Doku aufgeführt.

Input-Parameter

Der Parameter TESTMODE zeigt an, ob bei der Umwandlung der Testmodus eingeschaltet ist (Wert = 'X') oder ob die Umsetzung auch ausgeführt werden soll (Wert = ' ').

Die Tabelle T_SYSTEMS mit der Struktur BDILOGSYST enthält die Zuordnung der umzusetzenden Preproduktivsysteme zu den jeweiligen Produktiv- systemen.

Der logische Systemname des Preproduktivsystems ist im Feld 'PRE' in der Struktur von TBDLST-LOGSYS enthalten. Das Feld 'PROD' enthält den neuen logischen Systemnamen für das entsprechende Preproduktivsystem, ebenfalls in der Struktur von TBDLST-LOGSYS.

Output-Parameter

Die Ausgabe erfolgt nicht in Form von Parametern sondern durch Write- Anweisungen direkt in die auf dem Bildschirm angezeigte Liste.

Programmbeispiel:

tables: ZTAB1, "Table with LOGSYS in key ZTAB2. "Table with field LOGSYS

data: CHANGES like SY-TABIX.

write: / 'In Table ZTAB1:'.
loop at t_systems.
write: /5 'For Preproductive System ', T_SYSTEMS-PRE, ':'.
changes = 0.
select * from ZTAB1 where LOGSYS = T_SYSTEMS-PRE.
CHANGES = CHANGES + 1.
if TESTMODE = ' '. "no Testmodue
ZTAB1-LOGSYS = T_SYSTEMS-PROD.
insert ZTAB1. "insert new entry
if sy-subrc = 0. "no error
ZTAB1-LOGSYS = T_SYSTEMS-PRE.
delete ZTAB1. "delete old entry
if sy-subrc <> 0. "error occured
format color 6.
write: /10 'Error at conversion'.
format color 1.
exit.
endif.
else.
format color 6.
write: /10 'Error at conversion'.
format color 1.
exit.
endif.
endif.
endselect.
if sy-subrc <> 0. "no change
write: /10 'No conversion necessary'.
elseif testmode = ' '.
write: /10 CHANGES, 'Conversions done to ',
T_SYSTEMS-PROD.
else.
write: /10 CHANGES, 'Conversions necessary to ',
T_SYSTEMS-PROD.
endif.
endloop.
write: /.



WRITE: / 'In Table ZTAB2:'.
LOOP AT T_SYSTEMS.
WRITE: /5 'For Preproductiv System ZTAB2:'. CHANGES = 0.
SELECT * FROM ZTAB2 WHERE LOGSYS = T_SYSTEMS-PRE.
CHANGES = CHANGES + 1.
IF TEST = ' '.
ZTAB2-LOGSYS = T_SYSTEMS-PROD.
UPDATE ZTAB2.
IF SY-SUBRC <> 0.
FORMAT COLOR 6.
WRITE: /10 'Error at Conversion'.
FORMAT COLOR 1.
EXIT.
ENDIF.
ENDIF.
ENDSELECT.
IF SY-SUBRC <> 0.
WRITE: /10 'No Conversion necessary'.
ELSEIF TEST = ' '.
WRITE: /10 CHANGES, 'Conversions done t0 '(T12),
T_SYSTEMS-PROD.
ELSE.
WRITE: /10 CHANGES, 'Conversions neccessary t0 ', T_SYSTEMS-PROD.
ENDIF.
ENDLOOP.
WRITE: /.

Fill RESBD Structure from EBP Component Structure   Addresses (Business Address Services)  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Length: 4365 Date: 20240427 Time: 064527     sap01-206 ( 53 ms )