2.6.34 JMN5129I-S

@1@句のデータ名は，オブジェクト参照データ項目またはこれを含む集団項目であってはなりません．データ名は無効になります．

埋め込みの説明

@1@ : APPLY SAVED-AREA, CONTROL, SOURCE, DESTINATION CONTROL, TRACK-AREA, ACTUAL KEY, NOMINAL KEY, KEY IS, APPLY REORG-CRITERIA

例題

[P5129.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P5129.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT   SECTION.
000005 FILE-CONTROL.
000006     SELECT 表示ファイル ASSIGN TO GS-SYS001
000007     SYMBOLIC DESTINATION IS "PRT"
000008     DESTINATION-1 IS 宛先.
000009 I-O-CONTROL.
000010     APPLY SAVED-AREA TO ASV1  ASV2 .
000011 DATA           DIVISION.
000012 FILE SECTION.
000013 FD 表示ファイル.
000014 01 通信データ  PIC X(50).
000015 WORKING-STORAGE SECTION.
000016 01 宛先        PIC X(8).
000017 01 ASV1        PIC X(10).
000018 01 ASV2        USAGE OBJECT REFERENCE.
000019 PROCEDURE      DIVISION.
000020     OPEN I-O 表示ファイル
000021     MOVE "NMSVR20" TO  宛先
000022     WRITE  通信データ
000023     READ   表示ファイル
000024     CLOSE  表示ファイル
000025 END PROGRAM    P5129.

P5129.cob 10: JMN5129I-S APPLY SAVED-AREA句のデータ名は，オブジェクト参照データ項目またはこれを含む集団項目であってはなりません．データ名は無効になります．