引数の説明
INTO指定の一意名 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3144.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT FILE-1 ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD FILE-1.
000010 01 REC-1.
000011 02 REC-1-S PIC X(80).
000012 PROCEDURE DIVISION.
000013 READ FILE-1 INTO REC-1-S.
000014 STOP RUN.
C3144.cob (13) : JMN3144I-S INTO指定の作用対象'REC-1-S'とレコード領域は,同じ領域を占有することはできません.