引数の説明
STD |
AND,OR,NOT |
例
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C9125.
000004 ENVIRONMENT DIVISION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 REC01 PIC S9(2) VALUE 0.
000008 01 REC02 PIC S9(2) VALUE 0.
000009 01 REC03 PIC S9(2) VALUE 0.
000010 PROCEDURE DIVISION.
000011 P-START.
000012 IF REC01 IS GREATER REC02 AND
000013 NOT REC03 IS GREATER REC01 THEN
000014 MOVE 1 TO REC02.
000015 STOP RUN.
C9125.cob (12) : JMN9125I-W (STD)論理演算子ANDは共通範囲外です.処理を続行します.
C9125.cob (12) : JMN9125I-W (STD)論理演算子NOTは共通範囲外です.処理を続行します.