USE LABEL文に指定できるファイル'@1@'は順ファイル,直接編成ファイルおよび相対編成ファイルでなければなりません. '@1@'を無効とします.
埋め込みの説明
@1@ : エラーの原因となったファイル名.
例題
[P2654.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2654. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IXFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY RKEY. 000009 I-O-CONTROL. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IXFILE1 LABEL RECORD STANDARD. 000013 01 IXF1REC. 000014 02 RKEY PIC X(8). 000015 02 PIC X(72). 000016 01 LREC PIC X(80). 000017 WORKING-STORAGE SECTION. 000018 PROCEDURE DIVISION. 000019 DECLARATIVES. 000020 ER1 SECTION. 000021 USE AFTER STANDARD ENDING FILE 000022 LABEL PROCEDURE ON IXFILE1. 000023 END DECLARATIVES. 000024 END PROGRAM P2654.
P2654.cob 22: JMN2654I-S USE LABEL文に指定できるファイル'IXFILE1'は順ファイル,直接編成ファイルおよび相対編成ファイルでなければなりません.'IXFILE1'を無効とします.
詳細な説明
USE LABEL文は,OSIV系システムの固有機能です.