如果该语句出现在 IF 中 ...COBOL 语句的 THEN 集合,省略结束句点以避免无意中结束 IF 语句。 注释: 可以在 SQL 语句中包含 COBOL 注释行 (* in field 7) ,只要可以使用空白。 不能在关键字 EXEC 和 SQLIMS 之间包含 COBOL 注释行。 IMS 协处理器根据依赖于 WITH 调试方式设置的 COBOL 规则来处理调试...
PERFORM [WITH TEST BEFORE/AFTER] VARYING A FROM B BY C UNTIL CONDITION1 过程语句 END-PERFORM. IF语句 IF CONDITION THEN STATEMENTS1/NEXT SENTENCE ELSE STATEMENTS2 END-IF/NEXT SENTENCE/ENDIF NEXT SENTENCE将跳出IF操作语句执行下一条语句。 IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个...
88 NEW-ENGLAND VALUES ARE "1","2","3","4","5". IF NEW-ENGLAND ... then do something 过程部(23~30行),包含构成程序的过程性语句。 带DECLARATIVES的过程部。有些程序用特殊的USE语句表示遇到特殊条件时要执行的过程, 如发生I/O错误时。 USE语句组合在一起,放在过程部开头,由关键字DECLARATIVES...
IF语句 IF CONDITION THEN STATEMENTS1/NEXT SENTENCE ELSE STATEMENTS2 END-IF/NEXT SENTENCE/ENDIF NEXT SENTENCE将跳出IF操作语句执行下一条语句。 IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个嵌套的IF语句,可以使用END-IF或者NEXT SENTENCE.如 IF A IF B END-IF ELSE C END-IF.或者 IF A...
10、IF IFANOT0 THEN ………. ELSE CONTINUE END-IF. ELSE可省略,如果THEN或ELSE中没有语句,是空的,则要加上CONTINUE. 11.OPEN 打开文件,文件读写必须先打开。文件要在ENVIRONMENTDIVISION,INPUT-OUTPUTSECTION.FILE-CONTROL.中分配外部装置。 如: ENVIRONMENT...
IF NEW-ENGLAND ... then do something 过程部(23~30行),包含构成程序的过程性语句。 带DECLARATIVES的过程部。有些程序用特殊的USE语句表示遇到特殊条件时要执行的过程, 如发生I/O错误时。 USE语句组合在一起,放在过程部开头,由关键字DECLARATIVES和END DECLARATIVES限定。
五.条件语句(IF) ???当需要根据给出的某些条件是否满足来决定应执行哪一部分语句时,可以使用条件语句IF. ???其一般格式为: IFANOT0 THEN ………. ELSE CONTINUE END-IF. 如果THEN或ELSE中没有语句,是空的,则要加上CONTINUE. ??? ?COBOL关系运算...
IF 语句 IF CONDITION THEN STATEMENTS1/NEXT SENTENCE ELSE STATEMENTS2 END-IF/NEXT SENTENCE/ENDIF NEXT SENTENCE 将跳出IF 操作语句执行下一条语句。 IF 语句中不要使用.句号。.句号将结束所有IF 语句。要结束一个嵌套的IF 语句,可以使用END-IF 或者NEXT SENTENCE.如 ...
IF语句IFCONDITIONTHENSTATEMENTS1/NEXTSENTENCEELSESTATEMENTS2END-IF/NEXTSENTENCE/ENDIFNEXTSENTENCE将跳出IF操作语句执行下一条语句。IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个嵌套的IF语句,可以使用END-IF或者NEXTSENTENCE.如IFAIFBEND-IFELSECEND-IF.或者...
INSPECTACONVERTING’EL’TO’AX’===〉INSPECTAREPLACINGALL‘E’BY‘A’,REPLACINGALL‘L’BY‘X’.九.条件语句(IF语句)IF条件THEN语句组1ELSE语句组2END-IF1.关系表达式条件关系运算符:>,<,=,>=,<=,NOT>,NOT<,NOT=,NOT>=,NOT<=IFA>=ZERO…IFBNOTEQUALTO1…IF(0.03*C)<D…IFNAMENOT=’WANG’...