埋め込みの説明
@1@ : エラーの原因となったデータ名.
例題
[P2666.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2666. 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 ERRINFO1 PIC X(136). 000015 CONSTANT SECTION. 000016 01 ERRINFO2 PIC X(20) VALUE SPACE. 000017 PROCEDURE DIVISION. 000018 DECLARATIVES. 000019 ERR1 SECTION. 000020 USE AFTER STANDARD ERROR 000021 PROCEDURE ON SQFILE1 000022 GIVING ERRINFO1 ERRINFO2. 000023 END DECLARATIVES. 000024 END PROGRAM P2666.
[Win32]
P2666.cob 22: JMN2666I-S 'ERRINFO2'は作業場所節または連絡節で定義されていなければなりません.'ERRINFO2'は,無効となります.
[Winx64]
P2666.cob 22: JMN2666I-S 'ERRINFO2'は作業場所節,局所記憶節または連絡節で定義されていなければなりません.'ERRINFO2'は,無効となります.
詳細な説明
USE文のGIVING指定は,OSIV系システムの固有機能です.