C# Online Compiler | .NET Fiddle

<no name> by Anonymous

*&---------------------------------------------------------------------*
*& Include          ZFS_AM2_F01
*&---------------------------------------------------------------------*

AT SELECTION-SCREEN ON key_date.
  IF key_date IS INITIAL.
    MESSAGE: 'PLEASE ENTER THE KEY DATE' TYPE 'E'.
  ENDIF.



FORM get_f4_fetch_am.
  BREAK-POINT.
  DATA: dummy_std_am    TYPE STANDARD TABLE OF ztransaction_am,
        dummy_tab_am    TYPE STANDARD TABLE OF zproduct_am,
        it_ztransaction TYPE STANDARD TABLE OF ztransaction_am,
        it_zproduct     TYPE STANDARD TABLE OF zproduct_am.

  TABLES:ztransaction_am.

  IF key_date IS NOT INITIAL.
    SELECT zburks, zsgsart, zsfhart, zrfha, ztpm_amount, zst_date, zen_date
      FROM ztransaction_am
      WHERE zburks = @p_bukrs
      AND zen_date > @key_date
      ORDER BY zst_date ASCENDING
      INTO CORRESPONDING FIELDS OF TABLE @dummy_std_am.
  ELSE.
    SELECT zburks, zsgsart, zsfhart, zrfha, ztpm_amount, zst_date, zen_date
    FROM ztransaction_am
    WHERE zburks = @p_bukrs
      ORDER BY zst_date ASCENDING
    INTO CORRESPONDING FIELDS OF TABLE @dummy_std_am.
  ENDIF.

  SELECT zsgsart, zsfhart, zltx, ztext, ztype
     FROM zproduct_am
    INTO CORRESPONDING FIELDS OF TABLE @it_zproduct.

  SELECT zburks, zsgsart, zsfhart, zrfha, ztpm_amount, zst_date, zen_date
   FROM ztransaction_am
  INTO CORRESPONDING FIELDS OF TABLE @it_ztransaction.

  SELECT zsgsart, zsfhart, zltx, ztext, ztype
    FROM zproduct_am
    INTO CORRESPONDING FIELDS OF TABLE @dummy_tab_am
    FOR ALL ENTRIES IN @it_ztransaction
    WHERE zsgsart = @it_ztransaction-zsgsart AND zsfhart = @it_ztransaction-zsfhart.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form process_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM process_data .


  SELECT * FROM ztransaction_am INTO TABLE lt_transaction.

  SELECT * FROM zproduct_am INTO TABLE lt_product.

  LOOP AT lt_transaction INTO lw_transaction.
    READ TABLE lt_product INTO lw_product WITH KEY zsgsart = lw_transaction-zsgsart zsfhart = lw_transaction-zsfhart.
    IF sy-subrc = 0.
      MOVE-CORRESPONDING lw_transaction TO lw_final.
      MOVE-CORRESPONDING lw_product TO lw_final.
      APPEND lw_final TO gt_final1.
      COLLECT lw_final INTO gt_final2.
    ENDIF.
    CLEAR lw_final.

  ENDLOOP.
  BREAK-POINT.

  lw_final-zburks = '1001'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100001'.
  lw_final-ztpm_amount ='1300'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='SEC'.

  APPEND lw_final TO gt_final1.
  CLEAR lw_final.


  lw_final-zburks = '1002'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.

  APPEND lw_final TO gt_final1.
  CLEAR lw_final.


  lw_final-zburks = '1003'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100031'.
  lw_final-ztpm_amount ='2200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='SEC'.

  APPEND lw_final TO gt_final1.
  CLEAR lw_final.


  lw_final-zburks = '1004'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100001'.
  lw_final-ztpm_amount ='1300'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='SEC'.

  COLLECT lw_final INTO gt_final2.
  CLEAR lw_final.


  lw_final-zburks = '1005'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.

  COLLECT lw_final INTO gt_final2.
  CLEAR lw_final.


  lw_final-zburks = '1006'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100031'.
  lw_final-ztpm_amount ='2200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='SEC'.

  COLLECT lw_final INTO gt_final2.
  CLEAR lw_final.


  lw_final-zburks = '1007'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100003'.
  lw_final-ztpm_amount ='1200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.

  INSERT ztransaction_am FROM lw_final.
  IF sy-subrc = 0.
  ENDIF.
  CLEAR lw_final.

  lw_final-zburks = '1008'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.

  INSERT ztransaction_am FROM lw_final.
  IF sy-subrc = 0.
  ENDIF.

  BREAK-POINT.
