Function module in abap hr

Question

Hi friends
i am new to abap.....i was given a funtion module to work on.. here i  am sending the req...can any one plz tell how to write code for the following:
This is recivel of IBG bank account number. only 2 banks hsbc(Bank code = 7232)
lenght 4 and ocbc(bank code = 7339)lenght 3.
Importing parameters criteria:
Field Name      Data element    datatype  type   description
IM_Bankkey       bankl          char(15)    import  bank key
IM_bankactno     bankn          char(18)    import   bank acc no
Exporting Parameters:
Field Name      Data element    datatype  type   description
ex_ibgbankacct   n/a             char(16)  epxort return parameter
e_errormsg       n/a             char(20)  export return parameter
Now the logic:
Extract bank code from im_bankkey
extract 4 characters of im_bankkey into im_bankcd and process the following step
if ocbc bank(bank code = 7339) and hsbc bank (Bank code = 7232)
then truncate the 1st 2nd 3rd digits of im_bankacctno
ex_ibgbankacct = truncated im_bankacctno.
else
ex_ibgbankacct = im_bankactno
end if(end of chk for bank code)
ex_ibgbankact = extract from 1st to 16 character of ex_ibgbankacct.
plz help me to write the code????

Answer 1

Hi Purnima,
Try the code like below.
FUNCTION ztest440.
""Local Interface:
*"  IMPORTING
*"     REFERENCE(IM_BANKKEY) TYPE  BANKL
*"     REFERENCE(IM_BANKACTNO) TYPE  BANKN
*"  EXPORTING
*"     REFERENCE(EX_IBGBANKACCT) TYPE  CHAR16
*"     REFERENCE(E_ERRORMSG) TYPE  CHAR20
  DATA : im_bankcd TYPE char4.
  im_bankcd = im_bankkey+0(4).
  IF im_bankcd EQ '7339' OR
     im_bankcd EQ '7232'.
    ex_ibgbankacct = im_bankactno+3(15).
  ELSE.
    ex_ibgbankacct = im_bankactno+0(16).
  ENDIF.
  ENDFUNCTION.
Hope this will resolve your problem.
Reward if it is helpfull..