ABAP திட்டத்தில் நடிப்பு

வகுப்பு a1 வரையறை.
 பொதுப் பிரிவு.
 தரவு: எண்1 வகை மற்றும் மதிப்பு 100.
 முறைகள்:m1.
 இறுதி வகுப்பு.
 வகுப்பு a1 அமலாக்கம்.
 முறை மீ1.
 எழுது: 'a1:',எண்1.
 இறுதி முறை.
 இறுதி வகுப்பு.
 வகுப்பு b1 வரையறை a1 இலிருந்து பெறுதல்.
 பொதுப் பிரிவு.
 முறைகள்:m2, m1 மறுவரையறை.
 இறுதி வகுப்பு.
 வகுப்பு b1 அமலாக்கம்.
 முறை மீ1.
 எண்1 = எண்1 .
 எழுது: 'b1:',எண்1.
 இறுதி முறை.
 முறை மீ2.
 எழுது: 'பி2 வகுப்பில் எம்1'.
 இறுதி முறை.
 இறுதி வகுப்பு.
 தேர்வு ஆரம்பம்.
 தரவு: a1 க்கு ஒரு வகை குறிப்பு.
 தரவு: b Type REF க்கு b1.
 *தரவு: c வகை REF TO c1.
 ******************************************************* ************** பொருளை உருவாக்கு b.
 a = b.  "அப்காஸ்டிங் அழைப்பு முறை a->m1( ).
 *அழைப்பு முறை a->m2( ).  "சூப்பர் கிளாஸ் ரெஃபரைப் பயன்படுத்தி எங்களால் சொந்த துணை வகுப்பு முறைகளை அணுக முடியாது.
 புதிய கோடு.
 b ?= a.  " டவுன் காஸ்டிங் கால் முறை b->m1( ).
 புதிய கோடு.
 அழைப்பு முறை b->m2( ).
 ******************************************************* *************** " பிழை null ref உருவாக்க OBJECT a.
 b ?= a.  "டவுன் காஸ்டிங் இன்னும் அதன் கொடுக்கும் டம்ப் கால் முறை b->m1( ).
 ******************************************************* *************** பொருளை உருவாக்கு a.
 முயற்சி.
 b ?= a.  "நீங்கள் ஒரு 'NULL' ஆப்ஜெக்ட் ரெஃபரன்ஸ் டம்ப் CATCH cx_sy_move_cast_error ஐப் பயன்படுத்த முயற்சித்தீர்கள்.
 அழைப்பு முறை b->m1( ).
 ENDTRY.
 ******************************************************* *************** பொருளை உருவாக்கு a.
 பொருளை உருவாக்கு b.
 முயற்சி.
 b ?= a.
 CATCH cx_sy_move_cast_error.
 அழைப்பு முறை b->m1( ).
 முறை b->m2( ) ஐ அழைக்கவும்.
 ENDTRY.
 CLASS lcl_shape DEFINITION.
 பொதுப் பிரிவு.
 முறைகள் வரைதல்.
 இறுதி வகுப்பு.
 கிளாஸ் lcl_circle வரையறை lcl_shape இலிருந்து.
 பொதுப் பிரிவு.
 முறைகள்: வரைய மறுவரையறை, calc_area.
 இறுதி வகுப்பு.
 CLASS lcl_shape IMPLEMENTATION.
 முறை வரைதல்.
 எழுது :/ 'எந்த வடிவத்தையும் வரைதல்'.
 இறுதி முறை.
 இறுதி வகுப்பு.
 CLASS lcl_circle IMPLEMENTATION.
 முறை வரைதல்.
 எழுது :/ 'குறிப்பிட்ட வடிவத்தை வரைதல்: வட்டம்'.
 இறுதி முறை.
 முறை calc_area.
 எழுதவும் :/ 'Crcle பகுதி = 2iiR'.
 இறுதி முறை.
 இறுதி வகுப்பு.
 தேர்வு ஆரம்பம்.
 தரவு: o_cir வகை REF TO lcl_circle.
 O_cir பொருளை உருவாக்கவும்.
 அழைப்பு முறை o_cir->draw( ).  "அழைப்பு துணைப்பிரிவு வரைதல்() முறை CALL METHOD o_cir->calc_area( ).
 ULINE.
 "--------- குறுகிய வார்ப்பு (அப்காஸ்ட்) -------------" தரவு : o_shp வகை lcl_shape.
 o_shp = o_cir.  " குறுகலான வார்ப்பு (அப்காஸ்ட்) அழைப்பு முறை o_shp->draw( ).  " துணை வகுப்பு வரைதல்() முறை "அழைக்க METHOD o_shp->calc_area( ) .  " தொகுத்தல் பிழை ULINE.
 "---------- விரிவுபடுத்தும் வார்ப்பு (கீழடிக்கப்பட்ட) ----------" தரவு : o_cir1 lcl_circle க்கு REF REF.
 " o_cir1 = o_shp.  " சிக்கலான பிழை o_cir1 ?= o_shp.  " அகலப்படுத்துதல் வார்ப்பு (கீழே இறக்கம்) அழைப்பு முறை o_cir1->டிரா( ).  "அழைப்பு துணைப்பிரிவு வரைதல்() முறை CALL METHOD o_cir1->calc_area( ).
 வகுப்பு a1 வரையறை.
 பொதுப் பிரிவு.
 தரவு: எண்1 வகை மற்றும் மதிப்பு 100.
 முறைகள்:m1.
 இறுதி வகுப்பு.
 வகுப்பு a1 அமலாக்கம்.
 முறை மீ1.
 எழுது: 'a1:',எண்1.
 இறுதி முறை.
 இறுதி வகுப்பு.
 வகுப்பு b1 வரையறை a1 இலிருந்து பெறுதல்.
 பொதுப் பிரிவு.
 முறைகள்:m2, m1 மறுவரையறை.
 இறுதி வகுப்பு.
 வகுப்பு b1 அமலாக்கம்.
 முறை மீ1.
 எண்1 = எண்1 .
 எழுது: 'b1:',எண்1.
 இறுதி முறை.
 முறை மீ2.
 எழுது: 'பி2 வகுப்பில் எம்1'.
 இறுதி முறை.
 இறுதி வகுப்பு.
 தேர்வு ஆரம்பம்.
 தரவு: a1 க்கு பெற்றோர் வகை.
 தரவு: குழந்தை வகை b1க்கு.
 *தரவு: c வகை REF TO c1.
 ******************************************************* ************** பொருளை உருவாக்கு குழந்தை.
 பெற்றோர் = குழந்தை.  "upcasting CALL METHOD parent->m1( ).
 அழைப்பு முறை குழந்தை->m1( ).
 அழைப்பு முறை குழந்தை->m2( ).
 *அழைப்பு முறை a->m2( ).  "சூப்பர் கிளாஸ் ரெஃபரைப் பயன்படுத்தி எங்களால் சொந்த துணை வகுப்பு முறைகளை அணுக முடியாது.
 புதிய கோடு.
 குழந்தை ?= பெற்றோர்.  " டவுன் காஸ்டிங் கால் முறை குழந்தை->m1( ).
 புதிய கோடு.
 அழைப்பு முறை குழந்தை->m2( ).
 ******************************************************* **************** *" பிழை null ref *OBJECT உருவாக்கு a.
 *b ?= a.  "டவுன் காஸ்டிங் இன்னும் அதன் கொடுக்கும் டம்ப் *அழைப்பு முறை b->m1( ).
 ******************************************************* **************** * பொருளை உருவாக்கு a.
 முயற்சி.
 b ?= a.  "நீங்கள் ஒரு 'NULL' ஆப்ஜெக்ட் ரெஃபரன்ஸ் டம்ப் CATCH cx_sy_move_cast_error ஐப் பயன்படுத்த முயற்சித்தீர்கள்.
 அழைப்பு முறை b->m1( ).
 ENDTRY.
 ******************************************************* **************** * பொருளை உருவாக்கு a.
 பொருளை உருவாக்கு b.
 முயற்சி.
 b ?= a.
 CATCH cx_sy_move_cast_error.
 அழைப்பு முறை b->m1( ).
 முறை b->m2( ) ஐ அழைக்கவும்.
 ENDTRY.
 ******** தனித்துவமான மதிப்புகள்****************** தரவு : lv_string TYPE சரம், lv_string2 TYPE சரம், lv_string_final TYPE சரம்.
 வகைகள்: ஆரம்பம் ty_data, auth TYPE c, END OF ty_data.
 தரவு: ls_user TYPE ty_data, ls_user2 TYPE ty_data, lt_user2 வகை ty_data, lt_user TYPE TABLE OF ty_data.
 lv_string = 'a,b,c,a'.
 lv_string2 = 'd,b,c,a'.
 Lv_string இல் ',' அட்டவணையில் lt_user ஐப் பிரிக்கவும்.
 Lv_string2 இல் ',' அட்டவணையில் lt_user2 ஐப் பிரிக்கவும்.
 lt_user2 இல் லூப் FIELD-SYMBOL ஐ ஒதுக்கவும்( )
 செருகு அட்டவணையில் lt_user.
 ENDLOOP.
 அங்கீகாரத்தின்படி SORT lt_user.
 அங்கீகாரத்தை ஒப்பிடும் lt_user இலிருந்து அருகிலுள்ள நகல்களை நீக்கவும்.
 IF sy-subrc = 0.
 lt_user ஐ ஒதுக்கும் புலம்-சிம்பலில் லூப்( )
 lv_string_final ஆரம்பமாக இருந்தால்.
 lv_string_final = - அங்கீகாரம்.
 வேறு.
 CONCATENATE lv_string_final -auth INTO lv_string_final ',' மூலம் பிரிக்கப்பட்டது.
 ENDIF.
 ENDLOOP.
 ENDIF.

 

கருத்துரை

இந்த தளம் ஸ்பேமைக் குறைக்க Akismet ஐப் பயன்படுத்துகிறது. உங்கள் கருத்துத் தரவு எவ்வாறு செயல்படுத்தப்படுகிறது என்பதை அறியவும்.