APD ABAP例程范例：

最新推荐文章于 2022-12-07 20:35:16 发布

原创最新推荐文章于 2022-12-07 20:35:16 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

ABAP 专栏收录该内容

56 篇文章

订阅专栏

本文介绍了一系列 ABAP 程序中对于数据的处理流程，包括数据的读取、转换及更新等操作，并详细展示了如何根据不同条件进行数据处理。

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

1. ZAPD_ZIHREZ

DATA: ls_source TYPE y_source_fields,
        ls_target TYPE y_target_fields.

  LOOP AT it_source INTO ls_source  where KYF_0003 > 0 .
    MOVE-CORRESPONDING ls_source TO ls_target.
    APPEND ls_target TO et_target.
  ENDLOOP.

2. ZAR_SYBDS_APD

  DATA: ls_source TYPE y_source_fields,
        ls_target TYPE y_target_fields,
        i_day_in    TYPE sy-datum,
        i_result    TYPE sy-datum.

  LOOP AT it_source INTO ls_source.
    MOVE-CORRESPONDING ls_source TO ls_target.

    CLEAR i_day_in.
    SELECT SINGLE ZDATE FROM ZCONF_DAY INTO i_day_in.
    IF i_day_in IS NOT INITIAL AND I_DAY_IN NE '99991231'.
      ls_target-calmonth = i_day_in+0(6).
    ELSE.
      i_result = sy-datum.
      i_result+6(2) = '01'.
      i_result = i_result - 1.
      I_DAY_IN = I_RESULT.
      ls_target-calmonth = i_result+0(6).
    ENDIF.

    APPEND ls_target TO et_target.
  ENDLOOP.
  DELETE from /BIC/AZCFID08500 WHERE CALMONTH = I_DAY_IN+0(6).

3. ZAR_JMTG_APD

    APPEND ls_target TO et_target.
  ENDLOOP.
  DELETE from /BIC/AZCFID08200 WHERE CALMONTH = I_DAY_IN+0(6).

4.   DATA: ls_source TYPE y_source_fields,
        ls_target TYPE y_target_fields,
        i_day_in    TYPE sy-datum,
        i_result    TYPE sy-datum.

  LOOP AT it_source INTO ls_source.
    MOVE-CORRESPONDING ls_source TO ls_target.

    CLEAR i_day_in.
    SELECT SINGLE ZDATE FROM ZCONF_DAY INTO i_day_in.
    IF i_day_in IS NOT INITIAL AND I_DAY_IN NE '99991231'.
      ls_target-calmonth = i_day_in+0(6).
    ELSE.
      i_result = sy-datum.
      i_result+6(2) = '01'.
      i_result = i_result - 1.
      I_DAY_IN = I_RESULT.
      ls_target-calmonth = i_result+0(6).
    ENDIF.

    APPEND ls_target TO et_target.
  ENDLOOP.
  DELETE from /BIC/AZCFID08300 WHERE CALMONTH = I_DAY_IN+0(6).

  DATA: ls_source TYPE y_source_fields,
        ls_target TYPE y_target_fields,
        i_day_in    TYPE sy-datum,
        i_result    TYPE sy-datum.

  LOOP AT it_source INTO ls_source.
    MOVE-CORRESPONDING ls_source TO ls_target.

    CLEAR i_day_in.
    SELECT SINGLE ZDATE FROM ZCONF_DAY INTO i_day_in.
    IF i_day_in IS NOT INITIAL AND I_DAY_IN NE '99991231'.
      ls_target-calmonth = i_day_in+0(6).
    ELSE.
      i_result = sy-datum.
      i_result+6(2) = '01'.
      i_result = i_result - 1.
      I_DAY_IN = I_RESULT.
      ls_target-calmonth = i_result+0(6).
    ENDIF.

    APPEND ls_target TO et_target.
  ENDLOOP.
  IF I_DAY_IN+0(6) > '201606'.  "201607改从系统取数
  DELETE from /BIC/AZCFID08100 WHERE CALMONTH = I_DAY_IN+0(6).
  ENDIF.

  DATA: ls_source TYPE y_source_fields,
        i_day_in    TYPE sy-datum,
        ls_target TYPE y_target_fields,
        i_result    TYPE sy-datum.

  LOOP AT it_source INTO ls_source.
    MOVE-CORRESPONDING ls_source TO ls_target.
    APPEND ls_target TO et_target.
  ENDLOOP.

  CLEAR i_day_in.
  SELECT SINGLE ZDATE FROM ZCONF_DAY INTO i_day_in.
  IF i_day_in IS NOT INITIAL AND I_DAY_IN NE '99991231'.
  ELSE.
    i_result = sy-datum.
    i_result+6(2) = '01'.
    i_result = i_result - 1.
    I_DAY_IN = I_RESULT.
  ENDIF.
  DELETE from /BIC/AZIFID05200 WHERE CALMONTH = I_DAY_IN+0(6).