ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.5.299 JMN3463I-S

転記の受取り側である@2@が強く型付けされた集団項目のとき,送出し側である@1@は,@2@と同じ型の強く型付けされた集団項目でなければなりません.

埋め込みの説明

@1@ : 一意名
@2@ : 一意名

例題

[C3463.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3463.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  TYPE-A  TYPEDEF  STRONG.
000008    02  A1   PIC S9(4) COMP-5.
000009    02  A2   PIC X(50).
000010  01  TYPE-B  TYPEDEF  STRONG.
000011    02  B1   PIC X(25).
000012  01  DATA-A  TYPE  TYPE-A.
000013  01  DATA-B  TYPE  TYPE-B.
000014 PROCEDURE DIVISION.
000015      MOVE  DATA-A  TO  DATA-B.
000016      EXIT PROGRAM.
000017 END PROGRAM C3463.

C3463.cob 15: JMN3463I-S 転記の受取り側である'DATA-B'が強く型付けされた集団項目のとき,送出し側である'DATA-A'は,'DATA-B'と同じ型の強く型付けされた集団項目でなければなりません.