SAP的ABAP4语言中文培训教材第一部分第七章 控制 ABAP4 程序流7640.docx

《SAP的ABAP4语言中文培训教材第一部分第七章 控制 ABAP4 程序流7640.docx》由会员分享，可在线阅读，更多相关《SAP的ABAP4语言中文培训教材第一部分第七章 控制 ABAP4 程序流7640.docx（91页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、SAP AG第七章： 7: 1 1控制 ABAP/4 程序流概览内容ABAP/4中中 流控制的概概 念编程逻辑表 达达式比较所有的 字字段类型比较字符串 和和数字串二进制位结 构构的比较检查字段是 否否属于某一 范围检查初始值检查选择条 件件组合几个逻 辑辑表达式编程分支和 循循环使用 IF 的的条件分支使用 CASEE 的条件分分支使用 DO 的的无条件循 环使用 WHILLE 的条件件循环终止循环要根据一定 条条件执行程 序组件，或或 要将重复语语 句序列组合合 在循环中， 可以使用 AABAP/44 提供的用用于 控制程序流流 的标准关键键 字。ABAP/4 也包含重要要 的附加特征征

2、。ABAP/4 程序流可以以 内部控制和和 外部控制。 ABAP/4 程序流流的内 部控制和外 部控制之间 的差别在ABBAP/4中中 流控制的概概 念 (页 8) 中 解释。本节主要讨 论论内部流控 制。为此， 可使用其他他 编程语言（ 例如，C、 FORTRRAN、 PASCAAL 等等）中中熟 悉的标准控控 制关键字。下列主题描 述述2ABAP/44中 流控制的概概 念与其他高级 编编程语言一 样（如，C、 FORTRRAN 和 PASCCAL 等等等），ABAPP/4 提供供也用于 控制程序流流 的标准关键键 字。这些关关 键字用于_ 分支 (IF、CASE)_ 循环 (DO、WHIL

3、EE)然而，ABAPP/4 与其其他编程 语言不同之之 处在于其具具 有程序流的的 内部控制和 外部控制。_ 内部控制制 由上述标准准 关键字引导导 。在程序代代 码中对其进进 行定义。_ 外部控制制 由事件引导导 。事件由 AABAP/44 程序（系系统 程序或用户户 程序）或者者 交互式用户户 输入（例如如 ，使用鼠标标 在屏幕上单单 击）生成。 系统不必按按 ABAPP/4 程序序中列出 的顺序对进进 行语句处理理 。这使得 AABAP/44 成为事件件驱 动编程语言言 ，类似于 MMicrossoft 的的Visuaal Bassic。时间事件和 AABAP/44 程序的连连接 由事件

4、关键键 字提供。ABBAP/4 程序中的每每 个语句都属属 于特别的事事 件关键字。 即使在程序序 中没有指定定 任何事件关关 键字，所有有 语句都自动动 归属于标准准 事件关键字字 （STARTT-OF-SSELECTTION） ，与程序中中 事件语句的的 次序完全不不 相干。所有属于某 一一特定事件 关键字的语语 句形成一个个 处理块。处处 理块是一个个 在事件发生生 时执行的模模 块。处理块块 内的程序流流 依赖于内部 控制。系统 按顺序处理理 语句，或按按 照前面提到到 的标准关键键 字定义的顺顺 序处理。ABAP/4 程序常规结结 构如下：假设当用户 选选择一行后 ，生成列表表 且提

5、供一些些 细分设备的的 报表程序必必 须作出反应应 （详细信息息 ，参见 交互列表）。需需要为 该事件处理理 的代码必须须 插入事件关关 键字 AT LINE-SELECCTION 之后。AT LINEE-SELEECTIONN. MOVEE X TO FLLAG. .无论何时用 户户通过单击 鼠标或按 F2 键在列表中中 选择一个项项 目时，AT LINE-SELECCTION 和下一个事事 件关键字之之 间的所有语语 句将被处理理关于外部控 制制的详细信 息，如事件件 及其如何与与 ABAPP/4 程序序相互作 用的信息， 参见 C通过事件控控制 ABAAP/4 程程序流。该节说明如 何何

