Constructor Program in ABAP

Preface – This post is part of the ABAP Programs series.

TYPE-POOLS truxs.
PARAMETERS p_file TYPE rlgrap-filename.
TYPES : BEGIN OF t_tab,
          workstream TYPE char50,
          task       TYPE zci_task,
          task_type  TYPE char50,
        END OF t_tab.
DATA : t_upload1  TYPE STANDARD TABLE OF ZDEMO_TEST2,
       wa_upload1 TYPE ZDEMO_TEST2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      field_name = 'P_FILE'
    IMPORTING
      file_name  = p_file.
START-OF-SELECTION.
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_tab_raw_data       = it_type
      i_filename           = p_file
    TABLES
      i_tab_converted_data = t_upload[]
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 .
  ENDIF.
CALL FUNCTION 'UPLOAD_XLS_FILE_2_ITAB'
  EXPORTING
    i_filename       = p_file
  tables
    e_itab           = t_upload1
 EXCEPTIONS
   FILE_ERROR       = 1
   OTHERS           = 2
          .
IF sy-subrc <> 0.
 Implement suitable error handling here
ENDIF.

END-OF-SELECTION.
  DATA : 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.
    APPEND ls_cc_impl TO lt_cc_impl.
  ENDLOOP.
  MODIFY ZDEMO_TEST2 FROM TABLE lt_cc_impl.
CLASS cl_grand DEFINITION.
  PUBLIC SECTION.
    CLASS-DATA v_test TYPE char40.
    CLASS-METHODS class_constructor.
    METHODS constructor.
    DATA a type i.
    CLASS-DATA b TYPE i.
ENDCLASS.                    "cl_grand DEFINITION
*----------------------------------------------------------------------*
*       CLASS cl_grand IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_grand IMPLEMENTATION.
  METHOD class_constructor.
    v_test = 'Static Constructor - Grand Parent'.
    b = 30.
    WRITE: /3 v_test.
  ENDMETHOD.                    "class_constructor
  METHOD constructor.
    a = 30.
    v_test = 'Instance Constructor - Grand Parent'.
    WRITE: /3 v_test.
  ENDMETHOD.
ENDCLASS.                    "cl_grand IMPLEMENTATION
*----------------------------------------------------------------------*
*       CLASS cl_parent DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_parent DEFINITION INHERITING FROM cl_grand.
  PUBLIC SECTION.
    CLASS-METHODS class_constructor.
    METHODS constructor.
ENDCLASS.                    "cl_parent DEFINITION
*----------------------------------------------------------------------*
*       CLASS cl_parent IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_parent IMPLEMENTATION.
  METHOD class_constructor.
    v_test = 'Static Constructor - Parent'.
    b = 20.
    WRITE: /3 v_test.
  ENDMETHOD.                    "class_constructor
  METHOD constructor .
*    data a type i.
    super->constructor( ).
    a = 20.
    v_test = 'Instance Constructor -Parent'.
    WRITE: /3 v_test.
  ENDMETHOD.
ENDCLASS.                    "cl_parent IMPLEMENTATION
*----------------------------------------------------------------------*
*       CLASS cl_child DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_child DEFINITION INHERITING FROM cl_parent.
  PUBLIC SECTION.
    CLASS-METHODS class_constructor.
    METHODS constructor.
*    DATA a.
ENDCLASS.                    "cl_child DEFINITION
*----------------------------------------------------------------------*
*       CLASS cl_child IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_child IMPLEMENTATION.
  METHOD class_constructor.
    v_test = 'Static Constructor - Child'.
    WRITE: /3 v_test.
    b = 10.
  ENDMETHOD.                    "class_constructor
  METHOD constructor.
    data a type i.
a = 10.
    super->constructor( ).
    v_test = 'Instance Constructor - Child'.
    WRITE: /3 v_test.
  ENDMETHOD.
ENDCLASS.                    "cl_child IMPLEMENTATION
START-OF-SELECTION.
DATA obj_child TYPE REF TO cl_child.
CREATE OBJECT obj_child.
data: a type i,
      b type i.
a = obj_child->a.
write a.
write sy-uname.
delete from ztms_score .
delete from ztms_ans .
TYPES: BEGIN OF TY_DATA, "user defined type
       ID TYPE N ,
       NAME TYPE CHAR20,
       SALARY TYPE I,
      END OF TY_DATA.
DATA : ITAB TYPE TABLE OF TY_DATA. "internal table
DATA : WA TYPE TY_DATA. "work area
WA-ID = 1.
WA-NAME = 'Sapnuts'.
WA-SALARY = 5000.
COLLECT WA INTO ITAB. "collect
CLEAR WA.
WA-ID = 2.
WA-NAME = 'SAPabap'.
WA-SALARY = 50000.
COLLECT WA INTO ITAB. "collect
CLEAR WA.
WA-ID = 1.
WA-NAME = 'Sapnuts'.
WA-SALARY = 15000.
COLLECT WA INTO ITAB. "collect
CLEAR WA.
LOOP AT ITAB INTO WA.
  WRITE:/ WA-ID, WA-NAME, WA-SALARY. "loop and display data
ENDLOOP.
**delete from ztms_score .
**delete from ztms_ans .
delete from ztms_user .
delete from ztms_set .
delete from ztms_ques .