*cl_demo_output=>display( ztransaction_am ).
*BREAK-POINT .

*lw_final-zburks = '1008'.
*lw_final-zsgsart ='10A'.
*lw_final-zsfhart ='10B'.
*lw_final-zrfha ='100002'.
*lw_final-ztpm_amount ='2500'.
*lw_final-zst_date ='120323'.
*lw_final-zen_date ='140223'.
*lw_final-zltx ='TL'.
*lw_final-ztext ='BORROWING'.
*lw_final-ztype ='MM'.
*
*INSERT lw_final into gt_final2 index 1 .
*IF sy-subrc = 0.
*ENDIF.

  UPDATE zproduct_am SET ztext = 'LOAN' WHERE zltx = 'TL'.

  lw_final-zburks = '1002'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1600'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.

  MODIFY gt_final1 FROM lw_final INDEX 2 TRANSPORTING ztpm_amount.

  lw_final-zburks = '1002'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1600'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='LOAN'.
  lw_final-ztype ='MM'.

  MODIFY gt_final1 FROM lw_final INDEX 2 TRANSPORTING ztext.


  DELETE gt_final2 WHERE zburks = '1005' .
  DELETE gt_final2 WHERE zburks = '1006' .

  DELETE FROM ztransaction_am WHERE ztpm_amount = '300'.
*DELETE FROM ztransaction_am WHERE zrfha = '100003'.
  IF sy-subrc = 0.
  ENDIF.

*cl_demo_output=>display( lw_final ).
*LOOP AT ztransaction_am INTO ty_final_am.

*ENDLOOP.

  BREAK-POINT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form fcat
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM fcat .

  gw_fcat_AM-fieldname = 'ZBURKS'.
  gw_fcat_AM-seltext_L = 'Company Code'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fCAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'ZSGSART'.
  gw_fcat_AM-seltext_L = 'Txn Code'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'ZSFHART'.
  gw_fcat_AM-seltext_L = 'Txn TYPE'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'ZSrfha'.
  gw_fcat_AM-seltext_L = 'Txn no'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'Ztpm_amount'.
  gw_fcat_AM-seltext_L = 'Amount'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'Zst_date'.
  gw_fcat_AM-seltext_L = 'Start date'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'Zen_date'.
  gw_fcat_AM-seltext_L = 'End date'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'Zltx'.
  gw_fcat_AM-seltext_L = 'Prdt Desc.'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'Ztext'.
  gw_fcat_AM-seltext_L = 'Text.'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  gw_fcat_AM-fieldname = 'Ztype'.
  gw_fcat_AM-seltext_L = 'Type.'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.

  BREAK-POINT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form display_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM display_data .

  IF gt_final1 IS NOT INITIAL.
    gw_layout_am-colwidth_optimize = 'X'.
    gw_layout_am-zebra = 'X'.

  ENDIF.
  BREAK-POINT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program     = sy-cprog
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
      i_callback_top_of_page = 'TOP_PAGE'
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME       =
*     I_BACKGROUND_ID        = ' '
*     I_GRID_TITLE           = 'BASIC ALV REPORT'
*     IS_LAYOUT              =
      it_fieldcat            = gt_fcat_am

*     IS_SEL_HIDE            =
*     I_DEFAULT              = 'X'
*     I_SAVE                 = ' '
*     IS_VARIANT             = 'zfs_prog_am_va'
*     IT_EVENTS              =
* IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER =
    TABLES
      t_outtab               = gt_final1
* EXCEPTIONS
*     PROGRAM_ERROR          = 1
*     OTHERS                 = 2
    .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

  BREAK-POINT.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form top_page
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM top_page .

  DATA: comp TYPE t001-butxt.
  CLEAR comp.
  DATA : heading TYPE slis_t_listheader WITH HEADER LINE.

  SELECT SINGLE butxt FROM t001 INTO comp.
