MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » January 2013

RE: CPYF Frommbr(*ALL) Tombr(*ALL)



fixed

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.






Return to Archive home page | Return to MIDRANGE.COM home page

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