埋め込みの説明
@1@ : FUNCTION MAX, FUNCTION MIN, FUNCTION ORD-MAX, FUNCTION ORD-MIN
例題
[C3382.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3382. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1(8) BIT. 000007 01 B PIC 9(1). 000008 01 RCV PIC 9(1). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE RCV = FUNCTION MAX(A B). 000012 END PROGRAM C3382.
C3382.cob 11: JMN3382I-S FUNCTION MAXの引数の型は,英字,英数字または数字のいずれかでなければなりません.