Re: source date change after undo

Here's an easier solution, I have a simple program to do this.
 FQRPGLESRC UF   E             DISK    rename(qrpglesrc:sourcer)
  /free
   read qrpglesrc;
   dow not %eof(qrpglesrc);
     srcdat = 0;                     // set date to 0
     update sourcer %fields(srcdat); // only update date field
     read qrpglesrc;
   EndDo;

I have a front-end clp that does the override to the specific member.
Create an option in WDSC (or PDM) that passes the file/lib/mbr.

Glenn

Albert_Slezak@xxxxxxxxxx wrote:

If you need a temporary fix you could reset the date in DBU (a 3rd party
utility) back to the original date.

Thanks for the idea, but that's even worse, as our DBU is audited.
--
Sean Porterfield