引数の説明
SAME,MULTIPLE FILE TAPEまたはAPPLY. |
エラーの原因となった利用者語. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2084.
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 SQF1REC.
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 P2084.
P2084.cob (10) : JMN2084I-S SAME句の名標'SQF1REC'はファイル名でなければなりません.その指定は,無効になります.