ABAP-判断是否是后台job运行和自动写入上个月的第一天和最后一天

李明明~

于 2020-12-16 15:36:20 发布

阅读量928

点赞数

本文链接：https://blog.youkuaiyun.com/weixin_42559610/article/details/111280767

版权

这段代码主要用于后台Job的日期处理，判断是否为每月一号运行。如果满足条件，它会生成上个月的第一天和最后一天的日期范围。通过调用函数获取上个月的最后一天，并设置日期范围用于后续操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


  IF sy-batch IS INITIAL."判断是否是后台job运行
    IF so_dates[] IS INITIAL.
      MESSAGE e001(00) WITH '评分日期范围必填'.
    ENDIF.
  ELSE.
    DATA: lv_monat TYPE numc2.
    DATA: lv_year  TYPE numc04.
*    DATA: lv_datum_s TYPE sy-datum.
    lv_monat = sy-datum+4(2).
    IF lv_monat EQ 1.
      lv_monat = 12.
      lv_year = sy-datum+0(4) - 1.
    ELSE.
      lv_monat = lv_monat - 1.
      lv_year = sy-datum+0(4).
    ENDIF.
    CONCATENATE lv_year lv_monat '01' INTO so_dates-low.
    CALL FUNCTION 'LAST_DAY_OF_MONTHS'
      EXPORTING
        day_in            = so_dates-low
      IMPORTING
        last_day_of_month = so_dates-high
      EXCEPTIONS
        day_in_no_date    = 1.
    so_dates-sign = 'I'.
    so_dates-option = 'BT'.
    APPEND so_dates.
  ENDIF.

上面一段代码实现的业务逻辑是判断是否是每个月一号运行的后台job，如果是后台运行的job，日期自动生成为上个月的1号和最后一天。