Title: Pr300 - Alter Code To Remove 18 Mo Restriction
Description: Alter PR300 code to purge RECENT info
bgodwin - March 23, 2007 09:36 PM (GMT)
We need to purge recent payroll history used for our pre-go-live parallel testing and learned that the PR300 will only let you purge items over 18 months old. We were told that we could comment out this code.
Does anyone have knowledge of how to do this and/or pros and cons of doing this (or things to be aware of).
I'm not a COBOL programmer but can following basic instructions if anyone would be so kind as to assist.
We are hoping to get rid of the test #'s on our data so that we can pull in the true payroll history for YTD and W2's to be accurate.
Any advice and/or assistance is always greatly appreciated.
Ragu - March 24, 2007 04:24 AM (GMT)
I have access to 8.1 code that has this piece of logic
MOVE WS-SYSTEM-DATE-YMD TO WSDR-FR-DATE.
PERFORM 900-DATE-TO-JULIAN.
SUBTRACT 547 FROM WSDR-JULIAN-DAYS.
PERFORM 900-JULIAN-TO-DATE.
547 translates to appriox 18 months. You could try changing this to 366 or as appropriate, run it in report mode and see how it goes.
bgodwin - March 30, 2007 06:00 PM (GMT)
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.
Keith_G_Thompson - April 2, 2007 07:56 PM (GMT)
Still working on this? What compile error are you getting now? If you'd like you can post your PR300PD and PR300.err files here and I could look at them. (located in $LAWDIR/<productline>/prsrc/)
bgodwin - May 9, 2007 08:51 PM (GMT)
You are too kind. Sorry for the delayed response, we went an entirely different route and did not need to do the purge afterall.
Thanks so much for the offer and willingness to help!