引数の説明
ADD/SUBTRACT/MOVE |
一意名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3105. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 S. 000007 02 B PIC X(5). 000008 02 C. 000009 03 B PIC X(1). 000010 02 D PIC X(5). 000011 01 R. 000012 02 B PIC X(5). 000013 02 D PIC X(5). 000014 PROCEDURE DIVISION. 000015 P-START. 000016 MOVE CORRESPONDING S TO R. 000017 STOP RUN.
C3105.cob (16) : JMN3105I-S CORRESPONDING指定のあるMOVE文で,名標の対応のとれた項目'B'が一意ではありません.