埋め込みの説明
@1@ : エラーの原因となったデータ名.
例題
[P2906.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2906. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS SEQUENTIAL. 000008 I-O-CONTROL. 000009 APPLY SAVED-AREA WSVAR ON SQFILE1. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD SQFILE1. 000013 01 SQF1REC. 000014 02 PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 01 WSVAR PIC X(80) IS EXTERNAL. 000017 PROCEDURE DIVISION. 000018 END PROGRAM P2906.
P2906.cob 9: JMN2906I-S APPLY SAVED-AREA句のデータ名'WSVAR'は,外部データ項目であってはなりません.データ名は,無効になります.
詳細な説明
APPLY SAVED-AREA句は,指定したデータ項目の値を,複数の会話にまたがって保証することを指定します.
ただし,データ項目が外部属性を持つ(EXTERNAL句を指定したデータ項目またはそれに従属するデータ項目である)場合は,保証できません.