Joined: 29 Jul 2003
The FILE-AID COPY function lets you copy data.
Use selection and limiting parameters with the COPY function. Use COPY with action parameters, such as EDIT, REPL, or MOVE, to copy a dataset and change the content of its records.
After completing a COPY function, File-AID reports on SYSPRINT the number of PDS members processed and/or the total number of copied records, the output dataset name, and the output volume serial numbers.
1. If File-AID is executed without any control statements, it defaults to a COPY function for every pair of input and output datasets (DDxx and DDxxO) specified in the JCL.
2. To process multiple conditional updates (IF REPL, IF EDIT, IF MOVE), while copying all records, use the ALL function modifier (COPYALL(CA)).
3. File-AID/Batch does not support copying a PDS to and from a tape.
4. File-AID enables you to COPY from (but not to) a CA-Panvalet, CA-Librarian dataset. The CA-Panvalet, CA-Librarian dataset cannot be the destination dataset (DDxxO) in a COPY statement.
$$DD01 COPY IF=(6,EQ,C'12345'),OUT=60,PRINT=5
Copies the first 60 input records that contain the string 12345 beginning in location 6, to the output dataset, and prints the first five records selected.
$$DD01 COPY REPL=(12,EQ,C'X',C'Z'),DUMP=100
Copies the input dataset, replaces any character X located in location 12 with a character Z, and dumps the first 100 records copied.
$$DD01 COPY ACCUM=(8,5,C,'QUANTITY FIELD')
Copies the input dataset while accumulating five bytes of zoned numeric character data beginning in location 8. The resulting total is labeled QUANTITY FIELD, and is printed on the SYSTOTAL DD if it is defined. If no SYSTOTAL DD is provided, the totals appear on SYSPRINT.
$$DD01 COPY SELECT=4,OUT=100,IF=(1,EQ,X'010C')
Creates an extract file of every fourth input record that contains a hexadecimal value of 010C beginning in location 1. A maximum of 100 records are copied.
Hope this helps,