ABAP中的数据校验-备注

• 通过 function module 检查日期是否合法（DDUT_INPUT_CHECK的校验会根据账户的时间设置格式）

    日期校验方式一：

 CALL FUNCTION ‘DATE_CHECK_PLAUSIBILITY’
   EXPORTING
     date                      = sy-datum
   EXCEPTIONS
     plausibility_check_failed =
     OTHERS                    = .
 CASE sy-subrc.
   WHEN .
     WRITE:’sucess’.
   WHEN .
     WRITE:’failed’.
   WHEN OTHERS.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDCASE.

    日期校验方式二：

 DATA: v_date TYPE d,
       v_c() TYPE c.
 ****************************
 * check date
 ****************************
 v_c = ''.
 v_date = v_c.
 IF v_date = .
   WRITE: / v_c , ' is a Wrong date!'.
 ELSE.
   WRITE: / v_c , ' is a OK date.'.
 ENDIF.

• DDUT_INPUT_CHECK校验数量时可能会出错（尤其是接受外围系统的传输 输入 1.0 P(10)3 会输出 1000.0 P(7)3）

数字校验方式一：

 DATA:  v_int TYPE i,
              v_c() TYPE c.
 ****************************
 * check number
 ****************************
 v_c = '-123.123'.
 TRY.
     v_int = v_c.
     WRITE: / v_c , ' is a OK number.'.
   CATCH cx_root. "all error
     WRITE: / v_c ,' is a Wrong number!'.
 ENDTRY.

数字校验方式二：

 DATA:l_htype LIKE dd01v-datatype.
 CLEAR l_htype.
 CALL FUNCTION 'NUMERIC_CHECK'
   EXPORTING
     string_in  = '123456789   '
   IMPORTING
 *   STRING_OUT =
     htype      = l_htype.
 WRITE:l_htype."输出NUMC