subroutine / making copy of parameter

 REPORT zcalculator.

* making copy of parameter 
DATA result TYPE i.

PARAMETERS opt1 TYPE i.
PARAMETERS opt2 TYPE i.

PARAMETERS add RADIOBUTTON GROUP grp1.
PARAMETERS subtract  RADIOBUTTON GROUP grp1.
PARAMETERS multiply  RADIOBUTTON GROUP grp1.
PARAMETERS divide  RADIOBUTTON GROUP grp1.

IF add = 'X'.
  result = opt2 + opt1.
  PERFORM print_system_data_and_result USING result.
ENDIF.

IF subtract = 'X'.
  result = opt2 - opt1.
  PERFORM print_system_data_and_result USING result.
ENDIF.

IF multiply = 'X'.
  result = opt1 * opt2.
  PERFORM print_system_data_and_result USING result..
ENDIF.

IF divide = 'X'.
  result = opt1 / opt2.
  PERFORM print_system_data_and_result USING result..
ENDIF.



FORM print_system_data_and_result  USING    p_result.
  WRITE: 'RESULT', result.
  NEW-LINE.
  WRITE sy-uname.
  NEW-LINE.
  WRITE sy-datum.
ENDFORM.

Comments

Post a Comment

Popular posts from this blog

sap abap import from excell to table (transparent table)

*&---------------------------------------------------------------------* *& Report ZTOEXCELL *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT  ztoexcell . DATA :  tab_lines  TYPE  i . tab_lines  =  0 . DATA :  it_files  TYPE  filetable . DATA :   lv_rc  TYPE  i . DATA :  lv_action  TYPE  i . TYPES :  BEGIN  OF  ty_data ,          a  TYPE  string ,          b  TYPE  string ,           c  TYPE  string ,          d  TYPE  string ,          e  TYPE  string ,      ...
Read more

sap abap Import from excell to internal table that works 100%

*&---------------------------------------------------------------------* *& Report ZTOEXCELL *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT  ztoexcell . DATA :  it_files  TYPE  filetable . DATA :   lv_rc  TYPE  i . DATA :  lv_action  TYPE  i . TYPES :  begin  of  ty_data ,   A  type  string ,   B  type  string ,    C  type  string ,   D  type  string ,     E  type  string ,     F  type  string ,    G  type  string ,     H  type  string ,      I  type  string ,      K  type  string ,     L  type  s...
Read more