埋め込みの説明
@1@ : RECORD KEYまたはALTERNATE RECORD KEY.
@2@ : エラーの原因となったデータ名.
例題
[P2818.cob] 000001 @OPTIONS FLAGSW(GSS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P2818. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT IXFILE1 ASSIGN TO MODELDB-VI-STOCK 000008 ORGANIZATION IS INDEXED 000009 RECORD KEY IS QNO GOODS. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IXFILE1. 000013 01 IXF1REC. 000014 02 QNO PIC A(2). 000015 02 GOODS PIC N(80). 000016 02 PRICE PIC S9(9) BINARY. 000017 PROCEDURE DIVISION. 000018 END PROGRAM P2818.
P2818.cob 9: JMN2818I-W RDB索引ファイルのRECORD KEY句のデータ名'QNO'は,英数字,日本語,内部10進,2進または集団項目でなければなりません.英数字項目が指定されたものとみなします.
詳細な説明
RDB索引ファイルは,OSIV系システムの固有機能です.