埋め込みの説明
@1@ : FUNCTION INTEGER, FUNCTION INTEGER-PART, FUNCTION REM
例題
[C3386.cob] 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の引数は,固定小数点項目または固定小数点定数でなければなりません.