HR Dynamic Actions Subroutine

Hi friends,
I have question on Dynamic Actions in HR module. I try to call a subroutine from Dynamic Actions. I have to pass P0041-DAT01, P0041-DAT02, P0041-DAT03, P0041-DAT04 parameters to the subroutine. I don't know the procedure / syntax to pass parameters. Can any one give me the example for this requirement. You help will be greatly appriciated.
Thanks in advance.
Hari

Hello Hari
I did this some time ago so I am not sure if my description will be complete. However, I can describe you what I did.
I defined a report containing a FORM routine that should be dynamically called.
In the header section of the report I have the following statement:
INCLUDE mppdat00. " Common Part SAPFP50M
As data definitions I added the required infotype tables:
TABLES: p0000. " Personal-Stammsatz Infotyp 0000 (Massnahmen)
TABLES: p0001. " Personal-Stammsatz Infotyp 0001 (Org. Zuordnung)
TABLES: p0002. " Personal-Stammsatz Infotyp 0002 (Daten zur Person)
Now in the FORM routine I work directly with the variables (p0000, p0001, ...). When the FORM routine is dynamically called these variables contain the values of the infotypes.
Regards
Uwe

Similar Messages

Using HR_INFOTYPE_OPERATION in external subroutine for Dynamic Actions

Hi,
I am calling an external subroutine in the Dynamic Actions of an Infotype. In this external subroutine, I am using HR_INFOTYPE_OPERATION to modify OTHER records of the same Infotype number.
However, when I tried to trigger the Dynamic Actions in PA30, the other infotypes get modified as intended. But when I refreshed the PA30 screen, the changes were reversed back as if the HR_INFOTYPE_OPERATION were not carried out at all. I have COMMIT WORK after the HR_INFOTYPE_OPERATION, refreshed the buffer. But it doesn't seem to work.
My question is: Can i use HR_INFOTYPE_OPERATION in an external subroutine which is called during dynamic actions? As I have some complicated logic, I do not want to embed the coding in the Dynamic Actions. Is there a way for HR_INFOTYPE_OPERATION to work in the external subroutine with the changes being committed to the database?
Thank you.

Hi,
I remember the same problem being faced by some of the forum members.
Suresh Datti had replied that "Call the subroutine in a nother program using a SUBMIT statement. This will create two sessions and will update the DB". This was working fine for the users.
Hope you can try this.
Just call a program using SUBMIT statement and code your form routine inside that.
Hope this helps you.
Regards,
Subbu.

Subroutine called from a Dynamic Action.

Calling a subroutine in a program via a dynamic action, works in foreground, but not in background? Any ideas why?

What's a dynamic action and what are you actually trying to achieve?

Mail not send when subroutine is call in dynamic actions

Hi Friends,
I have facing a problem in sending a mail through dynamic actions . In this mail is not send to specific user mail-id.
Suggest me . What to be exactly done .
Regards,
Anish

First you have to understand what should be done...
ask your functional consulatant where exactly the Mails need to be retrived For example...
in infotype 0105 subtype '010' generally we have email ids avaialable of the employeee....
may be this helps or not give full specification some one can revert back.
Regards
sas

Info group being not called while using Dynamic Actions

Hi,
I am facing a scenario that, while we execute some action from PA40 like termination, then it will call my subroutine for dynamic actions which will be calculating the last day worked and updating the same in Info Type 0041.
For updating the IT 0041, i am using the function module HR_MAINTAIN_MASTERDATA. and IT0041 is getting updated properly. But now the problem is coming that when the control comes out of subroutine, it is going back to the PA40 Screen and not to the next screen of the Info group.
What can be the cause for the same.
RND I have done on my part: I have commented/uncommented the return parametre RP50D-Date1, commented/uncomented the use of function modules to lock and Unlock the pernr.
Please give ur comments.
Thanks in Advance.

Hi Nisha,
Not sure if I have understood correctly, but if you just wanted to calculate leaving date and write the same date in IT0041 then you don't need a function module:
1. Create a small program, as follows:
REPORT ZHR_PY_R0008                           .
INCLUDE MPPDAT00.
TYPE-POOLS HRQTA.
TABLES: P0000,
        RP50D,
        T001P.
ROUTINE CALLED BY TABLE T588Z
FORM CHANGE_DATE.
RP50D-DATE1 = P0000-BEGDA - 1 .
ENDFORM.                    " CHANGE_DATE
This program will give you the last working day written to RP50D-DATE1
2. Simply enter the following lines into table T588Z:
0000 04 499*- LEAVING ACTION - Populate Infotypes with leave date -*
0000 04 500 P T001P-MOLGA='08'
0000 04 501 P PSPAR-TCLAS='A'
0000 04 502 P PSPAR-MASSN='*'/X   (* equals your leaving action types)
0000 04 503 P PSPAR-MASSN='*'/X   (* equals your leaving action types)
0000 04 504 F CHANGE_DATE(ZHR_PY_R0008)
0000 04 505 ******** INF.0041 ********
0000 04 506 I COP,0041,,,(P0000-BEGDA),(P0000-ENDDA)/D
0000 04 507 W P0041-DAR07='*'   (* equals your date type)
0000 04 508 W P0041-DAT07=RP50D-DATE1
or if you are simply looking to delimit IT0041 with the leave date then replace lines 506-508 with:
0000 04 506 I MOD,0041,,,(RP50D-DATE1),(RP50D-DATE1)/D
0000 04 507W     P0041-ENDDA=RP50D-DATE1
This will solve your problem : - )

HR_INFOTYPE_OPERATION not working when called from Dynamic action

Hi ,
       Senario : I would like to execute a form from dynamic action which
creates a record in 0015 (Additional payment IT) .
       I have writen the code as shown below am using FM HR_INFOTYPE_OPERATION
. When i execute the program from se38 it is creating a record, however it is
not created when it is called from dynamic action..when i debugged the code in
inside the FM HR_INFOTYPE_OPERATION there is a FM HR_MAINTAIN_MASTERDATA where
they are using call dialog (statement) and
sy-oncom = 'N'   when called from Dynamic action and
sy-oncom = 'S'   when called executed directly.
I tried to change the sy-oncom to S while run from Dynamic action it created
the record.
So Can anyone explain me abt sy-oncom and how can i resolve the issue..
code..
REPORT ZHRPYENH01 .
perFORM TERMIATION_9000.
INCLUDE DBPNPMAC.
      FORM Termiation_9000                                          *
FORM TERMIATION_9000.
INFOTYPES : 0015.
*data : i .
*i ='c'.
*break-point.
*message i000(000) with i.
TABLES : PRELP.
DATA : P9000 TYPE PA9000." with header line.
DATA : P0000 TYPE STANDARD TABLE OF P0000 WITH HEADER LINE.
DATA : P0015 TYPE STANDARD TABLE OF P0015 WITH HEADER LINE.
DATA : HIRE_DATE LIKE SY-DATUM,
         TERM_DATE LIKE SY-DATUM.
DATA : MOLGA LIKE T500L-MOLGA VALUE '25',
         SEQNR LIKE PC261-SEQNR.
DATA : RGDIR TYPE STANDARD TABLE OF PC261 WITH HEADER LINE.
DATA : ACTUAL_PERIOD LIKE PA9000-RETENTION.
DATA : PNP-SW-FOUND TYPE SY-SUBRC ,
         PNP-SY-TABIX TYPE SY-TABIX.
DATA : TER_PERNR LIKE PA0001-PERNR.
DATA : REF_PERNR LIKE PA0001-PERNR.
data : key type BAPIPAKEY.
data : payed_amount type p0015-BETRG.
data : future_payment_amount type p0015-BETRG.
data : p0002 like pa0002.
types : begin of t_deduction ,
          deducation_date like p0015-begda,
          future_payment_amount type p0015-BETRG.
