埋め込みの説明
@1@ : WRITE，REWRITE，RELEASE
例題
[C3368.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3368. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 WRTREC. 000011 02 WRT-1 PIC S9(8) BINARY. 000012 02 WRT-2 PIC X(72). 000013 WORKING-STORAGE SECTION. 000014 01 A PIC X(4). 000015 PROCEDURE DIVISION. 000016 P-START. 000017 OPEN OUTPUT FILE-1. 000018 WRITE WRTREC FROM FUNCTION LENGTH(A). 000019 CLOSE FILE-1. 000020 END PROGRAM C3368.
C3368.cob 18: JMN3368I-S WRITE文のFROM句に，整数関数および数字関数は指定できません．
