Not sure exactly what you are trying to ask but you can do
this:
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
-----Original Message-----
From: Tim Adair [mailto:tadair@xxxxxxxxxxxxxxxx]
Sent: Wednesday, January 09, 2013 4:59 PM
To: midrange-l@xxxxxxxxxxxx
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?
More info:
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) +
MBROPT(*REPLACE) CRTFILE(*YES)
CMPPFM NEWFILE(&LIB1/&SRCFILE) NEWMBR(*ALL) +
OLDFILE(QTEMP/SRCFILE) CMPTYPE(*LINE) +
RPTTYPE(*SUMMARY) OUTPUT(*PRINT)
DLTF FILE(QTEMP/RMTSRCFILE)
ENDPGM
Anticipated questions / answers: --------------
The CPYF is necessary because you can't run CMPPFM against a
DDM file.
&LIB2 is so I can compare two libraries that don't have the
same name.
As always, thanks for any & all assistance.
~TA~
--
This is the Midrange Systems Technical Discussion
(MIDRANGE-L) mailing list To post a message email:
MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change
list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting,
please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2013.0.2805 / Virus Database: 2637/5988 - Release
Date: 12/26/12
Internal Virus Database is out of date.
midrange.com
