引数の説明
FUNCTION LOG,FUNCTION LOG10 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3380. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC S9(5)V9(5) BINARY. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 COMPUTE RCV = FUNCTION LOG(-1.5). 000010 END PROGRAM C3380.
C3380.cob (9) : JMN3380I-S FUNCTION LOGの引数の値は,0より大きい数字でなければなりません.