Code: Alles auswählen.
TRANSLATE s_nam TO UPPER CASE.
IF ( s_nam CA 'Ä' ). REPLACE 'Ä' WITH 'AE' INTO s_nam. ENDIF.
IF ( s_nam CA 'Ö' ). REPLACE 'Ö' WITH 'OE' INTO s_nam. ENDIF.
IF ( s_nam CA 'Ü' ). REPLACE 'Ü' WITH 'UE' INTO s_nam. ENDIF.
IF ( s_nam CA 'ß' ). REPLACE 'ß' WITH 'SS' INTO s_nam. ENDIF.
Code: Alles auswählen.
IF s_nam IS NOT INITIAL.
PERFORM konvert_nachname.
LOOP AT user_mehrfach INTO user_mehrfach_line
WHERE name = s_nam-low.
PERFORM ausgabe_berechnen.
ENDLOOP.
ENDIF.
Code: Alles auswählen.
IF s_firma IS NOT INITIAL.
LOOP AT user_mehrfach INTO user_mehrfach_line
WHERE firmenadresse IN s_firma.
PERFORM ausgabe_berechnen.
ENDLOOP.
ENDIF.
Code: Alles auswählen.
PARAMETERS: s_lgnum TYPE link-lgnum .
SELECT-OPTIONS: s_ivnum FOR link-ivnum .