Beispiel: User-Exit mit Form-Routine
Ausgangssituation
Sie verwenden einen kundeneigenen User-Exit mit dem Programmnamen ZUSEREXI und der Form-Routine mit dem Namen KONVERT.
Sie möchten den Wert des Feldobjekts Titel (TITEL) aus dem Infotyp Daten zur Person (P0002) in den Text aus dem Feld Titel (TTOUT) aus der Tabelle Namenszusätze (T535N) konvertieren. Auf den Titel ING. (für Ingenieur) soll ganz verzichtet werden.
Vorgehensweise
Das kundeneigene Programm für den User-Exit einschließlich der Form-Routine könnte folgendermaßen ausehen:
FORM KONVERT TITEL USING VALUE(P0002) STRUCTURE P0002
CHANGING VALUE(RESULT).
IF P0002-TITEL <> `ING.`.
SELECT SINGLE * FROM T535N
WHERE ART = `T`
AND TITEL = P0002-TITEL.
IF SY-SUBRC = 0.
RESULT = T535N-TTOUT.
ELSE.
CLEAR RESULT.
ENDIF.
ENDFORM.