Առաջաբան գրել - Այս գրառումը մաս է կազմում ABAP ծրագրեր նյութեր.

TYPE-POOLS բեռնատարներ.
 PARAMETERS p_file TYPE rlgrap-filename:
 ՏԵՍԱԿՆԵՐԸ. t_tab-ի սկիզբը, աշխատանքային հոսքը TYPE char50, առաջադրանքի TYPE zci_task, task_type TYPE char50, END OF t_tab:
 ՏՎՅԱԼՆԵՐ՝ t_upload1 ZDEMO_TEST2-ի ՏԵՍԱԿԻ ՍՏԱՆԴԱՐՏ ԱՂՅՈՒՍԱԿ, wa_upload1 TYPE ZDEMO_TEST2:
 ԸՆՏՐՈՒԹՅԱՆ ԷԿՐԱՆՈՒՄ P_file-ի ԱՐԺԵՔԻ ՀԱՐՑՈՒՄ:
 CALL FUNCTION 'F4_FILENAME' EXPORTING field_name = 'P_FILE' IMPORTING file_name = p_file:
 ԸՆՏՐՈՒԹՅԱՆ ՄԵԿՆԱՐԿ.
 ԶԱՆԳԱՀԱՐԵԼ «TEXT_CONVERT_XLS_TO_SAP» ՖՈՒՆԿՑԻԱ ԱՐՏԱՀԱՆՈՒՄ i_tab_raw_data = it_type i_filename = p_file TABLES i_tab_converted_data = t_upload[] EXCEPTIONS conversion_failed = 1 OTHERS = 2:
 ԵԹԵ sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 :
 ENDIF.
 ԶԱՆԳԱՀԱՐԵԼ «UPLOAD_XLS_FILE_2_ITAB» ՖՈՒՆԿՑԻԱ ԱՐՏԱՀԱՆՈՒՄ i_filename = p_file աղյուսակներ e_itab = t_upload1 ԲԱՑԱՌՈՒԹՅՈՒՆՆԵՐ FILE_EROR = 1 OTHERS = 2:
 ԵԹԵ sy-subrc <> 0.
 Իրականացրեք սխալների համապատասխան կառավարում այստեղ ENDIF:
 ԸՆՏՐՈՒԹՅԱՆ ՎԵՐՋ.
 ՏՎՅԱԼՆԵՐ՝ ls_cc_impl TYPE ZDEMO_TEST2, lt_cc_impl TYPE STANDARD TABLE OF ZDEMO_TEST2:
 LOOP AT t_upload1 INTO wa_upload1.
 ls_cc_impl-mandt = sy-mandt.
 ls_cc_impl-INCIDENT = wa_upload1-INCIDENT:
 ԼՐԱՑՆԵԼ ls_cc_impl lt_cc_impl-ին:
 ENDLOOP.
 ՓՈՓՈԽԵԼ ZDEMO_TEST2-ը ՍԵՂԱՆԻՑ lt_cc_impl:
 CLASS cl_grand ՍԱՀՄԱՆՈՒՄ.
 ՀԱՆՐԱՅԻՆ ԲԱԺԻՆ.
 CLASS-DATA v_test TYPE char40:
 CLASS-METHODS class_constructor.
 ՄԵԹՈԴՆԵՐ կառուցող.
 ՏՎՅԱԼՆԵՐ a տեսակ i.
 ԴԱՍ-ՏՎՅԱԼՆԵՐ b ՏԵՍԱԿԸ i.
 ENDCLASS.  «cl_grand ՍԱՀՄԱՆՈՒՄ *-------------------------------------------- ------------------------* * CLASS cl_grand ԻՐԱԿԱՆԱՑՈՒՄ *------------------- -------------------------------------------------- * * *---------------------------------------------- -----------------------* ԴԱՍ cl_grand ԻՐԱԿԱՆԱՑՈՒՄ.
 METHOD class_constructor.
 v_test = 'Static Constructor - Grand Parent':
 b = 30:
 ԳՐԵԼ՝ /3 v_test.
 ՎԵՐՋ ՄԵԹՈԴ.  «class_constructor METHOD կառուցող.
 ա = 30:
 v_test = «Օրինակ կառուցող - Մեծ ծնող»:
 ԳՐԵԼ՝ /3 v_test.
 ՎԵՐՋ ՄԵԹՈԴ.
 ENDCLASS.  «cl_grand ԻՐԱԿԱՆԱՑՈՒՄ *--------------------------------------------- ------------------------* * CLASS cl_parent ՍԱՀՄԱՆՈՒՄ *------------------- -------------------------------------------------- * * *---------------------------------------------- -----------------------* CLASS cl_parent ՍԱՀՄԱՆՈՒՄ Ժառանգող cl_grand-ից:
 ՀԱՆՐԱՅԻՆ ԲԱԺԻՆ.
 CLASS-METHODS class_constructor.
 ՄԵԹՈԴՆԵՐ կառուցող.
 ENDCLASS.  «cl_parent ՍԱՀՄԱՆՈՒՄ *--------------------------------------------- ------------------------* * CLASS cl_parent IMPLEMENTATION *-------------------- -------------------------------------------------- * * *---------------------------------------------- -----------------------* CLASS cl_parent IMPLEMENTATION.
 METHOD class_constructor.
 v_test = 'Static Constructor - Parent':
 b = 20:
 ԳՐԵԼ՝ /3 v_test.
 ՎԵՐՋ ՄԵԹՈԴ.  «class_constructor METHOD կառուցող.
 * տվյալների տեսակը i.
 super->կոնստրուկտոր ( ).
 ա = 20:
 v_test = 'Օրինակ կառուցող-ծնող':
 ԳՐԵԼ՝ /3 v_test.
 ՎԵՐՋ ՄԵԹՈԴ.
 ENDCLASS.  «cl_parent IMPLEMENTATION *--------------------------------------------- ------------------------* * ԴԱՍԱՐԱՆ cl_երեխա ՍԱՀՄԱՆՈՒՄ *------------------- -------------------------------------------------- * * *---------------------------------------------- -----------------------* CLASS cl_child ՍԱՀՄԱՆՈՒՄ ԺԱՌԱՆԳՈՒԹՅԱՄԲ cl_parent-ից:
 ՀԱՆՐԱՅԻՆ ԲԱԺԻՆ.
 CLASS-METHODS class_constructor.
 ՄԵԹՈԴՆԵՐ կառուցող.
 * ՏՎՅԱԼՆԵՐ ա.
 ENDCLASS.  «cl_child ՍԱՀՄԱՆՈՒՄ *--------------------------------------------- ------------------------* * ԴԱՍԱՐԱՆ cl_երեխա ԻՐԱԿԱՆԱՑՈՒՄ *------------------- -------------------------------------------------- * * *---------------------------------------------- -----------------------* ԴԱՍ cl_երեխա ԻՐԱԿԱՆԱՑՈՒՄ.
 METHOD class_constructor.
 v_test = 'Static Constructor - Child':
 ԳՐԵԼ՝ /3 v_test.
 b = 10:
 ՎԵՐՋ ՄԵԹՈԴ.  «class_constructor METHOD կառուցող.
 տվյալներ a տեսակ i.
 ա = 10:
 super->կոնստրուկտոր ( ).
 v_test = 'Օրինակի կառուցող - երեխա':
 ԳՐԵԼ՝ /3 v_test.
 ՎԵՐՋ ՄԵԹՈԴ.
 ENDCLASS.  «cl_child ԻՐԱԿԱՆԱՑՄԱՆ ԻՐԱԿԱՆԱՑՄԱՆ ԸՆՏՐՈՒԹՅԱՆ ՄԵԿՆԱՐԿ.
 ՏՎՅԱԼՆԵՐԸ obj_child ՄՏԵՔ ՀԱՍՑՆԵԼ cl_child-ին:
 ՍՏԵՂԾԵԼ ՕԲՅԵԿՏ obj_child.
 տվյալներ՝ a տեսակ i, b տեսակ i:
 a = obj_child->a.
 Գրել.
 գրել sy-uname.
 ջնջել ztms_score-ից:
 ջնջել ztms_ans-ից:
 ՏԵՍԱԿՆԵՐԸ՝ TY_DATA-ի սկիզբը, «օգտագործողի կողմից սահմանված տիպի ID TYPE N , ԱՆՈՒՆԻ ՏԵՍԱԿԸ CHAR20, ԱՇԽԱՏԱՎԱՐՁԻ ՏԵՍԱԿԸ I, TY_DATA-ի ավարտը:
 ՏՎՅԱԼՆԵՐ. ITAB TYPE TABLE OF TY_DATA:  «ներքին աղյուսակի ՏՎՅԱԼՆԵՐԸ. WA TYPE TY_DATA:  «աշխատանքային տարածք WA-ID = 1.
 WA-NAME = 'Sapnuts':
 ԱՇԽԱՏԱՎԱՐՁ = 5000.
 ՀԱՎԱՔԵԼ WA ITAB-ում:  «հավաքել CLEAR WA.
 WA-ID = 2:
 WA-NAME = 'SAPabap':
 ԱՇԽԱՏԱՎԱՐՁ = 50000.
 ՀԱՎԱՔԵԼ WA ITAB-ում:  «հավաքել CLEAR WA.
 WA-ID = 1:
 WA-NAME = 'Sapnuts':
 ԱՇԽԱՏԱՎԱՐՁ = 15000.
 ՀԱՎԱՔԵԼ WA ITAB-ում:  «հավաքել CLEAR WA.
 LOOP ITAB-ում INTO WA-ում:
 ԳՐԵՔ:/ WA-ID, WA-NAME, WA-SALARY.  «loop and display data ENDLOOP.
 **ջնջել ztms_score-ից:
 **ջնջել ztms_ans-ից:
 ջնջել ztms_user-ից:
 ջնջել ztms_set-ից: