引数の説明
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句のデータ名は,オブジェクト参照データ項目またはこれを含む集団項目であってはなりません.データ名は無効になります.