PR300 - edit out 18 month restriction

Yes there is a default 547 days from current date that is used as compare dates which basically 18 months. However, I caution you of commenting out the value because it could mean that you will be purging transactions as of today for instance. I would however suggest to change the value as you may see fit and test it. There's a report that goes with the program.

You can edit PR300PD with notepad, look for "547", change it then recompile.

here's the scope of the cobol statement:

Todays date(yyyymmdd) is transformed into julian format.
Subtract 547 then transform back into yyyymmdd format.

Hope this help

Member


Group: Members
Posts: 10
Member No.: 796
Joined: 9-November 06



I'm getting an error when trying to run PR300 that says invalid distribution date.

any ideas?

I've tried a combination of stuff..I first changed the 547 to space space 1. That did not work.

I then commented out the following code in addition the the above change: (as per Lawsons recommendation).. I still cannot get past completing the pr300 screen where I want to put in the cut off year as 2007 to delete all 2007 payroll from our test system.

* IF (WS-CUTOFF-DATE > WS-COMPARE-DATE)
* IF (PRM-PAYROLL-FLAG = "2" OR "3")
* OR (PRM-PENSION-FLAG = "2" OR "3")
* OR (PRM-GARNISH-FLAG = "2" OR "3")
* OR (PRM-PR1099R-FLAG = "2" OR "3")
* OR (PRM-PRCHECK-FLAG = "2" OR "3")
* OR (PRM-DISTRIB-FLAG = "2" OR "3")
* OR (PRM-COMMENTS-FLAG = "2" OR "3")
* MOVE WS-CUTOFF-DATE TO CRT-ERR-VAR1
* MOVE WS-COMPARE-DATE TO CRT-ERR-VAR2
* MOVE 102 TO CRT-ERROR-NBR
* PERFORM 780-PRINT-ERROR-MSG
P40881* GO TO 050-END
* ELSE
* MOVE WS-COMPARE-DATE TO WS-CUTOFF-DATE
* END-IF
* END-IF.

Beverly,

Remove the commenting that you did.

Change the line:
SUBTRACT 547 FROM WSDR-JULIAN-DAYS.
to:
MOVE ZEROES TO WSDR-JULIAN-DAYS.

Then re-compile and you should be OK.