HOW TO CREATE TEXTELEMENTS AUTOMATICALLY I WROTE PROG BUT GETTING ERROR?

Question

DATA: ITAB TYPE TABLE OF STRING,
      WA_LINE TYPE STRING,
      LENGTH TYPE I,
      STRING1 TYPE STRING,
      T1 TYPE STRING VALUE 'TEXT-',
      RESULT TYPE STRING,
      KEY(3) TYPE N VALUE 001,
      IDX TYPE SY-TABIX,
      IT_STRING TYPE TABLE OF STRING,
      IDX1 TYPE SY-TABIX VALUE 2,
      WA_STRING TYPE STRING,
      LIN TYPE I,
      LIN1 TYPE I,
      FLAG(1) TYPE C.
DATA : TARGET_TEXTPOOL TYPE TABLE OF TEXTPOOL.
DATA : WA TYPE  TEXTPOOL.
*PROG = 'Z_TEXT1'.
PARAMETERS PROG TYPE C LENGTH 30.
READ REPORT PROG INTO ITAB.
LOOP AT ITAB INTO WA_LINE.
  IF WA_LINE IS NOT INITIAL.
    IDX = SY-TABIX.
    IF WA_LINE CS ''''.
      IF  WA_LINE NS 'WHEN' AND WA_LINE NS 'SET' AND WA_LINE NS 'SELECT'
        AND WA_LINE NS 'CHECK' AND WA_LINE NS '*.TXT' AND WA_LINE NS 'CALL'
        AND WA_LINE NS 'MESSAGE' AND WA_LINE NS 'DEFAULT'.
       SPLIT WA_LINE AT '''' INTO TABLE IT_STRING.
       DESCRIBE TABLE IT_STRING LINES LIN.
       LIN1 = LIN / 2.
       DO LIN1 TIMES.
        READ TABLE IT_STRING INTO WA_STRING INDEX IDX1.
        IF WA_STRING IS INITIAL.
          EXIT.
        ENDIF.
          LENGTH = STRLEN( WA_STRING ).
             IF LENGTH > 3.
        WA-ID = 'I'.
        WA-KEY = KEY.
        WA-ENTRY = WA_STRING.
        WA-LENGTH = LENGTH.
        APPEND WA TO TARGET_TEXTPOOL.
      INSERT TEXTPOOL PROG FROM TARGET_TEXTPOOL LANGUAGE SY-LANGU.
      INSERT REPORT PROG FROM itab.
        INSERT WA INTO TABLE
        CONCATENATE T1 KEY INTO RESULT.
        CONCATENATE '''' WA_STRING '''' INTO STRING1.
        REPLACE STRING1 IN WA_LINE WITH RESULT.
        MODIFY ITAB FROM WA_LINE INDEX IDX.
       INSERT TEXTPOOL PROG FROM TARGET_TEXTPOOL LANGUAGE 'E'.
        KEY = KEY + 1.
        IDX1 = IDX1 + 2.
  CLEAR WA_STRING.
  CLEAR STRING1.
  ENDIF.
      ENDDO.
          ENDIF.
        ENDIF.
    CLEAR WA_LINE.
  ENDIF.
  IDX1 = 2.
ENDLOOP.
loop at itab into wa_line.
  write:/ wa_line.
endloop.
   INSERT TEXTPOOL PROG FROM TARGET_TEXTPOOL LANGUAGE SY-LANGU.
       INSERT REPORT PROG FROM itab.
WRITE 'HI'...

Answer 1

hi guru,
i have written code but i am not able to display the TOTAL text at the end please verify the code.
*& Report  ZSALES_DISCOUNT
REPORT  ZSALES_DISCOUNT.
type-pools: slis.
tables: vbak,vbap.
SELECT-OPTIONS: so_vbeln for vbak-vbeln.
types: begin of ty_vbak,
       VBELN type vbak-vbeln,
       ERDAT type vbak-erdat,
       NETWR type vbak-netwr,
       WAERK type vbak-waerk,
       end of ty_vbak,
       begin of ty_vbap,
       vbeln type vbap-vbeln,
       POSNR  type vbap-posnr,
       KWMENG type vbap-KWMENG,
       VRKME TYPE VBAP-VRKME,
       NETWR type vbap-netwr,
       WAERK type  vbap-waerk,
       DISAMT type  vbap-netwr,
       end of ty_vbap.
