例題
[C3364.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3364. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(18) BINARY VALUE +35983. 000007 01 B PIC S9(8) BINARY VALUE +4. 000008 01 C PIC S9(4) BINARY. 000009 PROCEDURE DIVISION. 000010 MOVE FUNCTION REM(A B)(3:2) TO C. 000011 END PROGRAM C3364.
C3364.cob 10: JMN3364I-S 数字関数に部分参照付けはできません．英数字関数とみなします．
