检查时间有效性 TIME_CHECK_PLAUSIBILITY
DATA:m_time LIKE sy-uzeit VALUE '260000'.
CALL FUNCTION 'TIME_CHECK_PLAUSIBILITY'
EXPORTING
time = m_time
EXCEPTIONS
plausibility_check_failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
WRITE: 'sucess'.
ENDIF.
判定某天是否为假日 HOLIDAY_CHECK_AND_GET_INFO
DATA holiday TYPE c.
DATA attributes TYPE STANDARD TABLE OF thol.
DATA m_date type D value '20161001'.
CALL FUNCTION 'HOLIDAY_CHECK_AND_GET_INFO'
EXPORTING
date = m_date "输入日期
holiday_calendar_id = 'CN' "假日日历ID,参照thoc-ident字段,CN为中国
with_holiday_attributes = ' ' "若X,则 holiday_attributes 会带出属性记录
IMPORTING
holiday_found = holiday "输出是否为假日的标记 输出结果:X
TABLES
holiday_attributes = attributes "输出该假日的属性
EXCEPTIONS
calendar_buffer_not_loadable = 1
date_after_range = 2
date_before_range = 3
date_invalid = 4
holiday_calendar_id_missing = 5
holiday_calendar_not_found = 6
OTHERS = 7.
WRITE: '输出:',holiday.
假日的缓冲区数据在表thoc中维护:
检查输入日期是星期几 DAY_IN_WEEK
DATA: m_wotnr TYPE p,
m_datum TYPE d VALUE '20140729'.
CALL FUNCTION 'DAY_IN_WEEK'
EXPORTING
datum = m_datum
IMPORTING
wotnr = m_wotnr.
WRITE:'输入日期:',m_datum,'星期:',m_wotnr.
检查日期有效性 DATE_CHECK_PLAUSIBILITY
DATA:m_date TYPE d VALUE '20140230'.
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
date = m_date
EXCEPTIONS
plausibility_check_failed = 1
OTHERS