引数の説明
SAME,APPLYまたはMULTIPLE FILE TAPE. |
エラーの原因となった利用者語. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2083.
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 SQFILE2.
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 P2083.
P2083.cob (10) : JMN2083I-S SAME句のファイル名'SQFILE2'が未定義または多重定義です.