引数の説明
STD |
例
000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9124. 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 PROCEDURE DIVISION. 000010 P-START. 000011 IF REC01 IS NOT NEGATIVE 000012 MOVE REC01 TO REC02 000013 END-IF. 000014 STOP RUN.
C9124.cob (11) : JMN9124I-W (STD)正負条件は共通範囲外です.処理を続行します.