埋め込みの説明
@1@ : 関数種別
例題
[C3385.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3385. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(8) BINARY. 000007 01 I PIC S9(2)V9(2) BINARY. 000008 PROCEDURE DIVISION. 000009 PERFORM VARYING I FROM FUNCTION RANDOM BY 0.1 000011 UNTIL I > 5 000012 COMPUTE A = A - 1 000013 END-PERFORM 000014 END PROGRAM C3385.
C3385.cob 9: JMN3385I-S PERFORM文中のFUNCTION RANDOMは，数字定数または数字項目でなければなりません．
