数据录入完成之后,自动带出来 登录时间和日期。
FORM F_XXX_UPDATE_XXX.
DATA: LV_INDEX LIKE SY-TABIX. "Index to note the lines found
LOOP AT TOTAL.
CASE <ACTION>.
WHEN AENDERN.
*-------- When the process is 'UPDATE',
CLEAR LV_INDEX.
READ TABLE EXTRACT WITH KEY <VIM_XTOTAL_KEY>.
IF SY-SUBRC = 0.
LV_INDEX = SY-TABIX.
ELSE.
" Process on continue.
ENDIF.
*-------- Define the original procedure.
CALL FUNCTION 'ZAMCM_SET_UPD_INFORMATION'
CHANGING
CH_W_TARGET = <VIM_TOTAL_STRUC>.
*-------- End of the original procedure.
MODIFY TOTAL.
CHECK LV_INDEX > 0.
EXTRACT = TOTAL.
MODIFY EXTRACT INDEX LV_INDEX.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
SY-SUBRC = 0.
ENDFORM. "Update_Entry
FORM F_XXXX_NEW_XXXX.
CALL FUNCTION 'ZAMCM_SET_CRT_INFORMATION'
CHANGING
CH_W_TARGET = XXXXX(TableName).
CALL FUNCTION 'ZAMCM_SET_UPD_INFORMATION'
CHANGING
CH_W_TARGET = XXXXX(TableName).
ENDFORM. "New_Entry