埋め込みの説明
@1@ : FUNCTION ACOS,FUNCTION ASIN
例題
[C3376.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3376. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC S9V99. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 COMPUTE RCV = FUNCTION ACOS(+2). 000010 END PROGRAM C3376.
C3376.cob 9: JMN3376I-S FUNCTION ACOSの引数の値は,-1以上,+1以下でなければなりません.