引数の説明
SAME,MULTIPLE FILE TAPEまたはAPPLY. |
エラーの原因となったファイル名. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2085.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SQFILE1 ASSIGN TO SYS001
000007 ORGANIZATION IS SEQUENTIAL
000008 FILE STATUS IS WFS1.
000009 I-O-CONTROL.
000010 SAME AREA SQFILE1 SQFILE1.
000011 DATA DIVISION.
000012 FILE SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC.
000015 02 PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WFS1 PIC X(2).
000018 PROCEDURE DIVISION.
000019 END PROGRAM P2085.
P2085.cob (10) : JMN2085I-S ファイル名'SQFILE1'は,同一形式のSAME句に一度しか指定できません.このファイル名は,無効になります.