data: w_vbak  type ty_vbak,
      it_vbak type table of ty_vbak,
      w_vbap  type ty_vbap,
      it_vbap type table of ty_vbap,
      w_fieldcat type slis_fieldcat_alv,
      i_fieldcat type slis_t_fieldcat_alv,
      w_fieldcat1 type slis_fieldcat_alv,
      i_fieldcat1 type slis_t_fieldcat_alv,
      w_slis_selfield type slis_selfield,
      user_command type SLIS_FORMNAME,
      W_IS_LAYOUT TYPE SLIS_LAYOUT_ALV,
      repid type sy-repid,
      V_LINES TYPE I,
      i_event TYPE slis_t_event,
      i_sort TYPE  slis_t_sortinfo_alv,
       wa_sort TYPE slis_sortinfo_alv.
W_FIELDCAT-COL_POS = '1'.
W_FIELDCAT-FIELDNAME = 'VBELN'.
W_FIELDCAT-OUTPUTLEN  = '20'.
W_FIELDCAT-SELTEXT_L  = 'SALES DOCUMENT NUMBER'.
APPEND W_FIELDCAT TO I_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = '2'.
W_FIELDCAT-FIELDNAME = 'ERDAT'.
W_FIELDCAT-OUTPUTLEN  = '20'.
W_FIELDCAT-SELTEXT_L  = 'Date of Order Created'.
APPEND W_FIELDCAT TO I_FIELDCAT.
CLEAR W_FIELDCAT.
W_FIELDCAT-COL_POS = '3'.
W_FIELDCAT-FIELDNAME = 'NETWR'.
W_FIELDCAT-OUTPUTLEN  = '20'.
W_FIELDCAT-SELTEXT_L  = 'net value of sales order'.
APPEND W_FIELDCAT TO I_FIELDCAT.
CLEAR W_FIELDCAT.
w_FIELDCAT-COL_POS = '4'.
W_FIELDCAT-FIELDNAME = 'WAERK'.
W_FIELDCAT-OUTPUTLEN  = '20'.
W_FIELDCAT-SELTEXT_L  = 'net value currency'.
APPEND W_FIELDCAT TO I_FIELDCAT.
W_FIELDCAT1-COL_POS = '1'.
W_FIELDCAT1-FIELDNAME = 'VBELN'.
W_FIELDCAT1-OUTPUTLEN  = '20'.
W_FIELDCAT1-SELTEXT_L  = 'SALESORDER_NO'.
APPEND W_FIELDCAT1 TO I_FIELDCAT1.
CLEAR W_FIELDCAT1.
W_FIELDCAT1-COL_POS = '2'.
W_FIELDCAT1-FIELDNAME = 'POSNR'.
W_FIELDCAT1-OUTPUTLEN  = '20'.
W_FIELDCAT1-SELTEXT_L  = 'ITEMS'.
APPEND W_FIELDCAT1 TO I_FIELDCAT1.
CLEAR W_FIELDCAT1.
W_FIELDCAT1-COL_POS = '3'.
W_FIELDCAT1-FIELDNAME = 'KWMENG'.
W_FIELDCAT1-OUTPUTLEN  = '20'.
W_FIELDCAT1-SELTEXT_L  = 'NET_QUANTITY'.
W_FIELDCAT1-qfieldname =  'VRKME' .
W_FIELDCAT1-qtabname = 'VBAP' .
W_fieldcat1-datatype = 'QUAN'.
W_fieldcat1-do_sum = 'X'.
APPEND W_FIELDCAT1 TO I_FIELDCAT1.
CLEAR W_FIELDCAT1.
W_FIELDCAT1-COL_POS = '4'.
W_FIELDCAT1-FIELDNAME = 'VRKME'.
W_FIELDCAT1-OUTPUTLEN  = '20'.
W_FIELDCAT1-SELTEXT_L  = 'NET_QUANTITY'.
W_fieldcat1-datatype = 'UNIT'.
APPEND W_FIELDCAT1 TO I_FIELDCAT1.
CLEAR W_FIELDCAT1.
W_FIELDCAT1-COL_POS = '5'.
W_FIELDCAT1-FIELDNAME = 'NETWR'.
W_FIELDCAT1-OUTPUTLEN  = '20'.
W_FIELDCAT1-SELTEXT_L  = 'NET_AMT'.
W_FIELDCAT1-cfieldname = 'WAERK'.
W_FIELDCAT1-ctabname = 'VBAP'.
W_fieldcat1-datatype = 'CURR'.
W_fieldcat1-do_sum = 'X'.
APPEND W_FIELDCAT1 TO I_FIELDCAT1.
CLEAR W_FIELDCAT1.
W_FIELDCAT1-COL_POS = '6'.
W_FIELDCAT1-FIELDNAME = 'WAERK'.
W_FIELDCAT1-OUTPUTLEN  = '20'.
W_FIELDCAT1-SELTEXT_L  = 'CURRENCY'.
APPEND W_FIELDCAT1 TO I_FIELDCAT1.
CLEAR W_FIELDCAT1.
W_FIELDCAT1-COL_POS = '7'.
W_FIELDCAT1-tabname = 'IT_VBAP'.
W_FIELDCAT1-FIELDNAME = 'DISAMT'.
W_fieldcat1-do_sum = 'X'.
W_FIELDCAT1-OUTPUTLEN  = '20'.
W_FIELDCAT1-SELTEXT_L  = '30% DISCOUNT_AMT'.
W_FIELDCAT1-cfieldname = 'WAERK'.
W_FIELDCAT1-ctabname = 'VBAP'.
W_fieldcat1-datatype = 'CURR'.
APPEND W_FIELDCAT1 TO I_FIELDCAT1.
W_IS_LAYOUT-ZEBRA = 'X'.
W_IS_LAYOUT-NO_VLINE = 'X'.
W_IS_layout-no_input = 'X'.
W_IS_layout-colwidth_optimize = 'X'.
W_IS_layout-totals_text = 'Totals'(201).
START-OF-SELECTION.
  PERFORM SORT.
  PERFORM build_events.
