埋め込みの説明
@1@ : エラーの原因となったデータ名
例題
[P2665.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2665. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1. 000011 01 SQF1REC. 000012 02 PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 ERRINFO PIC X(20). 000015 PROCEDURE DIVISION. 000016 DECLARATIVES. 000017 ERR1 SECTION. 000018 USE AFTER STANDARD ERROR 000019 PROCEDURE ON SQFILE1 000020 GIVING ERRINFO. 000021 END DECLARATIVES. 000022 END PROGRAM P2665.
[Win32]
P2665.cob 20: JMN2665I-S 'ERRINFO'は136バイトでかつ作業場所節に定義されていなければなりません.GIVING指定は,無効となります.
[Winx64]
P2665.cob 20: JMN2665I-S 'ERRINFO'は136バイトでかつ作業場所節または局所記憶節に定義されていなければなりません.GIVING指定は,無効となります.
詳細な説明
USE文のGIVING指定は,OSIV系システムの固有機能です.