• Search Forums
    Advanced Search Topics Posts
Prev
Next
Forums Integration / Customization S3 Customization/Development

Adding Lawson Table Process?

 4 Replies
 0 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
Ron McDuffee
New Member Send Private Message
Posts: 3
New Member
7/18/2012 7:40 PM
We have a custom Interface Program that gets data for 401k payroll deductions.  Our Database is SQL Server.  This program already reads data from tables EMPLOYEE and PAYDEDUCTN.  I need to add a read for the PRDISTRIB table. I have added code to build the filter and perform the PERFORM 850-FILTER-BEGRNG-PRDSET2 command.  The program compiles but the program always returns PRDISTRIB-NOTFOUND as True. I am sure I have not performed a neccesary step or steps. Can anyone point me in the right direction for documantation or provide the steps? 
John Henley
Send Private Message
Posts: 3351
7/18/2012 8:05 PM
Ron, what code do you have prior to PERFORM 850-FILTER-BEGRNG-PRDSET2 ??

It should look something like this:
MOVE xxx TO DB-COMPANY.
MOVE xxx TO DB-EMPLOYEE.
MOVE PRDSET2-EMPLOYEE TO WS-DB-BEG-RNG.

Also please post the code you are using to create the filter.
Thanks for using the LawsonGuru.com forums!
John
Ron McDuffee
New Member Send Private Message
Posts: 3
New Member
7/18/2012 8:35 PM
Here is the actual code including the PERFORM:

     MOVE PRM-COMPANY            TO DB-COMPANY.
      MOVE SPACES                 TO FILTER-STRING.
      MOVE WS-PRD-FILTER          TO FILTER-STRING.
      PERFORM 890-CREATE-FILTER.
      MOVE PRM-FROM-DATE          TO FILTER-STRING.
     PERFORM 890-SET-DATETIME-FILTER-VALUE.
     MOVE PRM-FROM-DATE          TO FILTER-STRING.
      PERFORM 890-SET-DATETIME-FILTER-VALUE.
      MOVE "0"                     TO FILTER-STRING.
      PERFORM 890-SET-ALPHANUM-FILTER-VALUE.

      MOVE PRDSET2-COMPANY        TO WS-DB-BEG-RNG.
     PERFORM 850-FILTER-BEGRNG-PRDSET2.

Below is the Filter definition in Working Storage:
     02  WS-PRD-FILTER-GROUP.
         03  FILLER              PIC X(23) VALUE
                               "((PRD-GL-DATE < ?) AND ".
         03  FILLER              PIC X(23) VALUE
                               "(PRD-RUN-DATE < ?) AND ".
         03  FILLER              PIC X(19) VALUE
                               "(PRD-CHECK-ID > ?))".
     02  FILLER REDEFINES WS-PRD-FILTER-GROUP.
         03  WS-PRD-FILTER       PIC X(65).

This should equate to the SQL statement:
SELECT * FROM PRDISTRIB
WHERE PRM-COMPANY = COMPANY
AND GL_DATE < PRM-FROM-DATE
AND RUN_DATE< PRM-FROM-DATE
AND CHECK_ID > 0   (zero)

John Henley
Send Private Message
Posts: 3351
7/18/2012 9:07 PM
You kept overwriting FILTER-STRING with the values that you want inserted into the string.
Also changed the check-id to a numeric...

See if this works...

MOVE WS-PRD-FILTER TO FILTER-STRING.
PERFORM 890-CREATE-FILTER.

MOVE PRM-FROM-DATE TO DATETIME-FILTER-VALUE.
PERFORM 890-SET-DATETIME-FILTER-VALUE.

MOVE PRM-FROM-DATE TO DATETIME-FILTER-VALUE.
PERFORM 890-SET-DATETIME-FILTER-VALUE.

MOVE 0 TO NUMERIC-FILTER-VALUE.
PERFORM 890-SET-NUMERIC-FILTER-VALUE.

MOVE PRM-COMPANY TO DB-COMPANY.
MOVE PRDSET2-COMPANY TO WS-DB-BEG-RNG.
PERFORM 850-FILTER-BEGRNG-PRDSET2.
Thanks for using the LawsonGuru.com forums!
John
Ron McDuffee
New Member Send Private Message
Posts: 3
New Member
7/19/2012 1:55 PM
THANK YOU, THANK YOU.  Can't believe I have been looking at that code for so long and missed that.  That solved the connection problem. Thanks again!!!