Prev
Next
Forums S3 Customization/Development

PR300 - edit out 18 month restriction

Sort:
You are not authorized to post a reply.
Author
Messages
bgodwin
Veteran Member
Posts: 143
Veteran Member
3/23/2007 8:02 PM
    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.
    Sam Simpson
    Veteran Member
    Posts: 239
    Veteran Member
    3/23/2007 9:13 PM
      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
      bgodwin
      Veteran Member
      Posts: 143
      Veteran Member
      3/30/2007 5:02 PM

        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.
        John Henley
        Senior Member
        Posts: 3348
        Senior Member
        3/30/2007 7:53 PM
          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.
          Thanks for using the LawsonGuru.com forums!
          John
          You are not authorized to post a reply.