DIRECTION supports the following parameter:
Direction in which the file is to be processed. The valid values are as follows:
Reads the file in a forward direction. For a KSDS this is in an ascending key sequence. This is the default value.
Reads the file in a backward direction. For a KSDS this is in a descending key sequence. No input file concatenation is permitted when using this parameter value.
When processing a PDS and using the BACKWARD directional-value, the members are processed in ascending order, but the member's records are processed from the last physical record to the first.
In the following example, for a KSDS, processing starts at the record with a key, or partial key value, of C'01234', and the KSDS is processed in descending keys from that point. If key C'01234' does not exist, processing starts from the next highest record key.
COPY, DIRECTION(BACKWARD), RID(C'01234')
In the following example, the KSDS processing starts at record with a key, or partial key value, of C'01234', and is processed in descending keys from that point. If key C'01234' does not exist, processing starts from the next highest record key. The file is processed until positions 10 and 11 equal 'CA'. The primary input file remains open and positioned to the lower record.
The subsequent READ command starts processing at the location where the COPY command left off, the first record with a C'CA' found at position 10, and proceeds to read records in ascending order.
COPY,
DIRECTION(BACKWARD),
RID(C'01234'),
IF(10,2,EQ,C'CA'),
STOP(NOCLOSE)
READ
The DIRREPORT keyword controls the directory report when comparing PDS members. This keyword is valid only with the COMPARE command.
DIRREPORT(A|M|S)
DIRREPORT supports the following parameters:
All sections of the directory report are displayed.
Only those sections of the directory report that identify mismatched members are displayed.
Only a directory summary report is displayed.
Default: M
This example syntax requests a summary directory report.
COMPARE, DIRREPORT(S), OLDFILE(MY.OLD.PDS), NEWFILE(MY.NEW.PDS)
|
Copyright © 2013 CA.
All rights reserved.
|
|