*----------------------------------------------------------------------*
***INCLUDE LZS213_DLG_ART_PFLEGEO01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.

  DATA fcode TYPE TABLE OF sy-ucomm.

  APPEND 'SAVE' TO fcode.

  IF modus = 'M'.
    SET PF-STATUS '0100'. "GUI-Status 0100 setzen

  ELSE.


    SET PF-STATUS '0100' EXCLUDING fcode.
    LOOP AT SCREEN.
      IF screen-group1 = 'MOD'.

        screen-input = '0'.



        MODIFY SCREEN.
      ENDIF.

    ENDLOOP.



  ENDIF.
  SET TITLEBAR '0100'.

ENDMODULE.                 " STATUS_0100  OUTPUT