*WHERE burks EQ p_burks.
  REFRESH heading[].

  heading-typ = 'H' .
  heading-info = comp.
  APPEND heading.
  CLEAR heading.

  heading-typ = 'H'.
  heading-info = 'Basic ALV Report'.
  APPEND heading.
  CLEAR heading.
  CLEAR heading.

  heading-typ = 'S'.
  heading-info = 'Report Short Desc'.
  APPEND heading.
  CLEAR heading.
  CLEAR heading.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = heading[]
*     I_LOGO             =
*     I_END_OF_LIST_GRID =
*     I_ALV_FORM         =
    .

  BREAK-POINT.

ENDFORM.

​x
 
*&---------------------------------------------------------------------*
*& Include          ZFS_AM2_F01
*&---------------------------------------------------------------------*
​
AT SELECTION-SCREEN ON key_date.
  IF key_date IS INITIAL.
    MESSAGE: 'PLEASE ENTER THE KEY DATE' TYPE 'E'.
  ENDIF.
​
​
​
FORM get_f4_fetch_am.
  BREAK-POINT.
  DATA: dummy_std_am    TYPE STANDARD TABLE OF ztransaction_am,
        dummy_tab_am    TYPE STANDARD TABLE OF zproduct_am,
        it_ztransaction TYPE STANDARD TABLE OF ztransaction_am,
        it_zproduct     TYPE STANDARD TABLE OF zproduct_am.
​
  TABLES:ztransaction_am.
​
  IF key_date IS NOT INITIAL.
    SELECT zburks, zsgsart, zsfhart, zrfha, ztpm_amount, zst_date, zen_date
      FROM ztransaction_am
      WHERE zburks = @p_bukrs
      AND zen_date > @key_date
      ORDER BY zst_date ASCENDING
      INTO CORRESPONDING FIELDS OF TABLE @dummy_std_am.
  ELSE.
    SELECT zburks, zsgsart, zsfhart, zrfha, ztpm_amount, zst_date, zen_date
    FROM ztransaction_am
    WHERE zburks = @p_bukrs
      ORDER BY zst_date ASCENDING
    INTO CORRESPONDING FIELDS OF TABLE @dummy_std_am.
  ENDIF.
​
  SELECT zsgsart, zsfhart, zltx, ztext, ztype
     FROM zproduct_am
    INTO CORRESPONDING FIELDS OF TABLE @it_zproduct.
​
  SELECT zburks, zsgsart, zsfhart, zrfha, ztpm_amount, zst_date, zen_date
   FROM ztransaction_am
  INTO CORRESPONDING FIELDS OF TABLE @it_ztransaction.
​
  SELECT zsgsart, zsfhart, zltx, ztext, ztype
    FROM zproduct_am
    INTO CORRESPONDING FIELDS OF TABLE @dummy_tab_am
    FOR ALL ENTRIES IN @it_ztransaction
    WHERE zsgsart = @it_ztransaction-zsgsart AND zsfhart = @it_ztransaction-zsfhart.
​
ENDFORM.
*&---------------------------------------------------------------------*
*& Form process_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM process_data .
​
​
  SELECT * FROM ztransaction_am INTO TABLE lt_transaction.
​
  SELECT * FROM zproduct_am INTO TABLE lt_product.
​
  LOOP AT lt_transaction INTO lw_transaction.
    READ TABLE lt_product INTO lw_product WITH KEY zsgsart = lw_transaction-zsgsart zsfhart = lw_transaction-zsfhart.
    IF sy-subrc = 0.
      MOVE-CORRESPONDING lw_transaction TO lw_final.
      MOVE-CORRESPONDING lw_product TO lw_final.
      APPEND lw_final TO gt_final1.
      COLLECT lw_final INTO gt_final2.
    ENDIF.
    CLEAR lw_final.
​
  ENDLOOP.
  BREAK-POINT.
​
  lw_final-zburks = '1001'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100001'.
  lw_final-ztpm_amount ='1300'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='SEC'.
