埋め込みの説明
@1@ : エラーの原因となったファイル名.
例題
[P2656.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2656. 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 PROCEDURE DIVISION. 000015 DECLARATIVES. 000016 ER1 SECTION. 000017 USE AFTER STANDARD ENDING FILE 000018 LABEL PROCEDURE ON SQFILE1. 000019 END DECLARATIVES. 000020 END PROGRAM P2656.
P2656.cob 18: JMN2656I-S USE LABEL文に指定されたファイル'SQFILE1'には,LABEL RECORD句でデータ名を指定しなければなりません.'SQFILE1'を無効とします.
詳細な説明
USE LABEL文は,OSIV系システムの固有機能です.