Not sure exactly what you are trying to ask but you can do
CPYF FROMMBR(*ALL) TOMBR(*FROMMBR)
This will copy all the members in one file into multiple
members of another file into the same member names
From: Tim Adair [mailto:tadair@xxxxxxxxxxxxxxxx]
Sent: Wednesday, January 09, 2013 4:59 PM
Subject: CPYF Frommbr(*ALL) Tombr(*ALL)
Is it possible in CL to copy an entire multi-member file?
TOMBR(*all) isn't allowed, and if I leave TOMBR out
completely, it copies all members of the FROMFILE into a
single member in the TOFILE.
CRTDUPOBJ doesn't help because the FROMFILE is a DDM file,
and CRTDUPOBJ creates another DDM file. I'm trying to copy
all members of the DDM file into a multi-member PF.
Am I missing something obvious?
I'm writing a simple source member comparison utility that
will compare a source PF on one system to the same source PF
on another. Here is the actual code (so far):
PGM PARM(&LIB1 &LIB2 &SRCFILE &IP)
DCL VAR(&LIB1) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB2) TYPE(*CHAR) LEN(10)
DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10)
DCL VAR(&IP) TYPE(*CHAR) LEN(20)
CRTDDMF FILE(QTEMP/RMTSRCFILE) +
RMTFILE(&LIB2/&SRCFILE) RMTLOCNAME(&IP *IP)
CPYF FROMFILE(QTEMP/RMTSRCFILE) +
TOFILE(QTEMP/SRCFILE) FROMMBR(*ALL) +
CMPPFM NEWFILE(&LIB1/&SRCFILE) NEWMBR(*ALL) +
OLDFILE(QTEMP/SRCFILE) CMPTYPE(*LINE) +
Anticipated questions / answers: --------------
The CPYF is necessary because you can't run CMPPFM against a
&LIB2 is so I can compare two libraries that don't have the
As always, thanks for any & all assistance.
This is the Midrange Systems Technical Discussion
(MIDRANGE-L) mailing list To post a message email:
MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting,
please take a moment to review the archives at
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2013.0.2805 / Virus Database: 2637/5988 - Release
Internal Virus Database is out of date.