*таблица в которую записываю свои обьекты
t_gps TYPE /bb_tab_cl_gpartner,

* Это пару параметров её
GPNR        Instan    Priv    Type BU_PARTNER
BHWNR     Instan    Priv    Type BP_IDNUM
BHWPROD Instan    Priv    Type FIPR_T_PRODINT
......

* пару метод
CONSTRUCTOR      Instan    Publ K
GET_GPNR            Instan    Publ M
SET_BHWNR         Instan    Publ M
GET_BHWNR         Instan    Publ M
......

*здесь декларирую обьекты.
ref_gpartner type ref to cl_gpartner,
ref_gpgruppe type ref to cl_gp_gruppe.
*Структуры у этих обьектов почти одиннаковые, только
в ref_gpgruppe можно запоковать обьекты ref_gpartner.


* здесь закладывается обьект и записывается в таблицу t_gps


Do много_раз.
create object ref_gpartner exporting gp_nr = <fs_partner_type>-gpnr.
call method ref_gpartner->set_gpart( 'Person' ).
insert ref_gpartner into table t_gps.

......



*после всех обработак, стираю таблицу, с надеждой, что  обьекты удаляться тоже, но к сожелению, этого не  происходит
free t_gps.
ENDDO.

METHOD CONSTRUCTOR.
  L_DOKNR = I_DOKNR.
  SELECT SINGLE * FROM DRAW INTO L_DRAW WHERE DOKNR = L_DOKNR.
ENDMETHOD.

METHOD TESTRUCTOR.
  CLEAR: L_DOKNR, L_DRAW.
  FREE: L_DOKNR, L_DRAW.
  CALL METHOD CL_GUI_CFW=>FLUSH.
ENDMETHOD.