types : end of t_deduction.
data : future_deduction type standard table of t_deduction with
*header line.
data : future_deduction type t_deduction .
data : RETURN type BAPIRETURN1.
*data : deduction_p0015 like standard table of p0015 with header line.
data : deduction_p0015 like p0015 .
xxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxx
****Prepare 0015 data for deduction
*deduction for payed amount
clear deduction_p0015.
*refresh deduction_p0015.
deduction_p0015-pernr = REF_PERNR.
*deduction_p0015-pernr = TER_PERNR.
deduction_p0015-lgart = 'M120'.
deduction_p0015-begda = sy-datum + 1 .
deduction_p0015-endda = sy-datum + 1 .
deduction_p0015-BETRG = payed_amount.
deduction_p0015-WAERS = 'SGD'.
deduction_p0015-ZUORD = TER_PERNR.
*append deduction_p0015.
**deduction for future payment amount
*loop at future_deduction.
*clear deduction_p0015.
*deduction_p0015-pernr = REF_PERNR.
**deduction_p0015-pernr = TER_PERNR.
*deduction_p0015-lgart = 'M120'.
*deduction_p0015-begda = FUTURE_DEDUCTION-DEDUCATION_DATE.
*deduction_p0015-endda = FUTURE_DEDUCTION-DEDUCATION_DATE.
*deduction_p0015-BETRG = future_deduction-future_payment_amount.
*deduction_p0015-WAERS = 'SGD'.
*deduction_p0015-ZUORD = TER_PERNR.
*append deduction_p0015.
*endloop.
Create a deduction wage type in 0015 for the employee
break-point.
CLEAR RETURN.
CALL FUNCTION 'BAPI_EMPLOYEET_ENQUEUE'
EXPORTING
    NUMBER              = REF_PERNR
    VALIDITYBEGIN       = '18000101'
IMPORTING
   RETURN              = return
if not return is initial.
message E000(000) with
'Referred Employee could not be locked for referal payment deducation,
please try after some time'.
endif.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
    INFTY                  = '0015'
    NUMBER                 = REF_PERNR
   SUBTYPE                = 'M120'
OBJECTID               =
LOCKINDICATOR          =
   VALIDITYEND            = SY-DATUM
   VALIDITYBEGIN          = SY-DATUM
RECORDNUMBER           =
    RECORD                 = deduction_p0015
    OPERATION              = 'COPY'
TCLAS                  = 'A'
   DIALOG_MODE            = '2'
NOCOMMIT               =
VIEW_IDENTIFIER        =
SECONDARY_RECORD       =
IMPORTING
   RETURN                 = return
   KEY                    = key
break-point.
COMMIT WORK.
if not return is initial.
*return-TYPE
*ID
*NUMBER
*MESSAGE
message I000(000) with return-MESSAGE.
endif.
CALL FUNCTION 'BAPI_EMPLOYEET_DEQUEUE'
EXPORTING
    NUMBER              = REF_PERNR
    VALIDITYBEGIN       = '18000101'
IMPORTING
   RETURN              = return
xxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxx
Thanks and regards
-Senthil Bala
Message was edited by: senthil bala

Hi Senthil
Why at all U want a subroutine to create a record in IT0015 through Dynamic action.There are some standard codes available to update infotypes.
Let me give U an example
14     9CON     BETRG     4     2     I     INS,0015 This will create a record in IT0015 when IT0014 is updated with Wagetype 9CON
14     9CON     BETRG     4     3     W     P0015-LGART='5400' Set wagetype for IT0015(Here U can use a subroutine call to set the wagetype)
14     9CON     BETRG     4     4     W     P0015-BETRG=P0014-BETRG set amount for IT0015(Here U can use a subroutine call to get the amount)
14     9CON     BETRG     4     5     W     P0015-BEGDA=P0014-ENDDA set the dates(Here U can use a subroutine call to set the dates)
Hope this will help U.
Please award points if helpful

