[BIIP] example of self define class for BIIP BPS function type
method IF_RSPLFA_SRVTYPE_IMP_EXEC~EXECUTE.
DATA: l_r_param_elem TYPE REF TO if_rsplfa_param_elem,
l_r_param_keyf_sel TYPE REF TO if_rsplfa_param_keyf_sel,
l_t_keyfnm TYPE rsplf_t_keyfnm,
l_r_param_value TYPE CHAR10,
l_kyf TYPE rsiobjnm.
DATA: RECORDS TYPE I,
LT_DATA_1 TYPE /BIC/AZOPHPTNT00,
LT_DATA TYPE TABLE OF /BIC/AZOPHPTNT00 WITH DEFAULT KEY .
DATA: BEGIN OF LS_DATA,
ZPHASESTR TYPE /BIC/AZOPHPTNT00-/BIC/ZPHASESTR,
ZPHASEEND TYPE /BIC/AZOPHPTNT00-/BIC/ZPHASEEND,
ZPHASESEQ TYPE /BIC/AZOPHPTNT00-/BIC/ZPHASESEQ,
ZPHASE TYPE /BIC/AZOPHPTNT00-/BIC/ZPHASE,
END OF LS_DATA.
*data: i_d like sy-index.
*do.
*if i_d = 2.
*exit.
*else.
*endif.
*enddo.
FIELD-SYMBOLS:
LOOP AT c_th_data ASSIGNING
move-corresponding
LT_DATA_1-/BIC/ZPHASESTR = LS_DATA-ZPHASESTR.
LT_DATA_1-/BIC/ZPHASEEND = LS_DATA-ZPHASEEND.
LT_DATA_1-/BIC/ZPHASESEQ = LS_DATA-ZPHASESEQ.
LT_DATA_1-/BIC/ZPHASE = LS_DATA-ZPHASE.
COLLECT LT_DATA_1 INTO lt_DATA.
ENDLOOP.
CALL FUNCTION 'RSDRI_ODSO_DELETE_RFC'
EXPORTING
I_ODSOBJECT = 'ZOPHPTNT'
I_DELETE_ALL = 'X'.
CALL FUNCTION 'RSDRI_ODSO_MODIFY'
EXPORTING
I_ODSOBJECT = 'ZOPHPTNT'
I_T_MODIFY = LT_DATA
IMPORTING
E_RECORDS = RECORDS.
* l_r_param_elem = i_r_param_set->get_param_elem( 'PLNVER' ).
*l_r_param_elem->get_value( IMPORTING E_VALUE = l_r_param_value ).
* l_r_param_keyf_sel = i_r_param_set->get_param_keyf_sel( 'KYFSEL' ).
* l_t_keyfnm = l_r_param_keyf_sel->get_t_keyfnm( ).
*
endmethod.
<< Home