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~