SELECT VBELN ERDAT NETWR WAERK from VBAK into table It_vbak where vbeln in so_vbeln.
repid = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM      = repid
    I_CALLBACK_USER_COMMAND = 'INTERACTIVE'
    IS_LAYOUT               = w_is_layout
    IT_FIELDCAT             = i_fieldcat
  TABLES
    T_OUTTAB                = it_vbak
  EXCEPTIONS
    PROGRAM_ERROR           = 1
    OTHERS                  = 2.
*&      Form  INTERACTIVE
      text
     -->R_UCOMM      text
     -->RS_SELFIELD  text
FORM INTERACTIVE USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
  IF RS_SELFIELD-FIELDNAME = 'VBELN'.
    DATA: TEMP_VBELN TYPE VBAK-VBELN,
          total TYPE STRING,
          subtot_text TYPE slis_subtot_text.
    CASE R_UCOMM.
      WHEN '&IC1'.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = RS_SELFIELD-VALUE
          IMPORTING
            OUTPUT = TEMP_VBELN.
        TEMP_VBELN = RS_SELFIELD-VALUE.
        SELECT VBELN POSNR KWMENG VRKME NETWR WAERK INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
        FROM VBAP WHERE VBELN = TEMP_VBELN.
        IF sy-subrc = 0.
          SORT IT_VBAP BY VBELN POSNR KWMENG .
        ENDIF.
        LOOP AT IT_VBAP INTO W_VBAP .
          W_VBAP-DISAMT = ( ( W_VBAP-NETWR  / 100 ) * 30 ).
          W_VBAP-DISAMT = W_VBAP-NETWR - W_VBAP-DISAMT.
          MODIFY TABLE IT_VBAP FROM W_VBAP.
        ENDLOOP.
       PERFORM SORT.
       PERFORM EVENT.
       PERFORM SUBTOTAL_TEXT CHANGING subtot_text.
        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
          EXPORTING
            I_CALLBACK_PROGRAM = REPID
            IS_LAYOUT          = w_is_layout
            IT_FIELDCAT        = I_FIELDCAT1
            it_events          = i_event
            i_default          = 'X'
          TABLES
            T_OUTTAB           = IT_VBAP
          EXCEPTIONS
            PROGRAM_ERROR      = 1
            OTHERS             = 2.
    ENDCASE.
  ENDIF.
ENDFORM.                    "INTERACTIVE
*&      Form  sub_populate_sort
      text
FORM SORT .
  wa_sort-spos = '01' .
  wa_sort-fieldname = 'VBELN'.
  wa_sort-tabname = 'IT_VBAP'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO i_sort .
  CLEAR wa_sort.
ENDFORM.                    "sub_populate_sort
*&      Form  sub_get_event
      text
FORM build_events.
  CONSTANTS : c_formname_subtotal_text TYPE slis_formname VALUE
'SUBTOTAL_TEXT'.
  DATA: l_s_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = i_event
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
Subtotal
  READ TABLE i_event  INTO l_s_event
                    WITH KEY name = slis_ev_subtotal_text.
  IF sy-subrc = 0.
    MOVE c_formname_subtotal_text TO l_s_event-form.
    append l_s_event to i_event.
   MODIFY i_event FROM l_s_event INDEX sy-tabix.
  ENDIF.
ENDFORM.                    " sub_get_event
*&      Form  SUBTOTAL_TEXT
      text
     -->P_TOTAL        text
     -->P_SUBTOT_TEXT  text
FORM c_formname_subtotal_text CHANGING P_TOTAL TYPE ANY
                      p_subtot_text TYPE slis_subtot_text.
  IF p_subtot_text-criteria = 'VEBLN'.
    p_subtot_text-display_text_for_subtotal
    = 'TOTAL'(001).
  ENDIF.
ENDFORM.                    "subtotal_text