埋め込みの説明
@1@ : 入出力節およびデータ部の句
@2@ : @1@句に指定したデータ名
例題
[C5134.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5134. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 IDENTIFICATION DIVISION. 000007 OBJECT. 000008 ENVIRONMENT DIVISION. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 PROCEDURE DIVISION. 000012 IDENTIFICATION DIVISION. 000013 METHOD-ID. M5134. 000014 ENVIRONMENT DIVISION. 000015 INPUT-OUTPUT SECTION. 000016 FILE-CONTROL. 000017 SELECT SQFILE ASSIGN TO SYS001 000018 FILE STATUS IS LK1. 000019 DATA DIVISION. 000020 FILE SECTION. 000021 FD SQFILE. 000022 01 SQREC PIC X(80). 000023 LINKAGE SECTION. 000024 01 LK1 PIC X ANY LENGTH. 000025 PROCEDURE DIVISION 000026 USING LK1. 000027 END METHOD M5134. 000028 END OBJECT. 000029 END CLASS C5134.
C5134.cob 18: JMN5134I-S FILE STATUS句のデータ名LK1は,ANY LENGTH句が指定された項目であってはなりません.