Modification Date Control.

# Set Matintenance View column property.

PROCESS AFTER INPUT.
  MODULE liste_exit_command AT EXIT-COMMAND.
  MODULE liste_before_loop.
  LOOP AT extract.
    MODULE liste_init_workarea.
    CHAIN.
      FIELD zmgbvcode-cprog .
      FIELD zmgbvcode-code .
      FIELD zmgbvcode-seq .
      FIELD zmgbvcode-value .
      FIELD zmgbvcode-text .
      FIELD zmgbvcode-crdate .
      FIELD zmgbvcode-crtime .
      FIELD zmgbvcode-cruser .
      FIELD zmgbvcode-chdate .
      FIELD zmgbvcode-chtime .
      FIELD zmgbvcode-chuser .
      MODULE set_update_flag ON CHAIN-REQUEST.
      MODULE set_update_date ON CHAIN-REQUEST.  " ADD line
    ENDCHAIN.
    FIELD vim_marked MODULE liste_mark_checkbox.
    CHAIN.
      FIELD zmgbvcode-cprog .
      FIELD zmgbvcode-code .
      FIELD zmgbvcode-seq .
      MODULE liste_update_liste.
    ENDCHAIN.
  ENDLOOP.
  MODULE liste_after_loop.

*&---------------------------------------------------------------------*
*&      Module  SET_UPDATE_DATE  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE set_update_date INPUT.

  DATA : ls_zmgsdate TYPE zmgsdate.

  MOVE-CORRESPONDING <table1> TO ls_zmgsdate.

  CASE status-action.

*--- Create
    WHEN hinzufuegen.
      ls_zmgsdate-crdate = sy-datum.
      ls_zmgsdate-crtime = sy-uzeit.
      ls_zmgsdate-cruser = sy-uname.

*--- Update
    WHEN aendern.
      ls_zmgsdate-chdate = sy-datum.
      ls_zmgsdate-chtime = sy-uzeit.
      ls_zmgsdate-chuser = sy-uname.

  ENDCASE.

  MOVE-CORRESPONDING ls_zmgsdate TO <table1>.

ENDMODULE.                 " SET_UPDATE_DATE  INPUT