FLAG

缺省值为: FLAG(I,I)

缩写为: F | NOF

x 和 y 可以是 I， W， E， S或 U。

使用 FLAG(x,y) 在源列表末尾生成严重性级别为 x 或更高的错误的诊断消息，并将严重性为 y 及更高的错误消息直接嵌入到源列表中。 为 y 编码的严重性不得低于为 x编码的严重性。 要使用 FLAG(x,y)，还必须指定 SOURCE 编译器选项。

通过在指向消息代码的箭头中嵌入语句号来设置源列表中的错误消息。 消息代码后跟消息文本。 例如：

  000413     MOVE CORR WS-DATE TO HEADER-DATE

==000413==>    IGYPS2121-S     " WS-DATE " was not defined as a data-name.  . . .

当 FLAG(x,y) 生效时， 大多数 严重性为 y 及以上的消息会嵌入到导致消息的行之后的列表中。 带有 IGYCB 前缀的消息将永远不会嵌入到源中。 (请参阅下面的相关参考，以获取有关异常消息的信息。)

使用 NOFLAG 来禁止错误标记。 NOFLAG 不会禁止编译器选项的错误消息。

嵌入式消息

• 不建议嵌入级别 U 消息。 接受嵌入式级别 U 消息的规范，但不会在源中生成任何消息。
• FLAG 选项不会影响在处理编译器选项之前生成的诊断消息。
• 在处理编译器选项， CBL 或 PROCESS 语句， BASIS， COPY或 REPLACE 语句期间生成的诊断消息不会嵌入在源列表中。 所有此类消息都显示在编译器输出的开头。
• 具有 IGYCB 前缀的诊断消息不会嵌入在源列表中。 所有此类消息都显示在编译器输出的末尾，而不考虑 FLAG 选项的设置。
• 在处理 *CONTROL 或 *CBL 语句期间生成的消息不会嵌入到源列表中。