Code: Alles auswählen.
StandardCoding:
FORM KOBED_602.
ENDFORM.
FORM KOBEV_602.
PERFORM kobed_602.
ENDFORM.Code: Alles auswählen.
MEINCoding:
FORM KOBED_602.
CASE kompbme-ebeln.
WHEN '4500318105'.
EXIT. " Hier soll der Druck verhindert werden
WHEN '4500318106'.
* nothing " Hier soll mit dem Druck fortgefahren werden.
ENDCASE.
ENDFORM.
FORM KOBEV_602.
PERFORM kobed_602.
ENDFORM.Code: Alles auswählen.
FORM KOBED_602.
CASE kompbme-ebeln.
WHEN '4500318105'.
sy-subrc = 4. "Hier soll der Druck verhindert werden
WHEN '4500318106'.
sy-subrc = 0. "Hier soll mit dem Druck fortgefahren werden
ENDCASE.
ENDFORM.
FORM KOBEV_602.
* Keine Vorstep-Prüfung
sy-subrc = 0.
ENDFORM.