带有 VARYING 短语的 PERFORM

VARYING 短语根据某些规则增加或减少一个或多个标识或索引名的值。

更多信息,请参阅 “变式短语规则 ”。

format-4 VARYING 短语 PERFORM 语句可以连续搜索整个七维表。

格式 4: 带有 VARYING 短语的 PERFORM 语句

读取语法图跳过可视语法图PERFORMprocedure-name-1THROUGHTHRUprocedure-name-2短语 1短语 2短语 1imperative-statement-1END-PERFORM
短语 1
读取语法图跳过可视语法图WITHTESTBEFOREAFTERVARYINGidentifier-2index-name-1FROMidentifier-3index-name-2literal-1BYidentifier-4literal-2UNTILcondition-1
短语 2
读取语法图跳过可视语法图AFTERidentifier-5index-name-3FROMidentifier-6index-name-4literal-3短语 3
短语 3
读取语法图跳过可视语法图BYidentifier-7literal-4UNTILcondition-2

如果指定了 procedure-name-1 ,那么不得指定 imperative-statement-1 和 END-PERFORM 短语。 如果省略了 procedure-name-1 ,那么不得指定 AFTER 短语。

identifier-2identifier-7
必须命名数字基本项。 这些标识不能是窗口日期字段。
literal-1 literal-4
必须表示数字文字。
condition-1, condition-2
可以是条件表达式中描述的任何条件。 如果在启动 PERFORM 语句时条件为 true ,那么不会执行指定的过程。

在满足 UNTIL 短语中指定的条件之后,控制权将传递到 PERFORM 语句之后的下一个可执行语句。

如果 condition-1condition-2 中指定的任何操作数为下标,引用已修改或为函数标识,那么每次测试条件时都将对下标,引用修饰符或函数进行求值。

可以在可以指定数字数据项或字面值的任何位置使用浮点数据项和字面值。

当指示 TEST BEFORE 时,仅当 所有 指定的测试都失败时,才会在第一次执行之前测试所有指定的条件,并执行要执行的语句。 当指示 TEST AFTER 时,在测试任何条件之前,将至少执行一次要执行的语句。

如果既未指定 TEST BEFORE ,也未指定 TEST AFTER 短语,那么将假定 TEST BEFORE 短语。