TAEEMASTER FILE

 4 Replies
 0 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
Chesca
Veteran Member
Posts: 490
Veteran Member
    How to perform a DB call to get a single record off the TAAMATER FILE? I am not sure how to populate the index key and use the 840-FIND-TEMSET1 or the 850-NLT-NEXT? Thanks
    Ragu Raghavan
    Veteran Member
    Posts: 476
    Veteran Member
      DO you have access to the Lawson support site ? There is a document "Application Program Interfaces" that has examples.
      Chesca
      Veteran Member
      Posts: 490
      Veteran Member
        Yes I do, I downloaded the API doc and I am able to find/retrieve recods.I am able to retrieve the records now. How do I verify I am using the correct API (840/850) Though? :
        MOVE LPMST-TEM-EMPLOYEE       TO DB-EMPLOYEE.
                   MOVE 10                       TO DB-COMPANY.
                   MOVE LPMST-TEM-EMPLOYEE-GROUP TO DB-EMPLOYEE-GROUP.
                   PERFORM 840-FIND-TEMSET1.
                   IF (TAEEMASTER-FOUND)
                       DISPLAY "TEM-EMPLOYEE " TEM-EMPLOYEE
                       DISPLAY " AVAIL HRS:  " TEM-AVAIL-HRS-BAL
                       DISPLAY " MASTR ENTRY " TEM-MASTR-ENTRY
                   ELSE
                      DISPLAY "NOT FOUND"
                      GO TO 400-LPVAC-HRI-TRANSACTION-END.
        Woozy
        Veteran Member
        Posts: 709
        Veteran Member
          It just depends what type of fetch you are wanting to do. 

          If you know all the index keys and are looking for a single record that matches that key then you use 840-FIND-{Index}

          If you have a partial key and you want to move up/down through the records starting with that key, then you would use 850-FIND-NLT-{Index} and 860-FIND-NEXT-{Index} and/or 870-FIND-PREV-{Index}.

          I hope this helps.

          Kelly
          Kelly Meade
          J. R. Simplot Company
          Boise, ID
          Chesca
          Veteran Member
          Posts: 490
          Veteran Member
            Thank you all.