​
  APPEND lw_final TO gt_final1.
  CLEAR lw_final.
​
​
  lw_final-zburks = '1002'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.
​
  APPEND lw_final TO gt_final1.
  CLEAR lw_final.
​
​
  lw_final-zburks = '1003'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100031'.
  lw_final-ztpm_amount ='2200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='SEC'.
​
  APPEND lw_final TO gt_final1.
  CLEAR lw_final.
​
​
  lw_final-zburks = '1004'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100001'.
  lw_final-ztpm_amount ='1300'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='SEC'.
​
  COLLECT lw_final INTO gt_final2.
  CLEAR lw_final.
​
​
  lw_final-zburks = '1005'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.
​
  COLLECT lw_final INTO gt_final2.
  CLEAR lw_final.
​
​
  lw_final-zburks = '1006'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100031'.
  lw_final-ztpm_amount ='2200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='SEC'.
​
  COLLECT lw_final INTO gt_final2.
  CLEAR lw_final.
​
​
  lw_final-zburks = '1007'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100003'.
  lw_final-ztpm_amount ='1200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.
​
  INSERT ztransaction_am FROM lw_final.
  IF sy-subrc = 0.
  ENDIF.
  CLEAR lw_final.
​
  lw_final-zburks = '1008'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1200'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.
​
  INSERT ztransaction_am FROM lw_final.
  IF sy-subrc = 0.
  ENDIF.
​
  BREAK-POINT.
*cl_demo_output=>display( ztransaction_am ).
*BREAK-POINT .
​
*lw_final-zburks = '1008'.
*lw_final-zsgsart ='10A'.
*lw_final-zsfhart ='10B'.
*lw_final-zrfha ='100002'.
*lw_final-ztpm_amount ='2500'.
*lw_final-zst_date ='120323'.
*lw_final-zen_date ='140223'.
*lw_final-zltx ='TL'.
*lw_final-ztext ='BORROWING'.
*lw_final-ztype ='MM'.
*
*INSERT lw_final into gt_final2 index 1 .
*IF sy-subrc = 0.
*ENDIF.
​
  UPDATE zproduct_am SET ztext = 'LOAN' WHERE zltx = 'TL'.
​
  lw_final-zburks = '1002'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1600'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='BORROWING'.
  lw_final-ztype ='MM'.
​
  MODIFY gt_final1 FROM lw_final INDEX 2 TRANSPORTING ztpm_amount.
​
  lw_final-zburks = '1002'.
  lw_final-zsgsart ='10A'.
  lw_final-zsfhart ='10B'.
  lw_final-zrfha ='100002'.
  lw_final-ztpm_amount ='1600'.
  lw_final-zst_date ='120323'.
  lw_final-zen_date ='140223'.
  lw_final-zltx ='TL'.
  lw_final-ztext ='LOAN'.
  lw_final-ztype ='MM'.
​
  MODIFY gt_final1 FROM lw_final INDEX 2 TRANSPORTING ztext.
​
​
  DELETE gt_final2 WHERE zburks = '1005' .
  DELETE gt_final2 WHERE zburks = '1006' .
​
  DELETE FROM ztransaction_am WHERE ztpm_amount = '300'.
*DELETE FROM ztransaction_am WHERE zrfha = '100003'.
  IF sy-subrc = 0.
  ENDIF.
​
*cl_demo_output=>display( lw_final ).
*LOOP AT ztransaction_am INTO ty_final_am.
​
*ENDLOOP.
​
  BREAK-POINT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form fcat
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM fcat .
​
  gw_fcat_AM-fieldname = 'ZBURKS'.
  gw_fcat_AM-seltext_L = 'Company Code'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fCAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'ZSGSART'.
  gw_fcat_AM-seltext_L = 'Txn Code'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'ZSFHART'.
  gw_fcat_AM-seltext_L = 'Txn TYPE'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'ZSrfha'.
  gw_fcat_AM-seltext_L = 'Txn no'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'Ztpm_amount'.
  gw_fcat_AM-seltext_L = 'Amount'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'Zst_date'.
  gw_fcat_AM-seltext_L = 'Start date'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'Zen_date'.
  gw_fcat_AM-seltext_L = 'End date'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'Zltx'.
  gw_fcat_AM-seltext_L = 'Prdt Desc.'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'Ztext'.
  gw_fcat_AM-seltext_L = 'Text.'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  gw_fcat_AM-fieldname = 'Ztype'.
  gw_fcat_AM-seltext_L = 'Type.'.
  gw_fcat_AM-tabname = 'gt_final1'.
  APPEND gw_fcat_AM TO gt_fcAt_AM.
  CLEAR gw_fcat_AM.
