URGENT ** ABAP ROUTINE HELP

Question

Hi gurus,
             I am write a ABAP routine to fetch G/L acount form zpur_acc DSO for a joining consition of PO # and line item #.
I am not etting the desired result. Can some one please lookinto the code and debug it.
Here I am reading OI_EBELN and OI_EBELP from the incoming data but since I am in BI7.0 how can I use info object (OI_EBELN , OI_EBELP) directly or it should be referenced via communication structure-filed name? What is the name of communication structure in Bi 7.0?
data: wa_tab type /BIC/AZPUR_ACC00.
select single * into wa_tab from /BIC/AZPUR_ACC00
where
OI_EBELN = wa_tab-OI_EBELN
and
OI_EBELP = wa_tab-OI_EBELP.
*and objvers = 'A'.
result = wa_tab-GL_ACCOUNT.
Warm Regards,
Anil

Answer 1

METHOD compute_0GL_ACCOUNT.
  IMPORTING
    request     type rsrequest
    datapackid  type rsdatapid
   EXPORTING
     RESULT type tys_TG_1-GL_ACCOUNT
    DATA:
      MONITOR_REC    TYPE rsmonitor.
$$ begin of routine - insert your code only below this line        -
... "insert your code here
*--  fill table "MONITOR" with values of structure "MONITOR_REC"
*-   to make monitor entries
data: wa_tab type /BIC/AZPUR_ACC00.
select single * into wa_tab from /BIC/AZPUR_ACC00
where
OI_EBELN = wa_tab-OI_EBELN
and
OI_EBELP = wa_tab-OI_EBELP.
*and objvers = 'A'.
*result = wa_tab-GL_ACCOUNT.
... "to cancel the update process
   raise exception type CX_RSROUT_ABORT.
... "to skip a record
   raise exception type CX_RSROUT_SKIP_RECORD.
... "to clear target fields
   raise exception type CX_RSROUT_SKIP_VAL.
     RESULT = wa_tab-GL_ACCOUNT.
$$ end of routine - insert your code only before this line         -
  ENDMETHOD.                    "compute_0GL_ACCOUNT