Re: Is there a faster way to clear a library

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

If he happens to have the TAATOOLS, there is the DLTDEPLGL command which
deletes dependant logical files.

On Tue, Sep 25, 2018 at 8:32 AM Jim Oberholtzer <midrangel@xxxxxxxxxxxxxxxxx>
wrote:

> First question is why clear it when it would take quite some time to
> rebuild?
>
> Consider clearing physical files and leaving the objects behind since you
> more than likely rebuild it anyway?
>
> Are there constraints/triggers to delete first causing the system to work
> really hard to get rid of objects?  Do it with a CL instead.
>
> Consider deleting all the dependent files before trying to delete the
> physical files.  Like:
>
> For each physical in the library:
>
>
>         DSPDBR     FILE(&PLIB/&PFILE)    OUTPUT(*OUTFILE) +
>
>                    OUTFILE(QTEMP/QADSPDBR) OUTMBR(*FIRST *replace)
>
>         MONMSG     MSGID(CPF3012)
>
>         OVRDBF     FILE(QADSPDBR) TOFILE(QTEMP/QADSPDBR)
>
> READ:   RCVF
>
>             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(DLTPF))
>
>             DLTF       FILE(&WHRELI/&WHREFI)   /* Dependent files  */
>
>             GOTO READ
>
> DLTPF:
>
>             DLTF &PLIB/&PFILE
>
>
> This code works really fast on most physical tables.
>
>
> --
> Jim Oberholtzer
> Agile Technology Architects
>
>
> -----Original Message-----
> From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
> Mohammad Tanveer
> Sent: Tuesday, September 25, 2018 7:21 AM
> To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> Subject: Is there a faster way to clear a library
>
> It takes an hour or so to clear the library with around 900+ objects mostly
> data files and LFs.. we are looking to do it quickly..
>
> Regards
> --
> 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: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
> moment to review the archives at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link:
> http://amzn.to/2dEadiD
>
> --
> 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: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD