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 DDM file.
&LIB2 is so I can compare two libraries that don't have the same name.
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 list options,
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact