引数の説明
ON SIZE ERROR. |
ERROR. |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2642. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WNUM1 PIC S9(4) BINARY. 000007 01 WNUM2 PIC S9(4) BINARY. 000008 PROCEDURE DIVISION. 000009 COMPUTE WNUM1 = WNUM1 * WNUM2 000010 ON SIZE 000011 DISPLAY "ERROR" 000012 END-COMPUTE. 000013 END PROGRAM P2642.
P2642.cob (11) : JMN2642I-S ON SIZE ERRORで語ERRORが指定されていません.語ERRORが指定されたものとみなします.
詳細な説明
ON SIZE ERROR指定を書く場合は,語ERRORは必要語です.必ず指定してください.