• Search Forums
    Advanced Search
Prev
Next
Forums Infor / Lawson Platforms S3 Systems Administration

selecting records from TAEMPSERV

 1 Replies
 0 Subscribed to this topic
 29 Subscribed to this forum
Sort:
Author
Messages
Chesca
Veteran Member
Posts: 490
Veteran Member
New Poster
New Poster
Congrats on posting!
4/20/2012 3:04 PM
I am trying to read records from empserv where emp = XXX. I am getting back all the records including for employees other than the I put in the primary key. Should I be using 850-FIND-BEGRNG?

PERFORM 850-FIND-NLT-TESSET1.
PERFORM 310-PROCESS-EMP-SERV-RECS
               UNTIL (TAEMPSERV-NOTFOUND).
      *         OR   (LPMST-TEM-EMPLOYEE NOT = TES-EMPLOYEE).
SP
Veteran Member
Posts: 122
Veteran Member
4/26/2012 5:13 PM
Are you populating all values for TESSET1? If so, you could just use PERFORM 840-FIND-TESSET1. If not, then you need to break out of your loop.

MOVE WS-COMPANY TO DB-COMPANY.
MOVE WS-EMPLOYEE TO DB-EMPLOYEE.
MOVE ZEROS TO DB-TES-OBJ-ID.
PERFORM 850-FIND-NLT-TESSET1.
PERFORM
UNTIL (TAEMPSERV-NOTFOUND)
OR (TES-EMPLOYEE NOT = DB-EMPLOYEE)
PERFORM 310-PROCESS-EMP-SERV-RECS
PERFORM 860-FIND-NEXT-TESSET1
END-PERFORM.