Initials (Field PA0002-INITS) of the Partner ZI (Introducing Employee)

Question

I need to write a routine, which need to get the Initials from the HR, by using pernr, and this should be apears on the Quotationsheet, behind the ZI Introducing Employee, so far I have written a Routine like following, since I am still a Amature, need kindly some help. thanks in Advance.
FORM GET_ZI_INITS TABLES
PARAMS STRUCTURE ITCSY.
RESULT STRUCTURE ITCSY.
DATA:
  VBELN LIKE VBDKR-VBELN,          
  INITS LIKE PA0002-INITS,
  AUDAT LIKE Document Nr. but from which Table?
read parameters
  READ TABLE PARAMS WITH KEY 'VBELN'.     
  MOVE PARAMS-value TO VBELN.
get personnel number of introducing employee (ZI)
  SELECT-SINGLE INITS FROM PA0002
    WHERE
      PERNR EQ pernr_zi and     " introducing employee number
      ENDDA GE AUDAT    and     " document date               BEGDA LE AUDAT.
  IF SY-SUBRC NE 0.
    " Not good                         <- what do we do if not good?
  ENDIF.
  IF SY-SUBRC = 0.
    VBELN = VBDKR-VBELN.               <- VBDKR-VBELN is not defined
  ENDIF.
get initials of personnel.
  READ pernr_zi WITH KEY NAME = 'PA0002-INITS'. MOVE pernr_zi  TO INITS.
  ... <- please add this part
  READ TABLE RESULT WITH KEY 'ZI_INITS'.
  IF SY-SUBRC = 0.
    WRITE ZI_INITS TO RESULT-VALUE.
    MODIFY RESULT INDEX SY-TABIX.
  ENDIF.
ENDFORM.                               "get_ZI_INITS

Answer 1

Hi sean,
1. I understood your requirement.
2. This is the rectified code.
REPORT abc.
*&      Form  GET_ZI_INITS
      text
     -->PARAMS     text
     -->RESULT     text
FORM get_zi_inits TABLES
params STRUCTURE itcsy
result STRUCTURE itcsy.
  DATA:
  vbeln LIKE vbdkr-vbeln,
  inits LIKE pa0002-inits,
  audat LIKE sy-datum.
*------- Data for introducing pernr
  DATA :  pernr LIKE p0001-pernr.
read parameters
  READ TABLE params WITH KEY 'VBELN'.
  MOVE params-value TO vbeln.
Read PERNR
  READ TABLE params WITH KEY 'PERNR_ZI'.
  MOVE params-value TO pernr.
get personnel number of introducing employee (ZI)
  SELECT SINGLE inits FROM pa0002
  INTO inits
  WHERE
  pernr EQ pernr AND " introducing employee number
  endda >= sy-datum AND begda <= sy-datum.
Output Values
  READ TABLE result WITH KEY 'ZI_INITS'.
  IF sy-subrc = 0.
    WRITE inits TO result-value.
    MODIFY result INDEX sy-tabix.
  ENDIF.
ENDFORM. "get_ZI_INITS
regards,
amit m.