引数の説明
関数の引数 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3363. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(18) BINARY. 000007 01 B PIC S9(8) BINARY VALUE +4. 000008 01 C PIC S9(8) BINARY VALUE +12. 000009 01 D PIC S9(8) BINARY VALUE +24. 000010 PROCEDURE DIVISION. 000011 COMPUTE A = FUNCTION PRESENT-VALUE (-2 B C D). 000012 END PROGRAM C3363.
C3363.cob (11) : JMN3363I-S PRESENT-VALUE関数の最初の引数数字定数は,-1より大きい値でなければなりません.