开发笔记-内表指针赋值

最新推荐文章于 2024-09-10 19:58:36 发布

Nathan_Sun

最新推荐文章于 2024-09-10 19:58:36 发布

阅读量654

点赞数

分类专栏：开发笔记

本文链接：https://blog.youkuaiyun.com/Sundam/article/details/118731544

版权

开发笔记专栏收录该内容

94 篇文章

订阅专栏

  RANGES: S_RSTGR  FOR  BSEG-RSTGR  .      "付款原因代码
  RANGES: S_STBLG  FOR  BKPF-STBLG  .      "冲销凭证号

  DATA: LV_FIELDNAME  TYPE CHAR20.
  DATA: LV_FIELDNAME1 TYPE CHAR20.
  DATA: LV_FIELDNAME2 TYPE CHAR20.

  FIELD-SYMBOLS: <FR> , <F1> , <F2> , <F3> , <F4> .
  FIELD-SYMBOLS: <FLT> TYPE STANDARD TABLE.
  FIELD-SYMBOLS: <FLI> ,<FLI_CP> .
  FIELD-SYMBOLS: <FL> , <FH> .
  DATA: LV_DATA TYPE REF TO DATA.
  DATA: ZTFIR139_SC TYPE TABLE OF ZTFIR139_SC WITH HEADER LINE .

  P_BUKRS = P_BUKRS_IN .

  CLEAR ZTFIR139_SC[].
  SELECT * INTO CORRESPONDING FIELDS OF TABLE ZTFIR139_SC[] FROM ZTFIR139_SC
    WHERE ZRANGES <> ''
    .

  LOOP AT ZTFIR139_SC.
    CLEAR LV_FIELDNAME .
    CLEAR LV_FIELDNAME1 .
    LV_FIELDNAME = ZTFIR139_SC-ZRANGES && '_LOW'.
    LV_FIELDNAME1 = ZTFIR139_SC-ZRANGES && '_HIGH'.
    ASSIGN (LV_FIELDNAME) TO <FL> .
    ASSIGN (LV_FIELDNAME1) TO <FH> .
    IF <FL> IS NOT INITIAL.
      CLEAR LV_FIELDNAME2.
      LV_FIELDNAME2 = ZTFIR139_SC-ZRANGES && '[]'.
      ASSIGN (LV_FIELDNAME2) TO <FLT> .
      CREATE DATA LV_DATA LIKE LINE OF <FLT>.
      ASSIGN LV_DATA->* TO <FLI>.
      ASSIGN (ZTFIR139_SC-ZRANGES) TO <FR> .
      ASSIGN COMPONENT 1 OF STRUCTURE <FR> TO <F1> .
      ASSIGN COMPONENT 2 OF STRUCTURE <FR> TO <F2> .
      ASSIGN COMPONENT 3 OF STRUCTURE <FR> TO <F3> .
      ASSIGN COMPONENT 4 OF STRUCTURE <FR> TO <F4> .
      IF <FH> IS NOT INITIAL.
        <F1> = 'I'.
        <F2> = 'BT'.
        <F3> = <FL> .
        <F4> = <FH> .
      ELSE.
        <F1>   = 'I'.
        IF <FL> CS '*'.
          <F2> = 'CP'.
        ELSE.
          <F2> = 'EQ'.
        ENDIF.
        <F3>   = <FL> .
      ENDIF.
      ASSIGN COMPONENT 1 OF STRUCTURE <FLI> TO <FLI_CP> .
      <FLI_CP> = <F1> .
      ASSIGN COMPONENT 2 OF STRUCTURE <FLI> TO <FLI_CP> .
      <FLI_CP> = <F2> .
      ASSIGN COMPONENT 3 OF STRUCTURE <FLI> TO <FLI_CP> .
      <FLI_CP> = <F3> .
      ASSIGN COMPONENT 4 OF STRUCTURE <FLI> TO <FLI_CP> .
      <FLI_CP> = <F4> .
      APPEND <FLI> TO <FLT> .
    ENDIF.
    CLEAR ZTFIR139_SC .
  ENDLOOP.