HR02 User Exit

I've figured this out.  It seems that I am my own victim.  I had compiled the user exit against the wrong product line.

Could you please show me step by step how to create a simple user exit for an LP program? Would it matter if the source files were empty to start with and then I can add user exits as needed? I just want to see how it works first. Thanks

Do you have access to the support site ? Look for a document "Doc for Developers: Application Development Workbench Standards". This has a section on user exits that may help.

Yes, I do. However, I am having issues editing the LPCUSTOMPD to create my first user exit called LP140VAC1-TRANSACTION and add my logic.

That is a different animal all together. Here is an example : 000220 3000-USER-EXIT-CALC-AMT SECTION. 000230**************************************************************** 000240 3000-START. 000250 000260 INITIALIZE LPC-CALC-AMOUNT. 000270 IF (LPMST-CALCULATION = "VFTPAY7.21" OR "VFTPAY4.04" OR "VFTPAY4.33" OR "VFTPAY5.38" OR "VFTPAY5.58" OR "VFTPAY5.77" OR "VFTPAY6.73" OR "VFTPAY6.97" OR "VFTPAY8.08" OR "VFTPAY8.37" OR "VFTPAY8.65" OR "VFTPAY5.77" OR "VFTPAY7.21" OR "VFTPAY8.08" OR "VFTPAY8.65" OR "VFTPAY9.42" OR "VFTPAY1010") * DISPLAY "CUSTOM CALC " LPMST-CALCULATION MOVE LPMST-TEM-EMPLOYEE TO DB-EMPLOYEE PERFORM 840-FIND-EMPSET1 COMPUTE LPC-CALC-AMOUNT ROUNDED = EMP-PAY-RATE * TCA-USER-NUM-1 DISPLAY "CUSTOM CALC " LPMST-CALCULATION " FOR " LPMST-TEM-EMPLOYEE " " LPC-CALC-AMOUNT END-IF.

Ragu, your post was very helpful. I just have a question, is the coded added within 3000-USER-EXIT-CALC-AMT or I would have to create a new one? But I don't see how it would be called by the base program LP140? Hey have your company moved from TA to Absence management yet? LPCUSTOMPD code: 3000-USER-EXIT-CALC-AMT SECTION. 000230**************************************************************** 000240 3000-START. 000250 000260 INITIALIZE LPC-CALC-AMOUNT. IF (EMP-PROCESS-LEVEL = "XXX") PERFORM 3010-LPVACHRI-TRANSACTION THRU 3010-LPVACHRI-TRANSACTION-END END-IF. ****************************************************************** 3010-LPVACHRI-TRANSACTION. ****************************************************************** ***LP VACATION SUBROUTINE FOR XX  000270 IF (EMP-PROCESS-LEVEL = "XXX") IF (PEM-BARGAIN-UNIT = "00" OR "06" OR "07") IF (LPC-ACR-HOURS >= (EMP-STAND-HOURS * 7)) OR (LPC-ACR-HOURS > EMP-STAND-HOURS) 000280 OR (LPC-ACR-HOURS = EMP-STAND-HOURS)

Some section in LP140 or one of the libs that LP140 uses, calls 3000-USER-EXIT... When control returns to the calling routune, it checks the value in the variable LPC-CALC-AMOUNT

ragu, it's starting to make more sense now except that I don't know if the LPMST- fields will be populated and passed to be use in my LPCUSTOMPD routine. I don't have any data to test and see.  3000-USER-EXIT-CALC-AMT I   INITIALIZE LPC-CALC-AMOUNT.     PERFORM 3100-LPVACATION-CALC. 3100-LPVACATION-CALC           SECTION 50. *** LOOKUP TAEMPSERV RECORD FOR INPUT EMPLOYEELOYEE            INITIALIZE                                          DB-TES-OBJ-ID.            MOVE LPMST-TEM-COMPANY  TO DB-COMPANY.            MOVE LPMST-TEM-EMPLOYEE TO DB-EMPLOYEE.            PERFORM 840-FIND-TESSET1.            IF (TAEMPSERV-NOTFOUND)                GO TO 3100-END.

Hi Ragu, I wanted to give you a update about this exit routine. LPCUSTOMPD turned out to be a library routine and not a user exit. It's called by LP140, LP14 and LP198. So I added cutom code in this library to calculate accruals when called by LP140. So it's working as expected. Thank you for all you input.