Prev
Next
Forums S3 Systems Administration

selecting records from TAEMPSERV

Sort:
You are not authorized to post a reply.
Author
Messages
Chesca
Veteran Member
Posts: 490
Veteran Member
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.
      You are not authorized to post a reply.