MODULE check_meal_chain INPUT.
IF zsch_013_ts_speise-mealtype IS NOT INITIAL
AND zsch_013_ts_speise-mealtype <> 'VE'
AND zsch_013_ts_speise-mealtype <> 'FI'
AND zsch_013_ts_speise-mealtype <> 'FL'.
MESSAGE |Mealtype { zsch_013_ts_speise-mealtype } unbekannt  nur VE, FI, FL.|
TYPE 'E'.
ENDIF.
" NEU: Text-Mindestlnge in derselben CHAIN
IF strlen( zsch_013_ts_speise-text ) < 3.
MESSAGE 'Text mit mindestens 3 Zeichen pflegen.' TYPE 'E'.
ENDIF.
ENDMODULE.