埋め込みの説明
@1@ : START,READ,SORT,MERGE.
@2@ : エラーの原因となったデータ名.
例題
[C2718.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C2718. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE01 ASSIGN TO NAME01. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 SD FILE01 000010 LABEL RECORD IS STANDARD. 000011 01 REC. 000012 02 F001 PIC X(90). 000013 02 RKEYA PIC X(10). 000014 WORKING-STORAGE SECTION. 000015 01 PTR1 POINTER. 000016 PROCEDURE DIVISION. 000017 P-001. 000018 SORT FILE01 ON ASCENDING KEY 000019 PTR1->RKEYA 000020 INPUT PROCEDURE P-001 000021 OUTPUT PROCEDURE IS P-002 THRU P-004. 000022 P-002. 000023 P-004. 000024 END PROGRAM C2718.
C2718.cob 19: JMN2718I-S SORT文のデータ名'RKEYA'はポインタ付けできません.ポインタ付けは無効になります.