CRM IPC issue

I am facing an issue while working in IPC part of CRM. I need to write a IPC class for the following logic written in ECC in CRM JAVA.

IF XVAKEY IS NOT INITIAL AND komp-kposn IS NOT INITIAL.
*      select KSCHL from T685A into table t_kschl
*        where kofrs = '901'.
*      READ TABLE t_kschl into wa_kschl with key KSCHL = .
      if GKOMV_KEY-KSCHL = 'ZR00'.
      CLEAR : w_passvalue.
      if t_komp_tmp[] is INITIAL.
        w_passvalue = 'X'.
      else.
        w_passvalue = 'X'.
      LOOP AT t_komp_tmp INTO wa_komp_tmp.
        READ TABLE tkomp INTO wa_komp with key kposn = wa_komp_tmp-kposn.
        IF wa_komp-zzmvgr3 = komp-zzmvgr3.
          clear w_passvalue.
        ENDIF.
      ENDLOOP.
      endif.
      clear wa_komp.
      READ TABLE t_komp_tmp INTO wa_komp_tmp with key kposn = komp-kposn .
      if sy-subrc = 0 .
         w_passvalue = wa_komp_tmp-passvalue.
       else.
         wa_komp_tmp-kposn = komp-kposn.
         wa_komp_tmp-passvalue = w_passvalue.
         APPEND wa_komp_tmp to t_komp_tmp.
       endif.
      endif.
      IF w_passvalue IS NOT INITIAL.
        xkwert = 1000 .
      ENDIF.
      endif.

The above formula is ScalebaseFormula. Even if there are some examples for Scalebaseformula that should help.

Regards,

Pranay