Skip to Content
0
Former Member
Feb 29, 2008 at 02:56 PM

Plz tell me how this method is populating a field???

26 Views

&----


*& Include ZP_CL_BBP_DOGUID_ASSIGN

&----


CLEAR: lr_typede, lr_elemde, lv_cl_attr.

lr_typede = cl_abap_typede=>describe_by_data( RESULT ).

lr_elemde ?= lr_typede.

lv_result = lr_elemde->help_id.

REPLACE FIRST OCCURRENCE OF '/BIC/OI' IN lv_result WITH '/BIC/'.

REPLACE FIRST OCCURRENCE OF '/BI0/OI' IN lv_result WITH ''.

ASSIGN lo_bbp_doguid->(lv_result) to <RESULT>.

IF sy-subrc = 0.

  • result value of the routine

RESULT = <RESULT>.

ELSE.

CLEAR RESULT.

ENDIF.

method DESCRIBE_BY_DATA .

data:

CRC type F.

  • get administration information

system-call describe administration

mode 'F' of P_DATA into ADMIN_TAB_LINE-XTYPE

CRC

ADMIN_TAB_LINE-KIND.

  • look at hash tabel wether descr object already exists

read table ADMIN_TAB from ADMIN_TAB_LINE into ADMIN_TAB_LINE.

if SY-SUBRC = 0.

P_DESCR_REF ?= ADMIN_TAB_LINE-REF->GET( ).

if P_DESCR_REF is bound.

return.

endif.

delete table ADMIN_TAB from ADMIN_TAB_LINE.

endif.

  • create new descr object

case ADMIN_TAB_LINE-KIND.

when KIND_ELEM.

raise event CREATE_ELEMDESCR

exporting XTYPE = ADMIN_TAB_LINE-XTYPE.

when KIND_REF.

raise event CREATE_REFDESCR

exporting XTYPE = ADMIN_TAB_LINE-XTYPE.

when KIND_STRUCT.

raise event CREATE_STRUCTDESCR

exporting XTYPE = ADMIN_TAB_LINE-XTYPE.

when KIND_TABLE.

raise event CREATE_TABLEDESCR

exporting XTYPE = ADMIN_TAB_LINE-XTYPE.

endcase.

create object ADMIN_TAB_LINE-REF exporting OREF = RETURNING_REF.

insert ADMIN_TAB_LINE into table ADMIN_TAB.

P_DESCR_REF = RETURNING_REF.

clear RETURNING_REF.

endmethod.

I hardly understood ..from where the data is coming ???from which table....as this include is populating 1 field of my internal table .

Can anybody tell..from which table the data is being fetched???