埋め込みの説明
@1@ : 関数の種類
例題
[C3359.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3359. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(4)V9(4) BINARY. 000007 01 B PIC S9(8) PACKED-DECIMAL. 000008 01 C PIC X(8). 000009 01 D PIC S9(8)V9(8) BINARY. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 COMPUTE D = FUNCTION MAX (A , B , C). 000013 END PROGRAM C3359.
C3359.cob 12: JMN3359I-S FUNCTION MAXに引数が複数指定された場合,引数の型は全て同じでなければなりません.