引数の説明
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は必要語です.必ず指定してください.