Maka i roto i te kaupapa ABAP

KAUPAPA a1 WHAKAMAHI.
 WAIHANGA PUBLIKA.
 NGĀ RARAUNGA: nama1 MOMO me te uara 100.
 TIKANGA:m1.
 KAUPAPA.
 KAUPAPA a1 TE WHAKAMAHI.
 KAUPAPA m1.
 TUHINGA: 'a1:',num1.
 KAUPAPA KAUPAPA.
 KAUPAPA.
 TE KAUPAPA b1 WHAKAMAHI KI TE WHIRITANGA MAI A1.
 WAIHANGA PUBLIKA.
 TIKANGA:m2, m1 WHAKAMAHI.
 KAUPAPA.
 TE KAUPAPA b1 TE WHAKAMAHI.
 KAUPAPA m1.
 nama1 = nama1 .
 TUHINGA: 'b1:',num1.
 KAUPAPA KAUPAPA.
 KAUPAPA m2.
 TUHINGA: 'M2 i te akomanga b1'.
 KAUPAPA KAUPAPA.
 KAUPAPA.
 TE WHAKATAKITANGA.
 NGĀ RARAUNGA: he MOMO REF KI a1.
 NGĀ RARAUNGA: b MOMO REF KI b1.
 *raraunga: c momo REF KI c1.
 ************************************************* ************** TE WAIHANGA OBJE b.
 a = b.  "whakaahua i te tikanga KARANGA a->m1().
 *Karangatia te KAUPAPA a->m2( ).  "Kaore e taea e taatau te uru atu ki nga tikanga o te karaehe iti ma te whakamahi i te super class ref.
 RAINA-HOU.
 b ?= a.  " te tuku iho KAUPAPA KARANGA b->m1( ).
 RAINA-HOU.
 KAUPAPA KARANGA b->m2( ).
 ************************************************* *************** " hapa null ref hanga OBJECT a.
 b ?= a.  "Maka iho tonu tona tuku putunga karanga METHOD b->m1( ).
 ************************************************* **************** HANGA TANGATA a.
 TAMATARAA.
 b ?= a.  "I ngana koe ki te whakamahi i te putunga tohutoro ahanoa 'NULL' CATCH cx_sy_move_cast_error.
 KAUPAPA KARANGA b->m1( ).
 WHAKAMUTUNGA.
 ************************************************* **************** HANGA TANGATA a.
 TE WAIHANGA KORERO b.
 TAMATARAA.
 b ?= a.
 CATCH cx_sy_move_cast_error.
 KAUPAPA KARANGA b->m1( ).
 karanga KAUPAPA b->m2( ).
 WHAKAMUTUNGA.
 KAUPAPA lcl_ahua WHAKAMAHI.
 WAIHANGA PUBLIKA.
 KAUPAPA tuhi.
 KAUPAPA.
 KAUPAPA lcl_circle WHAKAMAHI KAUPAPA MAI I te ahua_lcl.
 WAIHANGA PUBLIKA.
 TIKANGA: tuhi REDEFINITION, calc_area.
 KAUPAPA.
 KAUPAPA lcl_ahua WHAKATAHI.
 KAUPAPA tuhi.
 TUHI:/ 'Te tuhi i tetahi ahua'.
 KAUPAPA KAUPAPA.
 KAUPAPA.
 KAUPAPA lcl_circle WHAKATAHI.
 KAUPAPA tuhi.
 TUHI:/ 'Te tuhi ahua motuhake: Porowhita'.
 KAUPAPA KAUPAPA.
 KAUPAPA calc_area.
 TUHINGA :/ 'Area Of Crcle = 2iiR'.
 KAUPAPA KAUPAPA.
 KAUPAPA.
 TE WHAKATAKITANGA.
 RARAUNGA: o_cir MOMO REF KI lcl_circle.
 WAIHANGA O_CIR.
 KAUPAPA KARANGA o_cir->draw( ).  " ka karanga i te akomanga iti Draw() tikanga CALL METHOD o_cir->calc_area( ).
 ULINE.
 "--------- Narrow cast(Upcast)----------------" DATA : o_shp MOMO REF KI lcl_shape.
 o_shp = o_cir.  " Narrow cast(Upcast) KARANGA KARANGA o_shp->draw( ).  " ka karanga i te karaehe iti Draw() tikanga "call METHOD o_shp->calc_area() .  " hapa whakahiato ULINE.
 "---------- Whakawhanui Maka(Whakaheke) -----------" RARAUNGA : o_cir1 MOMO REF KI lcl_circle.
 "o_cir1 = o_shp.  " hapa haaputuraa o_cir1 ?= o_shp.  " Whakawhanui Maka(Downcast) KAUPAPA KARANGA o_cir1->draw( ).  " ka karanga i te karaehe iti Draw() tikanga CALL METHOD o_cir1->calc_area( ).
 KAUPAPA a1 WHAKAMAHI.
 WAIHANGA PUBLIKA.
 NGĀ RARAUNGA: nama1 MOMO me te uara 100.
 TIKANGA:m1.
 KAUPAPA.
 KAUPAPA a1 TE WHAKAMAHI.
 KAUPAPA m1.
 TUHINGA: 'a1:',num1.
 KAUPAPA KAUPAPA.
 KAUPAPA.
 TE KAUPAPA b1 WHAKAMAHI KI TE WHIRITANGA MAI A1.
 WAIHANGA PUBLIKA.
 TIKANGA:m2, m1 WHAKAMAHI.
 KAUPAPA.
 TE KAUPAPA b1 TE WHAKAMAHI.
 KAUPAPA m1.
 nama1 = nama1 .
 TUHINGA: 'b1:',num1.
 KAUPAPA KAUPAPA.
 KAUPAPA m2.
 TUHINGA: 'M2 i te akomanga b1'.
 KAUPAPA KAUPAPA.
 KAUPAPA.
 TE WHAKATAKITANGA.
 NGĀ RUNGA: matua MOMO REF KI a1.
 NGĀ RARAUNGA: tamaiti MOMO REF KI b1.
 *raraunga: c momo REF KI c1.
 ************************************************* ************** WAIHANGA KORERO tamaiti.
 matua = tamaiti.  "upcasting CALL METHOD matua->m1( ).
 KARANGA KARANGA tama->m1( ).
 KARANGA KARANGA tama->m2( ).
 *Karangatia te KAUPAPA a->m2( ).  "Kaore e taea e taatau te uru atu ki nga tikanga o te karaehe iti ma te whakamahi i te super class ref.
 RAINA-HOU.
 tamaiti ?= matua.  " down casting KARANGA KARANGA child->m1( ).
 RAINA-HOU.
 KARANGA KARANGA tama->m2( ).
 ************************************************* ***************** *" hapa null ref *hanga OBJECT a.
 *b ?= a.  "Maka tonu tona tukunga putunga *karanga METHOD b->m1( ).
 ************************************************* ***************** * WAIHANGA KORERO a.
 TAMATARAA.
 b ?= a.  "I ngana koe ki te whakamahi i te putunga tohutoro ahanoa 'NULL' CATCH cx_sy_move_cast_error.
 KAUPAPA KARANGA b->m1( ).
 WHAKAMUTUNGA.
 ************************************************* ***************** * WAIHANGA KORERO a.
 TE WAIHANGA KORERO b.
 TAMATARAA.
 b ?= a.
 CATCH cx_sy_move_cast_error.
 KAUPAPA KARANGA b->m1( ).
 karanga KAUPAPA b->m2( ).
 WHAKAMUTUNGA.
 ******** Uara ahurei****************** RARAUNGA : lv_string TYPE string, lv_string2 TYPE string, lv_string_final TYPE string.
 NGĀ MOMO: TIMATA O te ty_data, momo momo c, TE WHAKAMUTU o ty_data.
 RARAUNGA: ls_user TYPE ty_data, ls_user2 TYPE ty_data, lt_user2 TYPE TABLE OF ty_data, lt_user TYPE TABLE OF ty_data.
 lv_string = 'a,b,c,a'.
 lv_string2 = 'd,b,c,a'.
 WAHIA lv_string KI ',' KI ROTO lt_kaiwhakamahi.
 WAWAHIA lv_string2 KI ',' KI RĀPI lt_kaiwhakamahi2.
 KAUPAPA KI lt_kaiwhakamahi2 WHAKATAHI Apure-tohu( ).
 KAUPAPA KI ROTO lt_kaiwhakamahi.
 WHAKAMAHI.
 SORT lt_user MĀ te mana.
 MUMU NGA TARERE TATA MAI I lt_user WHAKATATArite mana.
 Mēnā sy-subrc = 0.
 KAUPAPA KI lt_kaiwhakamahi E WHAKAMAHI ana i te mara-tohu( ).
 MENA KO te lv_string_final HE TAMAITI.
 lv_ aho_whakamutunga = -mana.
 ATU.
 CONCATENATE lv_string_final -auth KI TE lv_string_final WAEHEA E ','.
 ENDIF.
 WHAKAMAHI.
 ENDIF.

 

Waiho he tākupu

Whakamahia ai e tenei pae i te Akismet hei whakaiti i te mokowhiti. Akohia te tukatuka o to raraunga korero.