6、使用外部 控制控制处 理块内的程程 序流。要控制 ABAAP/4 程程序中的内 部流，请遵遵 循结构化编编 程原则并将将 程序模块划划 分为单个逻逻 辑相关语句句 块（这些组组 成控制结构构 ）。其中的的 每个语句块块 都执行主任任 务的一部分分 。要使程序易 于于阅读，应 该缩排控制制 结构中的语语 句块。出于于 布局需要， 可以使用 AABAP/44 编辑器功功能 “编辑 - 插入语句.” 和“程序 - 整齐打印程程 序”(详细 信息，参见见 ABAP/4 程序布布局 (页 26)。可以用 IF、CASE、 DO 和 WHILLE 之类的的关键 字控制处理理 块中不同语语 句之间的程程 序

7、流。这些些 语句允许编编 制条件和无无 条件的分支支 和循环。条条 件使用逻辑辑 表达式，可可 以是真，也也 可以为假。6编程逻辑表表 达式使用条件控 制制程序中的 内部流。要要 用公式指定定 条件，请使使 用比较数据据 字段的逻辑辑 表达式，如如 下所示：语法 . .该表达式比 较较两个字段 。可能为真真 ，也可能为 假。在带关关 键字 IF、 CHECCK 和 WHILLE 的条件件语句 中使用逻辑辑 表达式。根据操作数 和 的数据类类型 ，可以使用用 不同的逻辑辑 运算符。允允 许进行：除上述比较 之之外，还可 以执行测试试 以检查数据据 字段是否完完 全满足一定定 条件。可以以 使用这

8、些测测 试：另外，可以 将将几个逻辑 表达式组合合 为一个简单单 逻辑表达式式 。7比较所有的的 字段类型要比较所有 的的字段类型 ，可以在逻逻 辑表达式中中 使用下列运运 算符：含 义EQ等于 =等于NE不 等于不 等于不 等于LT小 于小于LE小 于等于大于GE大 于等于=大 于等于操作数可以 是是数据库字 段、内部字字 段、文字或或 常数。除基本字段 外外，还可以 将结构数据据 类型和上表表 中的运算符符 结合起来作作 为操作数。 字段串逐个个 组件进行比比 较，嵌套的的 结构分为基基 本的字段。 关于比较内内 表的详细信信 息，参见 比较内表 (页 Errorr! Nott a vaa

9、lid llink.) 。如果有意义 ，可可以对不 同数据类型型 的字段进行行 比较。如果果 字段可转换换 ，就可以进进 行比较。在在 比较之前， 系统将按照照 下列层次规规 则执行自动动 类型转换（ 参见 键入转换 (页 636) ）：1.如果 操操作数之一 是浮点数（ 类型 F），则系系 统将其它操操 作数转换为为 类型 F。2.如果 操操作数之一 是压缩字段段 （类型 P），则系系 统将其它操操 作数转换为为 类型 P。3.如果 操操作数之一 是日期字段段 （类型 D）或时间间 字段（类型型 T），则系系 统将其它操操 作数转换为为 类型 D 或 T。不支持持 日期和时间间 字段之间的的

10、 比较，这会会 导致程序中中 断。4.如果 操操作数之一 是字符字段段 （类型 C）且其它它 操作数是十十 六进制字段段 （类型 X），则系系 统将类型 XX 的操作数数转 换为类型 CC。5.如果 操操作数之一 是字符字段段 （类型 C），其它它 操作数为数数 字字段（类类 型 N），则系系 统将这两种种 操作数都转转 换为类型 PP。DATA: FF TTYPE FF VALUUE 1000.00, P TYPPE P VVALUE 50.000 DEECIMALLS 2, I TYPE I VALLUE 330.00.WRITE The ffollowwing llogicaal exp

11、pressiions aare trrue:.IF F = P . WRIITE: / F,=,P.ELSE. WRRITE: / F,= 50.000 30 NNE 550.00这里，在 IFF 语句中使使用 两个逻辑表表 达式。如果果 逻辑表达式式 为真，则屏屏 幕上显示出出 来。如果逻逻 辑表达式为为 假，则将相相 反表达式显显 示在屏幕上上 。10比较字符串串 和数字串要比较字符 串串（类型 CC）和数字 文本（类型型 N），可以以 在逻辑表达达 式中使用下下 列运算符。含 义CO仅包 含CN不仅 包含CA包 含任何NA不 包含任何CS包 含字符串NS不 包含字符串串 CP包含模 式N

12、P不包 含模式因为除类型 NN 和 C 外，系系统不 能执行任何何 其它类型转转 换，所以， 在进行包含含 这些运算之之 一的比较时时 ，操作数应应 该是类型 NN 或 C。运算符的功 能能如下：CO (仅包含含)如果 仅包含 中的字符符， 则逻辑表达达 式 COO 为真。该比 较较区分大小 写，并包括括 尾部空格。 如果比较结结 果为真，则则 系统字段 SSY-FDPPOS 包括括 的长度。如如 果为假，则则 SY-FFDPOS 包含 中第一个个未 在 内出现的的字 符的偏移量量 。CN (不仅包包含 )如果 还包含 之外的其其他 字符，则逻逻 辑表达式 CNN 为真。该比 较较区分大小 写

13、，并包括括 尾部空格。 如果比较结结 果为真，则则 系统字段 SSY-FDPPOS 包含含 中第一个个未 同时在 中出现的的字 符的偏移量量 。如果为假假 ，SY-FDDPOS 包包含 的长度。CA (包含任任何 )如果 至少包含含 的一个字字符 ，则逻辑表表 达式 CAA 为真。该比 较较区分大小 写。如果比比 较结果为真真 ，则系统字字 段 SY-FFDPOS 包含 中第一个个也 在 中出现的的字 符的偏移量量 。如果为假假 ，SY-FDDPOS 包包含 的长度。NA (不包含含任 何)如果 不包含 的任何字字符 ，则逻辑表表 达式 NAA 为真。该比 较较区分大小 写。如果比比 较结果为

14、真真 ，则系统字字 段 SY-FFDPOS 包含 的 长度。如果果 为假，则 SSY-FDPPOS 包含含 中在 内出现的的第 一个字符的的 偏移量。CS (包含字字符 串)如果 包含字符符串 ， 则逻辑表达达 式 CSS 为真。忽略 尾尾部空格并 且比较不区 分大小写。 如果比较结结 果为真，则则 系统字段 SSY-FDPPOS 包含含 在 中的偏移移量 。如果为假假 ，SY-FDDPOS 包包含 的长度。NS (不包含含字 符串)如果 不包含字字符 串 ， 则逻辑表达达 式 NSS 为真。忽略 尾尾部空格且 比较不区分 大小写。如如 果比较为真真 ，系统字段段 SY-FFDPOS 包含 的

15、长度。如如 果为假，系系 统字段 SYY-FDPOOS 包含 在 中的偏移移量 。CP (包含模模式 )如果 包含模式式 ， 则逻辑表达达 式 CPP 为真。如果 属于类型型 C，则可以以 在 中使用下下列 通配符：_ * 用于于任何字 符串_ + 用于于任何单 个字符忽略尾部空 格格且比较不 区分大小写写 。如果比较较 结果为真， 系统字段 SSY-FDPPOS 包含含 在 中的偏移移量 。如果为假假 ，SY-FDDPOS 包包含 的长度。如果要对 中的特殊殊字 符进行比较较 ，请将换码码 字符 # 放到其其前面 。可以使用用 换码字符 # 指定_ 大小写字字 符_ 通配符 *(输输 入 #

16、*)_ 通配符 + (输入 #+)_ 换码符号号 本身 (输入 #)_ 字符串结结 尾的空格 (输入 #_)NP (不包含含模 式)如果 不包含模模式 ， 则逻辑表达达 式 NPP 为真。在中 ，可以使用用 与 CP 相同同的通配 符和换码字字 符。忽略尾部空 格格且比较不 区分大小写写 。如果比较较 结果为真， 则系统字段段 SY-FFDPOS 包含 . 的长度度，如 果为假，SYY-FDPOOS 包含 在 中的偏移移量 。DATA: FF1(5) TYPE C VALLUE , FF2(5) TYPE C VALLUE .IF F1 F2. WRRITE: / CComparrison t

17、rue, SY-FFDPOS=, SYY-FDPOOS.ELSSE. WRITEE: / Compparisoon fallse, SSY-FDPPOS=, SY-FFDPOS.ENDIFF.下表列出该 程程序的执行 结果，取决决 于所用的运运 算符和 F1 / F2 字段。ResultSY-FDPOOSBD COABCD 真5BD COABCDE假 2ABC12CNABCD 真3ABABCCNABCD 假5ABcdeCABd 真1ABcdeCAbD 假5ABAB NAAB 假0ababaNAAB 真5ABcdeCSbC 真1ABcdeCSce 假5ABcdeNSbC 假1ABcdeNSce

18、真5ABcdeCP*b*真 1ABcdeCP*#b*假 5ABcdeNP*b*假 1ABcdeNP*#b*真 517二进制位结结 构的比较要将逻辑表 达达式初始操 作数第一字字 节的二进制制 位结构与第第 二操作数的的 进行比较， 请使用下列列 操作符。含 义O二进制 位是 1Z二进制 位是 0M混合二 进制位位第二 操作数的的长 度应为一个个 字节。没有必要对 第第二操作数 使用长度为为 1 的十六六进制 字段（类型型 X），但却却 较方便，因因 为其长度为为 一个字节且且 数字值直接接 与二进制位位 结构相关。操作符功能 如如下：O (二进制位位 是 1)如果 中二进进制位 是 1 的位置

19、置，在 中是 1，则逻辑辑 表达式 O 为真。Z (二进制位位 是0)如果 中二进进制位 是 1 的位置置，在 中是 0，则逻辑辑 表达式 Z 为真。M (混合二进进 制位)如果从 中二二进制位 是 1 的位置置起， 中至至少一个 是 1，一个是是 0，则逻辑辑 表达式 M 为真。DATA: CC VALUUE C, HEXXDEC TTYPE XX, I TTYPE II.HEXDEC = 0.DO 256 TIMESS. I = HEXDEEC. IF CC O HEEXDEC. WRITTE: / HEXDEEC, I. ENNDIF. HEXDDEC = HEXDEEC + 11.EN

20、DDO.产生下列输 出出：00 001 102 203 340 66441 66542 66643 667这里，使用 运运算符 O 将字符C 的二进制位位 结构与所有有 0与 FF（10 进制为为 255）之之 间的 16 进制数进行行 比较。HEXXDEC 的的10 进制值值 I ，在HEXDDEC 分配配到I 期间，通通过 使用自动类类 型转换确定定 。如果比较较 结果为真， 则在屏幕上上 显式 16 进制数及其其 10 进制制值。下 表列出这些些 数的二进制制 位结构。16 进制10 进制二进制 位结构构000000000000011000000001022000000110033000

21、0001114064010000000416501000000142660100001104367010000111字 符C的的 二进制位结结 构由其 ASSCII 码码 67 为当当前硬件 平台进行定定 义。与用户户 看到的一样样 ，列表输出出 中出现的数数 字，填写 11 的二进制制位 位置与 677 的二进制制位 结构一样。21检查字段是是 否属于某一一 范围要检查值是 否否属于特定 范围，请使使 用下列带有有 BETWWEEN 参参数的逻辑 表达式：语法. BEETWEENN ANND .如果 在 和 之间的范范围 内发生，则 表达式为真真 。它是下列列 逻辑表达式式 的短格式：IF

22、GE ANND LE .DATA: NNUMBERR TYPEE I, FFLAG.NUMBER = .IF NUMBBER BEETWEENN 3 ANND 7. FLAAG = X.ELLSE. FLAGG = .ENDDIF.这里，如果 NNUMBERR 的内容在在 3 和 7 之间出出现， 字段 FLAAG 设置为为“X” 。23检查初始值值要检查字段 是是否设置为 初始值，请 如下使用带带 有 IS IINITIAAL 参数的的逻辑 表达式。语法. IS INITIIAL .如果 包含本身类类 型的初始值值 ，则表达式 为真。通常常 情况下，任 何字段，基 本的或结构构 化的（字符

23、串和内表） ，在 CLEAAR 语句执行行后 ，都包含其 初始值（参 见 重置缺省值值 (页 610) ）。DATA FLLAG VAALUE X. IF FLAGG IS IINITIAAL. WRITEE / FFlag iis iniitial.ELSEE. WWRITE / Fllag iss not initiial.EENDIF.CLEAR FFLAG.IF FLAGG IS IINITIAAL. WRITEE / FFlag iis iniitial.ELSEE. WWRITE / Fllag iss not initiial.EENDIF.这产生如下 输输出：Flag iss

24、not initiialFlag iss inittial.这里，DATAA 语句之后后， 字符串 FLLAG 不包包含初始 值，因为用用 VALUUE 参数设设置为 X。执 行 CLEAAR 语句之之后， 将其重置为为 初始值。24检查选择条条 件要检查字段 内内容是否与 选择表中的的 选择条件匹匹 配，可以如如 下使用带有有 IN 参数数的逻辑 表达式：语法. IN .如果字段 内容的的符合 选择表 中的条条件， 则表达式为为 真。关于选择条 件件的详细信 息，参见 使用选择标标准。关于逻辑表 达达式中检查 选择条件的的 详细信息， 包括示例， 参见 使用逻辑表表达式中的选选择表。25组合

25、几个个逻 辑表达式通过使用逻 辑辑连接运算 符 AND、OR 和 NOT，可可 以将几个逻逻 辑表达式组组 合为单个表表 达式： _ 要将几几个 逻辑表达式式 组合为单个个 表达式，且且 该表达式仅仅 当所有组件件 表达式为真真 时才为真， 则表达式之之 间要用 AND 连接接。_ 要将几个个 逻辑表达式式 组合为单个个 表达式，且且 只要其中一一 个组件表达达 式为真时， 该表达式即即 为真，则表表 达式之间要要 用 OR 连接接。_ 要转化逻逻 辑表达式的的 结果，请在在 其前面指定定 NOT。NOT 优先于于 AND，AND 优先先于 OR。但是是 ，可以用任任 何括弧组合合 指定处理顺

26、顺 序。由于 AABAP/44 将括弧解解释 为单字，前前 面或后面必必 须至少有一一 个空格。ABAP/4 从左到右处处 理逻辑表达达 式。如果确确 定组件表达达 式之一是真真 或假，就不不 再执行该组组 件中其余的的 比较或检查查 。这意味着着 采取这种方方 法组织逻辑辑 表达式可以以 提高性能， 就是将经常常 为假的比较较 放置在 ANND 链的开开头， 而将费时的的 比较，如字字 符串查找放放 等到最后。DATA: FF TTYPE FF VALUUE 1000.00, N(33) TYPPE N VVALUE 123, C(33) TYPPE C VVALUE 456.WRITE T

27、he ffollowwing llogicaal exppressiion iss truee:.IF ( C LT N ) ANDD ( NN GT FF ). WRITTE: / (,CC,lt,N,) AND (,N,gt,F,).ELSEE. WWRITE: / (,C,ge,NN,) OOR (,N,lee,F,).ENNDIF.这产生如下 输输出：下列逻辑表达式式为真： ( 456 ge 1223 ) OOR ( 1123 lee 1.000000000000000000EE+02 )在本例中， 在在 IF 语句句中使用 逻辑表达式式 。如果逻辑辑 表达式为真真 ，则将其在在 屏幕

28、上显示示 出来。如果果 为假，则屏屏 幕上出现相相 反的表达式式 。27编程分支支和 循环可以在程序 中中定义条件 和无条件分分 支和循环。 为此，ABAAP/4 提提供了几个 在下列主题题 中描述的语语 句。分支循环27使用 IF 的条件分支支IF 语句允许许依 据条件将程程 序流转到特特 定的语句块块 中。该语句句 块包括 IFF 语句及其其后 面的 ELSSEIF、 ELSE 或 ENDIIF 之间的的所有 命令。语法IF . ELSEEIF . ELSEIIF . .ELSEE. ENDIIF.如果第一个 条条件是真， 系统将执行行 所有语句直直 到第一个语语 句块结束， 然后继续处处

29、 理 ENDIIF 语句之之后的 程序。要采采 用选择性条条 件，可以使使 用 ELSEEIF 语句句。如果 第一个条件件 是假，系统统 使用与 IFF 语句一样样的 方式处理后后 面的 ELSSEIF 语语句。如果 IF 或 ELSEEIF 条件件都为假 ，则执行 EELSE 开开始的语句 块。最后的的 语句块必须须 用 ENDIIF 结束。要用公式表 达达 IF 和 ELSEEIF 语句句中的条 件，可以使使 用任何 编程逻辑表表 达式 (页 8) 描述的逻逻辑 表达式。ABAP/4 允许无限地地 嵌套 IF - ENDDIF 语句句块，但 是必须在相相 同的处理块块 中终止。换换 句话说

30、，就就 是 IF - ENDIIF 块不能能包含 事件关键字字 。DATA: TTEXT1(30) VVALUE Thiss is tthe fiirst ttext, TEXTT2(30) VALUUE Thhis iss the seconnd texxt, TTEXT3(30) VVALUE Thiss is tthe thhird ttext, STRIING(5) VALUUE ecco.IF TEXTT1 CS STRINNG. WRITEE / CCondittion 11 is ffulfillled.ELSEIIF TEXXT2 CSS STRIING. WRITTE / C

31、ondiition 2 is fulfiilled.ELSEEIF TEEXT3 CCS STRRING. WRIITE / Condditionn 3 iss fulffilledd.ELSSE. WRITEE / NNo connditioon is fulfiilled.ENDIIF.产生如下输 出出：Conditiion 2 is fuulfillled.这里，第二 个个逻辑表达 式 TEXTT2 CS STRINNG 是真，因因为 字符串“eco” 存在于 TEEXT2 中中。30使用 CASSE 的条件件分支要根据特殊 数数据字段的 内容执行不不 同的语句块块 ，可以如下下 使用

32、CASSE 语句：语法CASE . WHEN . WWHEN . WWHEN . WWHEN . . WWHEN OOTHERSS. ENDCCASE.系统执行 WHHEN 语句句之后的 语句块，如如 果 内容等于 的内容，且且 继续处理 EENDCASSE 语句后后面的 语句。如果果 的内容容不等 于 的内容，则则 执行选项 WWHEN OOTHERSS 后面的语语句 块。最后的的 语句块必须须 用 ENDCCASE 结结束。使用 CASEE 的条件分分支 是带 IF 的类似处理理 的短格式：IF = . ELSEEIF = . EELSEIFF = . ELSEEIF = . .ELLSE

33、. ENNDIF.在 ABAP/4 中，可可以嵌 套 CASEE - ENNDCASEE 块，且可可以 与 IF - ENDIIF 结合使使用， 但必须在同同 一处理块中中 终止。DATA: TTEXT1 VALLUE XX, TEEXT2 VALUUE Y, TEXXT3 VALUEE Z, STRIING VVALUE A.CASE STTRING. WHEEN TEXXT1. WRRITE: / Sttring is, TEXT11. WHHEN TEEXT2. WWRITE: / SStringg is, TEXTT2. WWHEN TTEXT3. WRITEE: / Strinng

34、is, TEXXT3. WHEN OTHERRS. WRIITE: / Strring iis nott, TEEXT1, TEXT22, TEXXT3.ENNDCASEE.产生如下输 出出：String is noot X YY Z这里，执行 WWHEN OOTHERSS 后面的语语句 块，因为 SSTRINGG 的内容“A” 不等于“X” 、“Y”或 “Z”，。33使用 DO 的无条件循循 环如果想要多 次次执行语句 块，则可以以 如下使用 DDO 语句编编程循 环：语法DO TIMEES VVARYINNG FROMM NEEXT . ENDDO.在发现 EXIIT、 STOPP 或 R

35、EJEECT 语句句之前， 系统继续执执 行由 DO 引导、ENDDDO 结束束的语句 块（参见 终止循环 (页 8) ）。可以使用 TIIMES 选选项限制循 环次数。 可以是是文字 或变量。如如 果 是 0 或负数数，系 统不执行该该 循环。系统字段 SYY-INDEEX 中包含含已处 理过的循环环 次数。使用 DO 语语句时要避 免死循环。 如果不使用用 TIMEES 选项，则则在 语句块中至至 少应包含一一 个 EXITT、 STOP 或 REJEECT 语句句，以便 系统能够退退 出循环。本例显示 DOO 循环的基基本 格式。DO.WRITE SSY-INDDEX. IF SSY-I

36、NDDEX = 3. EXXIT. ENDIIF.ENDDO.产生如下输 出出： 1 2 33这里，处理 33 次循环，然然 后在 EXIIT 语句后后退出 循环。可以任意嵌 套套 DO 循环环，也可 以与其他循循 环组合使用用 。本例显示 2 个嵌套循环环 ，都使用 TTIMES 选项。DO 2 TIIMES. WRITTE SY-INDEXX. SSKIP. DO 33 TIMEES. WWRITE SY-INNDEX. ENDDDO. SKIPP.ENDDO.产生如下输 出出： 1 1 2 33 2 1 2 33外部循环执 行行 2 次。每每次执 行外部循环环 时，内部循循 环都执行 3

37、3 次。注意意系 统字段 SYY-INDEEX 记录每每个循 环各自的循循 环次数。可以使用 VAARYINGG 选项在每每次 循环中给变变 量 重新赋值。 、 、 、 . 必需需是内存 中类型相同同 和长度相等等 的一系列等等 距字段。第第 一次循环中中 ，将 分配给 ，第 二次循环中中 ，将 分配给 ，以 此类推。可可 以在一个 DDO 语句中中使用 多个 VARRYING 选项。如果在 DO 循环中改变变 控制变量 ，则 系统将自动动 改变相应的的 字段 。应保证循环 次次数不超过 涉及到的变变 量 、 、 的数量。该示例说明 如如何在 DOO 循环中使使用 VARRYING 选项。DATA: BBEGIN OF TEEXT, WWORD1(4) VAALUE This, WORRD2(4) VALUUE iss, WOORD3(44) VALLUE aa, WOORD4(44) VALLUE lloop, END OF TEEXT.DAATA: SSTRINGG1(4), STRIING2(44).DO 4 TIIMES VVARYINNG STRRING1 FROM TEXT-WORD11 NEXTT TEXTT-WORDD2. WRITEE STRIING1. IF STRINNG1 = is. STRIING1 = wass. ENDIFF.