​
  BREAK-POINT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form display_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM display_data .
​
  IF gt_final1 IS NOT INITIAL.
    gw_layout_am-colwidth_optimize = 'X'.
    gw_layout_am-zebra = 'X'.
​
  ENDIF.
  BREAK-POINT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program     = sy-cprog
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
      i_callback_top_of_page = 'TOP_PAGE'
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME       =
*     I_BACKGROUND_ID        = ' '
*     I_GRID_TITLE           = 'BASIC ALV REPORT'
*     IS_LAYOUT              =
      it_fieldcat            = gt_fcat_am
​
*     IS_SEL_HIDE            =
*     I_DEFAULT              = 'X'
*     I_SAVE                 = ' '
*     IS_VARIANT             = 'zfs_prog_am_va'
*     IT_EVENTS              =
* IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER =
    TABLES
      t_outtab               = gt_final1
* EXCEPTIONS
*     PROGRAM_ERROR          = 1
*     OTHERS                 = 2
    .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
​
  BREAK-POINT.
​
ENDFORM.
*&---------------------------------------------------------------------*
*& Form top_page
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM top_page .
​
  DATA: comp TYPE t001-butxt.
  CLEAR comp.
  DATA : heading TYPE slis_t_listheader WITH HEADER LINE.
​
  SELECT SINGLE butxt FROM t001 INTO comp.
*WHERE burks EQ p_burks.
  REFRESH heading[].
​
  heading-typ = 'H' .
  heading-info = comp.
  APPEND heading.
  CLEAR heading.
​
  heading-typ = 'H'.
  heading-info = 'Basic ALV Report'.
  APPEND heading.
  CLEAR heading.
  CLEAR heading.
​
  heading-typ = 'S'.
  heading-info = 'Report Short Desc'.
  APPEND heading.
  CLEAR heading.
  CLEAR heading.
​
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = heading[]
*     I_LOGO             =
*     I_END_OF_LIST_GRID =
*     I_ALV_FORM         =
    .
​
  BREAK-POINT.
​
ENDFORM.

