引数の説明
FUNCTION INTEGER, FUNCTION INTEGER-PART, FUNCTION REM |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3386. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A COMP-2 VALUE +3.5. 000007 01 RCV PIC S9(4) BINARY. 000008 PROCEDURE DIVISION. 000009 COMPUTE RCV = FUNCTION INTEGER( A ). 000010 END PROGRAM C3386.
C3386.cob (9) : JMN3386I-S FUNCTION INTEGERの引数は,固定小数点項目または固定小数点定数でなければなりません.