埋め込みの説明
@1@ : FUNCTION ORG
例題
[C3381.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3381. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(2). 000007 01 RCV PIC S9(2) BINARY. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 COMPUTE RCV = FUNCTION ORD(A). 000011 END PROGRAM C3381.
C3381.cob 10: JMN3381I-S FUNCTION ORDの引数は,英字型または英数字型で,字数は1でなければなりません.