Code: Alles auswählen.
SUBMIT zzhu_wareneingang USING SELECTION-SCREEN '1000'
WITH so_exidv IN gr_exidv
WITH gp_bwart = '101'
WITH gp_werks = gs_vekp-vegr2
WITH gp_lgort = 'FL01'
WITH gp_frbnr = gv_frbnr
WITH gp_datum = sy-datum
AND RETURN.
Code: Alles auswählen.
call function 'Z_RFC_SUBMIT'
destination 'NONE'
starting new task taskid
performing receive_submit on end of task
exporting ...........
tables ...........
exceptions
system_failure = 01 message ....
communication_failure = 02 message .....
others = 03.
Code: Alles auswählen.
PARAMETERS pa_dark TYPE abap_bool NO-DISPLAY.
Code: Alles auswählen.
MESSAGE ... TYPE 'A'.
Code: Alles auswählen.
IF pa_dark EQ abap_true.
MESSAGE ... TYPE 'S' DISPLAY-LIKE 'A'.
ELSE.
MESSAGE ... TYPE 'A'.
ENDIF.