搭配使用 WHEN OTHER 詞組與 EVALUATE 陳述式 使用此規則,為不包含WHEN OTHER詞組的EVALUATE陳述式加上旗標。 在限定範圍內使用 CONTINUE 而非 NEXT SENTENCE 使用此規則,為位於具有明確範圍終止字元之任何陳述式範圍內的NEXT SENTENCE陳述式加上旗標。 例如,如果NEXT SENTENCE陳述式位於IF陳述式與其對應的END-IF詞...
使用此规则来标记不包含 WHEN OTHER 短语的 EVALUATE 语句。 在有作用域的范围中使用 CONTINUE 而不是 NEXT SENTENCE 使用此规则来标记处于任何具有显式作用域终结符的语句的作用域中的 NEXT SENTENCE 语句。 例如,如果 NEXT SENTENCE 语句位于 IF 语句与其对应的 END-IF 短语之间,那么将标记该语句。 具有显式作用...
要BREAK,一旦匹配就跳出EVALUATE语句了 Q19)Whatarethedifferentformof EVALUATEtatement? A19) EVALUATEEVALUATESQLCODEALSOFILE-STATUS WHENA=BANDC=DWHEN100ALSO’00’ imperativetmtimperativetmt WHEN(D+X)/Y=4WHEN-305ALSO’32’ imperativetmtimperativetmt WHENOTHERWHENOTHER imperativetmtimperativetmt END-EVALUATE...
从程序看是不应该执行CONTINUE。是否是数据问题。确定A是1？入力只有一条数据？或者说只执行了一次EVALUATE。有可能是执行了两次，第一次满足1，然后给9了，第二次不满足但是第一次的结果没有清空，B依然是9。或者把整个程序贴出来看看
[END-EVALUATE] 首先得到A的结果,和WHEN语句的参数比较,如果和B相等,就执行B后的操作,执行完了不再执行后面的WHEN语句。如果不等就执行下一条WHEN语句。如果没有相等的就执行WHEN OTHER语句。 EVALUATE A ALSO B WHEN C ALSO D ... WHEN E ALSO F ... ...
- GSQ:怎么跳出一条EVALUATE语句A:象18题目说旳那样,一旦匹配了某一种“WHEN“语句就自动跳出了,不需要什么额外旳代码来跳出Q21)In an EVALUATE statement, can I give a complex condition on a when clause?Q:在一种EVAL 15、UATE语句旳某个WHEN分支中能否再插入复杂旳状况(也就是嵌套)A:固然可以,当多种...
最后结果是:1 比较完满足A>0之后就END了,不会比较B
默认值为NOSSRANGEq18)what is the use of evaluate statement?-GS问:evaluate语句起什么作用答:EVALUATE相当于CASE语句(多个开关语句,您熟悉c)。但是,EVALUATE不需要中断。如果匹配,则退出evaluate语句q20)how do you come out of an evaluate statement?-GS问:如何从EVALUATE语句中跳出来答:如标题18所示,“WHEN...
因此用CONTINUE比用NEXT SENTENCE安全(虽然忘掉写‘.’也没关于系)。 Q62:COBOL II中EVALUATE相称于取代了COBOL中什么构造 A62:EVALUATE相称于取代了COBOL中IF THEN ELSE嵌套语句 Q63:’above the line’和‘below the line’有什么意义 A63:在IBM推出MVS/XA体系之前,80年代程序虚拟存储都限制在16 megs.程序以...
MOVE 'NO' TO FIELD-ERROR-SWITCH MOVE '3077.B22' TO PART-NUMBER-CHECK EVALUATE P-N-NUM-1 WHEN 00001 THRU 99999 CONTINUE WHEN OTHER MOVE 'YES' TO FIELD-ERROR-SWITCH END-EVALUATE为什么 FIELD-ERROR-SWITCH不是'YES'？ COBOL演员 在申请之前，00001和99999成为他们的 ...