引数の説明
FROM指定の一意名 |
レコード名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3127. 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-1 PIC XX. 000012 02 REC-1-2 PIC XX. 000013 02 FILLER PIC X(76). 000014 PROCEDURE DIVISION. 000015 WRITE REC-1 FROM REC-1-2. 000016 STOP RUN.
C3127.cob (15) : JMN3127I-S FROM指定の作用対象'REC-1-2'とレコード名'REC-1'は,同じ領域を占有することはできません.