HR Abap ques - Process Dynamic Actions in BDC mode

Hi friends.
We are using HR_INFOTYPE_OPERATION to update some infotypes. The problem is that dynamic action does not get triggered as SY-BINPT = 'X' when we use this FM or BDC to update.
Now, is there any workaround so that we can process dynamic actions via our program?
Can somehow we call the subroutine DYN_ACTION from our program? Can the values of PSAVE etc be availabe in our program?
Has someone done it before -> calling Dyn actions from your program?
Thanks in adv!

One more input -> I tried to include the MPPDAT00 in my main program and then call DYN_MEASURE in program <MPxxxx00>. But the values of PSAVE, DYNMEAS, etc don't seem to be there still.

Adding period to a date in Dynamic action

Hi Gurus,
We have a requirement where we need to create a IT2010 with a start date less than the action date.
For E.g If action is run on 02.07.2011 then IT 2010 should be created with 01.07.2011.
Please help.

Create program that can be called as a routine in Dynamic Action (table V_T588Z)
1.    Within the dynamic action, the routine (ZXXXX) will be called (Configured by the functional consultant) with the GETDATE subroutine:
P2010-BEGDA=RP50D-DATE1
2.     In the program, we need to minus 1 from the hire date.
Program     ZXXXX
Tables : P0000, rp50d
Form getdate
      Rp50d-date1 = p0000-begda u2013 1
Endform

How to Send Notification to Manager of the Employee using Dynamic Action..

Hi All,
I am sending a notification using the Dynamic Action for an Infotype.. I am able to send mail using distribution list but I have a requirement to send the notification to employee manager. I am able to determine the Line Manager ID calling the subroutine in the dynamic action. But I am not sure how to send the notification to the manager.
If the email's are maintained in distribution list if I specify the text id in the feature M0001 and distribution list the notifications are sent. I am not sure how to pass the line manager id to get the same notification..
I have seen the option REC1 but infotype 0001 in not having the line manager id..

Used the Function Module RH_GET_LEADING_POSITION.
Thanks..

Mail Via a Dynamic Actions

Hi all,
I have a problem with text scripts in SO10.
My dynamic action works and a mail is sent.
However not all of the information is included in the text.
I have a mail sent when a leaver action is made on an employee.
The mail details the name, pernr and position details but will not display the user log on in ifotype 105. P0105-USRID
I've check numerous employees who have that infotype and no data is brought through.
Is it because the action does not go through that infotype (105)??
Many thanks
Sam

Thanks
I've tried including in the action, but still no success as the mail is sent before that infotype is updated.
I've not used rp50d before. Any advice on how I go about creating this to call a subroutine? Basic details would be helpful...
Cheers,
- If you can help further I'll increase your points from 2 to 6 or even 10 ;0)

Dynamic Action-help needed

Hi ,
My requirement is in dynamic Action I need to delimit all records in a Subtype of an Infotype and create New record for these records with BEGDA as ENDDA + 1 of the delimited records.
Iam able to delimit all records in the Subtype but , Iam not able to create new records.
My code for delimiting is as given below, in T588Z,
9901 2 06 801 P P9901-SUBTY='2'
9901 2 06 802 P PSYST-IOPER='MOD'
9901 2 06 803 P P9901-STATS='X'
9901 2 06 804 P P9901-PREAS='91'
9901 2 06 805 F DELIMIT_DTE(ZHSRAS_T588Z_9901)
9901 2 06 806 W P9901-ENDDA=RP50D-ZZDATE3
9901 2 06 807 I MOD,9901,3
9901 3 06 808 P SY-UCOMM='UPD'
9901 3 06 809 F DELIMIT_DTE(ZHSRAS_T588Z_9901)
9901 3 06 810 W P9901-ENDDA=RP50D-ZZDATE3
The above code is working fine.
My code for creating new record is as given below, even though the control is oing to the subroutine, INS statement is not working, and hence new record is not getting created.
9901 3 06 811 P SY-UCOMM='UPD'
9901 3 06 812 P PSAVE-ENDDA<>P9901-ENDDA
9901 3 06 813 P P9901-STATS<>'X'
9901 3 06 814 I INS,9901,3
9901 3 06 815 F BEGIN_DATE(ZHSRAS_T588Z_9901)
9901 3 06 816 W P9901-BEGDA=RP50D-ZZDATE3
9901 3 06 817 W P9901-ENDDA='99991231'
Kindly help me on this.
Thanks in Advance

