2.7.51 JMN9154I-W

(@1@)IF文中の条件文は共通範囲外です．
処理を続行します．

引数の説明

@1@:

STD

例

      000001 @OPTIONS FLAGSW(STDM)
      000002 IDENTIFICATION  DIVISION.
      000003 PROGRAM-ID.     C9154.
      000004 ENVIRONMENT     DIVISION.
      000005 DATA            DIVISION.
      000006 WORKING-STORAGE SECTION.
      000007   01  REC01     PIC 9(4).
      000008   01  REC02     PIC 9(4).
      000009 PROCEDURE       DIVISION.
      000010 P-START.
      000011     IF REC01 = LOW-VALUE THEN
      000012       EVALUATE REC02
      000013       WHEN 0
      000014         DISPLAY "REC02=0"
      000015       WHEN OTHER
      000016         DISPLAY "REC02=" REC02
      000017       END-EVALUATE
      000018     END-IF.
      000019     STOP RUN.

C9154.cob (12) : JMN9154I-W (STD)IF文中の条件文は共通範囲外です．処理を続行します．