引数の説明
STD |
例
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C9105.
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 DISPLAY "LOW-VALUE"
000013 ELSE
000014 IF REC01 = HIGH-VALUE THEN
000015 DISPLAY "HIGH-VALUE"
000016 END-IF.
000017 STOP RUN.
C9105.cob (11) : JMN9105I-W (STD)IF文の入れ子は共通範囲外です.処理を続行します.