埋め込みの説明
@1@ : 関数の引数
例題
[C3461.cob] 000001 PROGRAM-ID. C3461. 000002 ENVIRONMENT DIVISION. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 LEN PIC 9(3). 000006 01 GRP. 000007 02 X10 PIC X(10). 000008 02 X20 PIC X(20). 000009 01 NUM01 PIC S9(4). 000010 PROCEDURE DIVISION. 000011 COMPUTE LEN = FUNCTION STORED-CHAR-LENGTH (GRP) 000012 COMPUTE LEN = FUNCTION STORED-CHAR-LENGTH (NUM01) 000013 END PROGRAM C3461.
C3461.cob 11: JMN3461I-S FUNCTION STORED-CHAR-LENGTHの引数'GRP'は,英字項目,英数字項目,英数字編集項目,日本語項目または日本語編集項目のいずれかでなければなりません.
C3461.cob 12: JMN3461I-S FUNCTION STORED-CHAR-LENGTHの引数'NUM01'は,英字項目,英数字項目,英数字編集項目,日本語項目または日本語編集項目のいずれかでなければなりません.