Compilation error (line 8, col 14): Too many characters in character literal
Compilation error (line 80, col 21): Too many characters in character literal
Compilation error (line 81, col 21): Too many characters in character literal
Compilation error (line 82, col 21): Too many characters in character literal
Compilation error (line 83, col 19): Too many characters in character literal
Compilation error (line 84, col 25): Too many characters in character literal
Compilation error (line 85, col 22): Too many characters in character literal
Compilation error (line 86, col 22): Too many characters in character literal
Compilation error (line 87, col 18): Too many characters in character literal
Compilation error (line 88, col 19): Too many characters in character literal
Compilation error (line 89, col 19): Too many characters in character literal
Compilation error (line 95, col 21): Too many characters in character literal
Compilation error (line 96, col 21): Too many characters in character literal
Compilation error (line 97, col 21): Too many characters in character literal
Compilation error (line 98, col 19): Too many characters in character literal
Compilation error (line 99, col 25): Too many characters in character literal
Compilation error (line 100, col 22): Too many characters in character literal
Compilation error (line 101, col 22): Too many characters in character literal
Compilation error (line 102, col 18): Too many characters in character literal
Compilation error (line 103, col 19): Too many characters in character literal
Compilation error (line 104, col 19): Too many characters in character literal
Compilation error (line 110, col 21): Too many characters in character literal
Compilation error (line 111, col 21): Too many characters in character literal
Compilation error (line 112, col 21): Too many characters in character literal
Compilation error (line 113, col 19): Too many characters in character literal
Compilation error (line 114, col 25): Too many characters in character literal
Compilation error (line 115, col 22): Too many characters in character literal
Compilation error (line 116, col 22): Too many characters in character literal
Compilation error (line 117, col 18): Too many characters in character literal
Compilation error (line 118, col 19): Too many characters in character literal
Compilation error (line 119, col 19): Too many characters in character literal
Compilation error (line 125, col 21): Too many characters in character literal
Compilation error (line 126, col 21): Too many characters in character literal
Compilation error (line 127, col 21): Too many characters in character literal
Compilation error (line 128, col 19): Too many characters in character literal
Compilation error (line 129, col 25): Too many characters in character literal
Compilation error (line 130, col 22): Too many characters in character literal
Compilation error (line 131, col 22): Too many characters in character literal
Compilation error (line 132, col 18): Too many characters in character literal
Compilation error (line 133, col 19): Too many characters in character literal
Compilation error (line 134, col 19): Too many characters in character literal
Compilation error (line 140, col 21): Too many characters in character literal
Compilation error (line 141, col 21): Too many characters in character literal
Compilation error (line 142, col 21): Too many characters in character literal
Compilation error (line 143, col 19): Too many characters in character literal
Compilation error (line 144, col 25): Too many characters in character literal
Compilation error (line 145, col 22): Too many characters in character literal
Compilation error (line 146, col 22): Too many characters in character literal
Compilation error (line 147, col 18): Too many characters in character literal
Compilation error (line 148, col 19): Too many characters in character literal
Compilation error (line 149, col 19): Too many characters in character literal
Compilation error (line 155, col 21): Too many characters in character literal
Compilation error (line 156, col 21): Too many characters in character literal
Compilation error (line 157, col 21): Too many characters in character literal
Compilation error (line 158, col 19): Too many characters in character literal
Compilation error (line 159, col 25): Too many characters in character literal
Compilation error (line 160, col 22): Too many characters in character literal
Compilation error (line 161, col 22): Too many characters in character literal
Compilation error (line 162, col 18): Too many characters in character literal
Compilation error (line 163, col 19): Too many characters in character literal
Compilation error (line 164, col 19): Too many characters in character literal
Compilation error (line 170, col 21): Too many characters in character literal
Compilation error (line 171, col 21): Too many characters in character literal
Compilation error (line 172, col 21): Too many characters in character literal
Compilation error (line 173, col 19): Too many characters in character literal
Compilation error (line 174, col 25): Too many characters in character literal
Compilation error (line 175, col 22): Too many characters in character literal
Compilation error (line 176, col 22): Too many characters in character literal
Compilation error (line 177, col 18): Too many characters in character literal
Compilation error (line 178, col 19): Too many characters in character literal
Compilation error (line 179, col 19): Too many characters in character literal
Compilation error (line 186, col 21): Too many characters in character literal
Compilation error (line 187, col 21): Too many characters in character literal
Compilation error (line 188, col 21): Too many characters in character literal
Compilation error (line 189, col 19): Too many characters in character literal
Compilation error (line 190, col 25): Too many characters in character literal
Compilation error (line 191, col 22): Too many characters in character literal
Compilation error (line 192, col 22): Too many characters in character literal
Compilation error (line 193, col 18): Too many characters in character literal
Compilation error (line 194, col 19): Too many characters in character literal
Compilation error (line 195, col 19): Too many characters in character literal
Compilation error (line 205, col 20): Too many characters in character literal
Compilation error (line 206, col 20): Too many characters in character literal
Compilation error (line 207, col 20): Too many characters in character literal
Compilation error (line 208, col 18): Too many characters in character literal
Compilation error (line 209, col 24): Too many characters in character literal
Compilation error (line 210, col 21): Too many characters in character literal
Compilation error (line 211, col 21): Too many characters in character literal
Compilation error (line 212, col 17): Too many characters in character literal
Compilation error (line 213, col 18): Too many characters in character literal
Compilation error (line 214, col 18): Too many characters in character literal
Compilation error (line 220, col 34): Too many characters in character literal
Compilation error (line 220, col 54): Too many characters in character literal
Compilation error (line 222, col 21): Too many characters in character literal
Compilation error (line 223, col 21): Too many characters in character literal
Compilation error (line 224, col 21): Too many characters in character literal
Compilation error (line 225, col 19): Too many characters in character literal
Compilation error (line 226, col 25): Too many characters in character literal
Compilation error (line 227, col 22): Too many characters in character literal
Compilation error (line 228, col 22): Too many characters in character literal
Compilation error (line 229, col 18): Too many characters in character literal
Compilation error (line 230, col 19): Too many characters in character literal
Compilation error (line 231, col 19): Too many characters in character literal
Compilation error (line 235, col 21): Too many characters in character literal
Compilation error (line 236, col 21): Too many characters in character literal
Compilation error (line 237, col 21): Too many characters in character literal
Compilation error (line 238, col 19): Too many characters in character literal
Compilation error (line 239, col 25): Too many characters in character literal
Compilation error (line 240, col 22): Too many characters in character literal
Compilation error (line 241, col 22): Too many characters in character literal
Compilation error (line 242, col 18): Too many characters in character literal
Compilation error (line 243, col 19): Too many characters in character literal
Compilation error (line 244, col 19): Too many characters in character literal
Compilation error (line 249, col 35): Too many characters in character literal
Compilation error (line 250, col 35): Too many characters in character literal
Compilation error (line 252, col 51): Too many characters in character literal
Compilation error (line 253, col 44): Too many characters in character literal
Compilation error (line 274, col 26): Too many characters in character literal
Compilation error (line 275, col 26): Too many characters in character literal
Compilation error (line 276, col 24): Too many characters in character literal
Compilation error (line 280, col 26): Too many characters in character literal
Compilation error (line 281, col 26): Too many characters in character literal
Compilation error (line 282, col 24): Too many characters in character literal
Compilation error (line 286, col 26): Too many characters in character literal
Compilation error (line 287, col 26): Too many characters in character literal
Compilation error (line 288, col 24): Too many characters in character literal
Compilation error (line 292, col 26): Too many characters in character literal
Compilation error (line 293, col 26): Too many characters in character literal
Compilation error (line 294, col 24): Too many characters in character literal
Compilation error (line 298, col 26): Too many characters in character literal
Compilation error (line 299, col 26): Too many characters in character literal
Compilation error (line 300, col 24): Too many characters in character literal
Compilation error (line 304, col 26): Too many characters in character literal
Compilation error (line 305, col 26): Too many characters in character literal
Compilation error (line 306, col 24): Too many characters in character literal
Compilation error (line 310, col 26): Too many characters in character literal
Compilation error (line 311, col 26): Too many characters in character literal
Compilation error (line 312, col 24): Too many characters in character literal
Compilation error (line 316, col 26): Too many characters in character literal
Compilation error (line 317, col 26): Too many characters in character literal
Compilation error (line 318, col 24): Too many characters in character literal
Compilation error (line 322, col 26): Too many characters in character literal
Compilation error (line 323, col 26): Too many characters in character literal
Compilation error (line 324, col 24): Too many characters in character literal
Compilation error (line 328, col 26): Too many characters in character literal
Compilation error (line 329, col 26): Too many characters in character literal
Compilation error (line 330, col 24): Too many characters in character literal
Compilation error (line 352, col 17): Too many characters in character literal
Compilation error (line 357, col 32): Too many characters in character literal
Compilation error (line 362, col 32): Too many characters in character literal
Compilation error (line 369, col 32): Too many characters in character literal
Compilation error (line 411, col 18): Too many characters in character literal
Compilation error (line 417, col 18): Too many characters in character literal
Compilation error (line 422, col 17): Too many characters in character literal
Compilation error (line 2, col 1): A namespace cannot directly contain members such as fields or methods
Compilation error (line 403, col 19): Identifier expected
Compilation error (line 403, col 20): Expected class, delegate, enum, interface, or struct
Compilation error (line 424, col 36): Identifier expected
Compilation error (line 425, col 1): Expected class, delegate, enum, interface, or struct

Last Run:	8:10:36 pm
Compile:	0s
Execute:	0.039s
Memory:	0b
CPU:	0s

View IL Code