引数の説明
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より大きい数字でなければなりません.