Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK block10 WITH FRAME TITLE text-001.
* Starting EE
SELECT-OPTIONS: p_start FOR pa9024-pernr NO INTERVALS
MATCHCODE OBJECT prem.
PARAMETERS: p_year TYPE zp_pyear OBLIGATORY DEFAULT 2005.
PARAMETERS: p_status TYPE pa9024-stats OBLIGATORY DEFAULT 3.
SELECTION-SCREEN END OF BLOCK block10.
LOOP AT ausgabe INTO wa_ausgabe.
wa_ausgabe-stats = p_status.
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = wa_ausgabe-pernr
IMPORTING
return = l_bapireturn.
IF NOT l_bapireturn IS INITIAL.
WRITE: /'There was an error with locking ID: ', ausgabe-pernr.
ENDIF.
ENDLOOP.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty =
number =
* SUBTYPE =
* OBJECTID =
* LOCKINDICATOR =
* VALIDITYEND =
* VALIDITYBEGIN =
* RECORDNUMBER =
record =
operation =
* TCLAS = 'A'
* DIALOG_MODE = '0'
* NOCOMMIT =
* VIEW_IDENTIFIER =
* SECONDARY_RECORD =
* IMPORTING
* RETURN =
* KEY =
.