File Management - IBM

This example shows how you can use the copy command to copy 1000 records in
the file EMP1 to the file EMP1T. The command copies records from the first
member in EMP1 and replace the records in the first member in EMP1T.
CPYF FROMFILE(PERSONNEL/EMP1) +
TOFILE(TESTLIB1/EMP1T) MBROPT(*REPLACE) +
NBRRCDS(1000)
You can also use the NBRRCDS parameter to examine a subset of records on a list:
CPYF FROMFILE(PERSONNEL/EMP1) TOFILE(*PRINT) +
FROMRCD(250) NBRRCDS(10) OUTFMT(*HEX)
When you successfully copy an open query file, the file position is unpredictable.
If you want to run a different program with the same files or run another
CPYFRMQRYF, you must position the file or close the file and open it with the
same OPNQRYF command. You may position the file with the Position Database
File (POSDBF) command. In some cases, you can use a high-level language
program statement.
Selecting records based on character content (INCCHAR
Parameter)
Note: You can use this parameter on the CPYF command only.
You can select records on the basis of the content of characters that start in a
specific position in the record or field. You can use the INCCHAR parameter with
the FROMKEY or FROMRCD parameter. You can select records first by their key
value or relative record number, and then by characters in some position in the
record or field.
You can test for any character string of 1 through 256 bytes. If the character string
contains any special characters or blanks, you must enclose the entire string in
apostrophes.
You can also specify *CT (contains) as the operator for the INCCHAR parameter.
This specifies that the copy command should scan each record in the from-file for
the selection character string. You can specify any valid starting position in the
field or record for the start of the scan. The data will then be scanned from that
position to the byte to the extreme right of the field or record.
If you specify both the INCCHAR and INCREL parameters, the copy command
copies a record only if it satisfies both the INCCHAR and INCREL conditions.
This example shows how you can test for all records in the file DBIN that have an
XXX starting in position 80. It then shows how you can copy these records to the
file DKTOUT. Because this example includes testing for positions relative to the
length of the whole record, you must specify *RCD on the INCCHAR parameter.
CPYF FROMFILE(DBIN) TOFILE(DKTOUT) +
INCCHAR(*RCD 80 *EQ XXX)
If you were testing for an XXX in a position in a particular field in the record, you
would specify the field name instead of *RCD, and the starting position of the
character relative to the start of the field.
CPYF FROMFILE(DBIN) TOFILE(DKTOUT) +
INCCHAR(FLDA 6 *EQ XXX)
Chapter 4. Copying files 99