Creation of record in 2001 using FM - HR_INFOTYPE_OPERATION

Question

Hi fellow ABAP,
I'm new to using HR_INFOTYPE_OPERATION, I want to make this one an alternative way to create record in IT 2001 instead of using Batch Input.. but it returns me error
Runtime Errors:         ASSIGN_BASE_TOO_SHORT
Short text        :        Fehler in ASSIGN-Zuweisung im Programm "SAPLHRMM".
I ran HR_INFOTYPE_OPERATION at SE37 with these parameters:
INFTY                   =    '2001'
NUMBER              =    '00001003'
SUBTYPE             =    '2250'
OBJECTID             =   ' '
LOCKINDICATOR   =   'X'
VALIDITYEND        =   '06/02/2009'
VALIDITYBEGIN     =   '06/02/2009'
RECORDNUMBER =   '000'
RECORD               =   '2001'
OPERATION          =   'CREATE'
TCLAS                   =   'A'
DIALOG_MODE      =   '0'
NOCOMMIT            =   'X'
VIEW_IDENTIFIER  =   ' '
SECONDARY_RECORD =  ' '
is there something I missed? and how can I pass value for the creation of IT2001?
thanks so much in advance...

Answer 1

Hi Dude,
Go through this code for 2002..
tables: pa0001, pa0171, pa0378.
DATA  BEGIN OF i0378.
        include structure p0378.
DATA  END   OF i0378.
DATA: START_DATE LIKE SY-DATUM.
DATA  RETURN LIKE  BAPIRETURN1.
selection-screen begin of block p1.
* This select option allows for testing on limited employees
* or for splitting the update into multiple runs.
SELECT-OPTIONS pernr for pa0001-pernr.
selection-screen end of block p1.
selection-screen skip.
selection-screen begin of block b1.
* The plan year date is normally the first day of the next year
PARAMETERS: py_date LIKE SY-DATUM.
* This date is the beginning of the enrollment period for managers
PARAMETERS: MGR_DATE LIKE SY-DATUM.
* This date is the beginning of the enrollment period for hourlys
PARAMETERS: HRLY_DATE LIKE SY-DATUM.
selection-screen end of block b1.
INITIALIZATION.
  py_date = sy-datum.
  py_date(4) = py_date(4) + 1.
  py_date+4(4) = '0101'.
START-OF-SELECTION.
select * from pa0171
  where pernr in pernr
    and endda ge py_date
    and begda le py_date.
* skip ineligible employees
  if pa0171-bstat eq 'INEL'.
    continue.
  endif.
* determine start date of enrollment based on benefit group
  if pa0171-bengr eq 'MNGR'.
    start_date = mgr_date.
  elseif pa0171-bengr eq 'HRLY'.
    start_date = hrly_date.
  else.
*   ERROR HANDLING GOES HERE
    continue.
  endif.
* create IT0378 record for this person   
  clear i0378.
  i0378-pernr = PA0171-pernr.
  i0378-barea = PA0171-barea.
  i0378-event = 'OPEN'.
  i0378-begda = start_date.
  i0378-infty = '0378'.
  i0378-aedtm = sy-datum.
  i0378-uname = sy-uname.
  CALL FUNCTION 'HR_INFOTYPE_OPERATION'
       EXPORTING
            INFTY         = '0378'
            NUMBER        = i0378-pernr
            SUBTYPE       = 'OPEN'
            VALIDITYBEGIN = i0378-begda
            RECORD        = i0378
            OPERATION     = 'INS'
       IMPORTING
            RETURN        = return
       EXCEPTIONS
            OTHERS        = 1.
  if sy-subrc ne 0 or return-type ne ' '.
*   ERROR HANDLING GOES HERE
  endif.
ENDSELECT.