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

[John McKee <jmmckee@xxxxxxxxxxxxxx>]

Try using TOMBR(*FROMMBR)

John McKee

On Wed, Jan 9, 2013 at 3:58 PM, Tim Adair <tadair@xxxxxxxxxxxxxxxx> wrote:
> 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.