DO 4 TIMES VARYING word FROM text-word1 NEXT text-word2.

最新推荐文章于 2024-12-06 13:38:24 发布

原创最新推荐文章于 2024-12-06 13:38:24 发布 · 1.5w 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#numbers #character #c

SAP ABAP技术专栏收录该内容

34 篇文章

订阅专栏

本文展示了一个使用 ABAP 编程语言进行数据处理的例子，包括数字和字符型数据的操作。通过对一系列数值进行累加计算及字符字段的迭代处理，演示了基本的数据处理流程。

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

DATA: BEGIN OF numbers,
        one   TYPE p LENGTH 8 DECIMALS 0 VALUE 10,
        two   TYPE p LENGTH 8 DECIMALS 0 VALUE 20,
        three TYPE p LENGTH 8 DECIMALS 0 VALUE 30,
        four TYPE p LENGTH 8 DECIMALS 0 VALUE 40,
        five TYPE p LENGTH 8 DECIMALS 0 VALUE 50,
      END OF numbers,
      sum     TYPE i.

*SELECT-OPTIONS position FOR sum.

*ADD numbers-one THEN numbers-two
*                UNTIL numbers-five
*                ACCORDING TO position
*                GIVING sum.
*WRITE sum.

DATA: BEGIN OF text,
        word1 TYPE c LENGTH 4 VALUE '1234',
        word2 TYPE c LENGTH 4 VALUE 'BBBB',
        word3 TYPE c LENGTH 4 VALUE 'CCCC',
        word4 TYPE c LENGTH 4 VALUE 'DDDD',
      END OF text.

DATA: word TYPE c LENGTH 4,
      char1 TYPE c LENGTH 1,
      char2 TYPE c LENGTH 1,
      leng TYPE i.

FIELD-SYMBOLS <word> LIKE text-word1.
DATA inc TYPE i.

DESCRIBE FIELD text LENGTH leng IN CHARACTER MODE.
leng = leng / 2.
WRITE :leng,/.

DO leng TIMES VARYING char1 FROM text(1)
                            NEXT text+2(1) RANGE text
              VARYING char2 FROM text+1(1)
                            NEXT text+3(1) RANGE text.
* WRITE: char1, char2.
WRITE: char2.
char1 = 'x'.
char2 = 'y'.
ENDDO.

DO 4 TIMES VARYING word FROM text-word1 NEXT text-word2.
WRITE / word.
ENDDO.

DO.
inc = sy-index - 1.
ASSIGN text-word1 INCREMENT inc TO <word> RANGE text.
IF sy-subrc = 0.
* WRITE / <word>.
ELSE.
EXIT.
ENDIF.
ENDDO.