hi,
thankyou for all ur valuable replies.
Time constraint for this custom infotype is 2.
It is not allowing to create a new subtype record if 1 exists.
Here scenerio is
Each Subtype ,ie, Subtp 2 ad 3 has got 4 records each with distinct OBJPS field.
when STATS field of subtype 2 is changed for any 1 record in Subtype 2, corresponding record in Subtype 3 should get delimited .
And, rest of the records of Subtype 3 should get created again with new start date.
The code I have written for this is ,
9901 2 06 800 *BEG*****DEATH OF WIDOW*****************
9901 2 06 801 P P9901-SUBTY='2'
9901 2 06 802 P PSYST-IOPER='MOD'
9901 2 06 803 P P9901-STATS='X'
9901 2 06 804 F DELIMIT_DTE(ZHSRAS_T588Z_9901)
9901 2 06 805 W P9901-ENDDA=RP50D-ZZDATE3
9901 2 06 806 * ****PSAVE-ENDDA<>P9901-ENDDA
9901 2 06 807 F LOCK_REC3(ZHSRAS_T588Z_0015)
9901 2 06 808 I MOD,9901,3,P9901-OBJPS,(P9901-BEGDA),(P9901-ENDDA)
9901 2 06 812 * *BEGCREATE NEW REC FOR SURVIVING WIDOWS******
9901 2 06 813 * *
9901 2 06 814 P P9901-STATS<>'X'
9901 2 06 815 F BEGIN_DATE(ZHSRAS_T588Z_9901)
9901 2 06 816 W P9901-BEGDA=RP50D-ZZDATE3
9901 2 06 817 W P9901-ENDDA='99991231'
9901 2 06 818 I COP,9901,3,P9901-OBJPS,(P9901-BEGDA),(P9901-ENDDA)
9901 2 06 819 * *ENDCREATE NEW REC FOR SURVIVING WIDOWS*****
9901 2 06 830 * ***END*****DEATH OF WIDOW*****************
Control is going to all routines, but
MOD,9901,3,P9901-OBJPS,(P9901-BEGDA),(P9901-ENDDA) and
COP,9901,3,P9901-OBJPS,(P9901-BEGDA),(P9901-ENDDA) is not working.
Message was edited by: Shahana Shahul
Message was edited by: Shahana Shahul

Dynamic actions - how to create an infotype with a date - 1 day.

Hi everyone,
I need a requirement to change an infotype through dynamic action with ENDDA = BEGDA of maintaned infotype(0000) - 1 day.
In other words when a personel action is performed, another infotype (2001) should appear for change, and in the validity period of this infotype should end with the day before the start of the personel action.
is it possible to achieive this using dynamic actions? how?
Thanks!
Stanislaw Adamski

