Code: Alles auswählen.
A1 = A(1). "1
A2 = A+1(1). "2
A3 = A+2(1). "3
A4 = A+3(1). "4
Code: Alles auswählen.
hlp_number = cf_input.
CLEAR pruefsumme.
DO lngth TIMES.
SHIFT hlp_number CIRCULAR RIGHT.
WRITE hlp_number+0(1) TO hlp_ziffer.
hlp_modul = sy-index MOD 2.
IF hlp_modul = 0. "sy-index ist gerade
pruefsumme = pruefsumme + hlp_ziffer.
ELSE. "sy-index ist UNgerade
pruefsumme = pruefsumme + ( 3 * hlp_ziffer ).
ENDIF.
ENDDO.
hlp_modul = pruefsumme MOD 10.
pruefz = 10 - hlp_modul.