ABAP Help Req

Question

Hi,
Can some one give me ABAP code for the following transfer rules logic,
Data is coming from a flat file and the amount (0DEB_CRE_LC) is the value in local currency. There is no field in the file which says currency (USD or GBP) so depending on the company code the local currency filed needs to be populated.
Here are the fields:
Company code - 0COMP_CODE
Debit/Credit Amount - 0DEB_CRE_LC
Local currency - 0LOC_CURRCY
For company code 0001, 0002 and 003 local currency field should be USD and for company code 0005 and 006 local currency field should be GBP.
Thank you,
Sam

Answer 1

Should it be RESULTCODE = 0. or RETURNCODE = 0.
Now I get the following message:
incorrect nesting: Before the statement "ENDFORM", the structure introduced by "IF" must be concluded with "ENDIF". –
here is the code
ORM COMPUTE_LOC_CURRCY
  USING    RECORD_NO LIKE SY-TABIX
           TRAN_STRUCTURE TYPE TRANSFER_STRUCTURE
           G_S_MINFO TYPE RSSM_S_MINFO
  CHANGING RESULT TYPE /BI0/OILOC_CURRCY
           G_T_ERRORLOG TYPE rssm_t_errorlog_int
           RETURNCODE LIKE SY-SUBRC
           ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel datapackage
$$ begin of routine - insert your code only below this line        -
DATA: l_s_errorlog TYPE rssm_s_errorlog_int.
IF TRAN_STRUCTURE-COMP_CODE = '0600'.
RESULT = 'USD'.
ELSE.
IF TRAN_STRUCTURE-COMP_CODE = '0112'.
RESULT = 'GBP'.
ELSE.
RESULT = ''.
ENDIF.
returncode <> 0 means skip this record
  RETURNCODE = 0.
abort <> 0 means skip whole data package !!!
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.