Re: RGZPFM without lock *EXCL - warehouse reads

[Dan <dan27649@xxxxxxxxx>]

Interesting, and good to know.  A few questions:

1)  What do you mean by "loads a work file"?  I presume the reorg is done
"in place".

2)  Is journaling required for this to work?  I note that you journal only
when the file is being reorg'd.

- Dan

On Fri, Jun 19, 2015 at 12:06 PM, Steinmetz, Paul <PSteinmetz@xxxxxxxxxx>
wrote:

> Jim,
>
> We have a rgzpfm while active utility, loads a work file with any PF that
> has deleted records.
> Can be run without stopping any apps.
>
> STRJRNPF   FILE(&MBLIB/&MBFILE) JRN(QGPL/RGZPFM)
>
>  SNDPGMMSG  MSG('RGZPFM starting for ' *BCAT &MBLIB *BCAT +
>               '/' *BCAT &MBFILE *BCAT '.')
>
>  RGZPFM     FILE(&MBLIB/&MBFILE) MBR(&MBNAME) +
>               RBDACCPTH(*NO) ALWCANCEL(*YES) +
>               LOCK(*SHRUPD) /* rgzpfm while active */
>  MONMSG     MSGID(CPF2981 CPF3135 CPF9801 CPF9809 +
>               CPF9810 CPF9820 CPF2982) EXEC(GOTO +
>               CMDLBL(ERROR2))
>
>
>  ENDJRNPF   FILE(&MBLIB/&MBFILE) JRN(QGPL/RGZPFM)
>  MONMSG     MSGID(CPF9803) EXEC(GOTO CMDLBL(ERROR4))
>
> Paul