Hi Adamski,
A dynamic action has the following components.
Infotype Number (INFTY): specifies the infotype for which you want the dynamic action triggered
Subtype (SUBTY): narrows the focus to a specific subtype
Field Name (FIELDN): starts your action when a maintenance function is performed on a particular field
Function (FC): specifies the various maintenance operations to which your dynamic action would respond. They are 02 (change); 04 (create); 06 (create and change); 08 (delete); 10 (change and delete); 12 (create and delete). Dynamic actions are only applicable in maintenance operations, not in display functions.
Sequence Number (NO): refers to a sequential number.
Step (A): specifies a particular type of action. No dynamic action is executed if the function character has a value other than one of the following:
             P: Plausibility checks, which allow you to check certain conditions.
             I: Calls an infotype for processing
             W: Called after the I statement and used to assign values to screen fields while creating or copying another infotype record through the I statement
              F: Calls a FORM routine (subroutines in ABAP) during your action. The routine may reside in or out the module pool MPNNNN00.
             V: Lets you treat collectively a number of fields for which you want to define a common dynamic action
              M: Sends SAP Office mail
Variable function part: The variable function part along with the step indicator forms the core part of your action. It specifies the processing details when the dynamic action is triggered. For example:
you have to look for the scenario what you are planning tyo create .
The maintenance of dynamic actions is done via the view V_T588Z, as shown in 1 (IMG menu path Personnel Management>Global Settings in Personnel Management>Basic Settings>Infotypes>Create Dynamic Actions
Here you havev to use conditions INS for the infotype what you want to create..
Please brief the light on the scenario.
Warm Regards,
Kapil Kaushal

HR_INFOTYPE_OPERATION within Dynamic Action

Hello,
I am calling HR_INFOTYPE_OPERATION from within the Dynamic Action. I can debug through it and even have it display the screens and everything appears to work fine. The return structure is clear of any errors and the key structure indicates that the 'MOD' was done with no problem. The infty is 2012.
However once the dynamic action is complete the 2012 records have not been updated. I am passing blank for the no_commit parameter on the FM.
Does HR_INFOTYPE_OPERATION with a 'MOD' operation work from within the dynamic action?
Regards,
Jeff

Hi Jeff,
I am not sure if I get you right. But as for DB commit, it will be triggered automatically once SUBMIT statement is executed (as work process is released). What I have in my program is as follows:
- in T588Z table (dyn.actions) I have invoked subroutine from my custom program
POPUP_SELECTION_FOR_IT0015((YPLPY_PRO_RE_QUOTAGEN1).
- In this YPLPY_PRO_RE_QUOTAGEN1 program I write subroutine wherein I do some coding and submit another report (which do real update).
form POPUP_SELECTION_FOR_IT0015.
"some coding - in my case I am filling P0015 strcutre (as this infotype has to be udpdated) while dyn. action is triggered for IT2002
    P0015-PERNR = LS_PSKEY-PERNR = P2002-PERNR.
    P0015-SUBTY = LS_PSKEY-SUBTY = P0015-LGART = LGART = IT_RET-FIELDVAL.
    P0015-BEGDA = LS_PSKEY-BEGDA = DATUM.
    P0015-ENDDA = LS_PSKEY-ENDDA = DATUM.
    P0015-UNAME = UNAME.
    P0015-INFTY = LS_PSKEY-INFTY = '0015'.
   "before I am submiting another program I am passing this strcuture
    export P0015 = P0015 PSKEY = LS_PSKEY to memory id 'ZXPADU02_P0015'.
    submit YPLPY_PRO_RE_ZXPADU02_2002
           and return.
- Now the below program creates my IT0015 and the same time changes to IT2002 are written (DB commit is triggered with SUBMIT)
REPORT yplpy_pro_re_zxpadu02_2002.
data: p0015 like p0015.
data: ls_return TYPE bapireturn1,
      ls_pskey like pskey.
IMPORT p0015 = p0015 pskey = ls_pskey FROM MEMORY ID 'ZXPADU02_P0015'.
CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
EXPORTING
    number = ls_pskey-pernr.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
    infty                  = ls_pskey-infty
    number                 = ls_pskey-pernr
    subtype                = ls_pskey-subty
    validityend            = ls_pskey-endda
    validitybegin          = ls_pskey-begda
    record                 = p0015
    operation              = 'INS'
    dialog_mode            = '2'
IMPORTING
    return                 = ls_return.
IF NOT ls_return IS INITIAL AND
   ls_return-type EQ 'E'.
MESSAGE e000(38) WITH ls_return-message.
ENDIF.
"unlock the EE
CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
EXPORTING
    number = ls_pskey-pernr.
Works fine for me.
Regards
Marcin

HR_INFOTYPE_OPERATION called inside Dynamic action

I am writing a subroutine called by dynamic action.
Where using FM 'HR_INFOTYPE_OPERATION' i have to delimit or delete the records of infotype 0167.
Although, HR_INFOTYPE_OPERATION, is executing with return is 0. but there is no change in the infotype reocrd.
The same code written independent without called from Dynamic action, infotype record is been updated.
Any help would be highly appriciated.
Regards
Manvir

Also look at thread !!
Re: Strange behavior of FM u0093HR_MAINTAIN_MASTERDATA u0093
and
Re: Why does the NOCOMMIT parameter not work in HR_INFOTYPE_OPERATION?
Id recommend you to write BDC program . This FM is behaving in a weird way!!!
I used it only for 'INS' ...
Hope thisll give you idea!!
P.S award the points.
Good luck
Thanks
Saquib Khan
"Some are wise and some are otherwise"

HR_INFOTYPE_OPERATION from dynamic action?

hi
plz send me the sample code for calling subroutine (using the above mentioned FM) from dynamic action ..
Regds
Gunjan

It's here a little example.
FUNCTION ZHR_INFOTYPE_OPERATION.
*"*"Lokale Schnittstelle:
*" IMPORTING
*"     VALUE(ZINFTY) LIKE PRELP-INFTY
*"     VALUE(ZNUMBER) LIKE P0001-PERNR
*"     VALUE(ZSUBTYPE) LIKE P0001-SUBTY OPTIONAL
*"     VALUE(ZOBJECTID) LIKE P0001-OBJPS OPTIONAL
*"     VALUE(ZLOCKINDICATOR) LIKE P0001-SPRPS OPTIONAL
*"     VALUE(ZVALIDITYEND) LIKE P0001-ENDDA OPTIONAL
*"     VALUE(ZVALIDITYBEGIN) LIKE P0001-BEGDA OPTIONAL
*"     VALUE(ZRECORDNUMBER) LIKE P0001-SEQNR OPTIONAL
*"     VALUE(ZRECORD)   type p0014 "use the infotype number you need
*"     VALUE(ZOPERATION) LIKE PSPAR-ACTIO
*"     VALUE(ZTCLAS) LIKE PSPAR-TCLAS DEFAULT 'A'
*"     VALUE(ZDIALOG_MODE) TYPE C DEFAULT '0'
*"     VALUE(ZNOCOMMIT) LIKE BAPI_STAND-NO_COMMIT OPTIONAL
*"     VALUE(ZVIEW_IDENTIFIER) LIKE P0003-VIEKN OPTIONAL
*"     VALUE(ZSECONDARY_RECORD) OPTIONAL
*" EXPORTING
*"     VALUE(ZRETURN) LIKE BAPIRETURN1 STRUCTURE BAPIRETURN1
*"     VALUE(ZKEY) LIKE BAPIPAKEY STRUCTURE BAPIPAKEY
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
    EXPORTING
      number = znumber.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
    EXPORTING
      infty         = zinfty
      number        = zpernr
      subtype       = zsubty
      objectid      = zobjps
      lockindicator = zsprps
      validityend   = zvalidityend
      validitybegin = zvaliditybegin
      recordnumber = zrecordnumber
      record        = zrecord
      dialog_mode   = zdialog_mode
      operation     = zmod
    IMPORTING
      return        = zreturn.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
    EXPORTING
      number = znumber..
COMMIT WORK AND WAIT.
endfunction.
bye
enzo

HR Dynamic Actions Subroutine

Similar Messages

Maybe you are looking for