Code: Alles auswählen.
process after input.
module USER_COMMAND_0101.
module USER_COMMAND_0101 input.
OK_SAVE = OK_CODE.
clear OK_CODE.
case OK_SAVE.
when 'BACK' or 'ABBR'.
clear OK_CODE.
when 'SAVE'.
perform DATEN_SICHERN.
if SY-SUBRC = 0.
message A001 with EQUI-EQUNR.
endif.
endcase.
endmodule.
form DATEN_SICHERN .
loop at screen.
EQUI-EQUNR = LS_EQUI-EQUNR.
EQUI-EQTYP = LS_EQUI-EQTYP.
EQUI-EQART = LS_EQUI-EQART.
MODIFY SCREEN.
endloop.
endform.