引数の説明
ARGUMENT-NUMBER |
データ項目,定数 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3348. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ARGUMENT-NUMBER IS A-N. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 AG1 PIC S9(8) BINARY. 000010 PROCEDURE DIVISION. 000011 ACCEPT AG1 FROM A-N. 000012 END PROGRAM C3348.
C3348.cob (11) : JMN3348I-S 呼び名が機能名ARGUMENT-NUMBERに対応づけられているとき,'AG1'は符号なし整数項目または符号なし整数でなければなりません.