引数の説明
APPLY SAVED-AREA, CONTROL, SOURCE, DESTINATION CONTROL, TRACK-AREA, ACTUAL KEY, NOMINAL KEY, KEY IS, APPLY REORG-CRITERIA |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5129.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS SYSOBJ AS "System.Object".
000007 INPUT-OUTPUT SECTION.
000008 FILE-CONTROL.
000009 SELECT PRFILE ASSIGN TO GS-SYS001
000010 SYMBOLIC DESTINATION IS "PRT"
000011 DESTINATION-1 IS DIST.
000012 I-O-CONTROL.
000013 APPLY SAVED-AREA TO ASV1 ASV2 .
000014 DATA DIVISION.
000015 FILE SECTION.
000016 FD PRFILE.
000017 01 PRREC PIC X(50).
000018 WORKING-STORAGE SECTION.
000019 01 DIST PIC X(8).
000020 01 ASV1 PIC X(10).
000021 01 ASV2 USAGE OBJECT REFERENCE SYSOBJ.
000022 PROCEDURE DIVISION.
000023 OPEN I-O PRFILE
000024 MOVE "NMSVR20" TO DIST
000025 WRITE PRREC
000026 READ PRFILE
000027 CLOSE PRFILE
000028 END PROGRAM P5129.
P5129.cob (13) : JMN5129I-S APPLY SAVED-AREA句のデータ名は,オブジェクト参照データ項目またはこれを含む集団項目であってはなりません.データ名は無効になります.