BC400, Unit4, Exercise6: Subroutines

熟悉一下基本语法, 例程如下.

 

*&---------------------------------------------------------------------*
*& Report  ZWQS_TEST_UNIT4
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZWQS_TEST_UNIT4.

TYPES gty_result TYPE p LENGTH 16 DECIMALS 2.

PARAMETERS:
pa_int1 TYPE i,
        pa_op TYPE c LENGTH 1,
        pa_int2 TYPE i.

DATA gv_result TYPE gty_result.

IF ( pa_op = '+' OR
     pa_op = '-' OR
     pa_op = '*' OR
     pa_op = '/' AND pa_int2 <> 0 OR
     pa_op = '%' ).
  CASE pa_op.
    WHEN '+'.
      gv_result = pa_int1 + pa_int2.
    WHEN '-'.
      gv_result = pa_int1 - pa_int2.
    WHEN '*'.
      gv_result = pa_int1 * pa_int2.
    WHEN '/'.
      gv_result = pa_int1 / pa_int2.
    WHEN '%'.
      PERFORM calc_percentage
        USING
              pa_int1
              pa_int2
        CHANGING
          gv_result.


  ENDCASE.
  WRITE: 'Result:'(res), gv_result.
ELSEIF pa_op = '/' AND pa_int2 = 0.
  WRITE: 'No division by zero!'(dbz).
ELSE.
  WRITE: 'Invalid operator!'(iop).
ENDIF.


*&---------------------------------------------------------------------*
*& Form calc_percentage
*&---------------------------------------------------------------------*
* calculate percentage value
*----------------------------------------------------------------------*
* -->PV_ACT actual value
* -->PV_MAX maximum value
* <--CV_RESULT result
*----------------------------------------------------------------------*
FORM calc_percentage USING pv_act TYPE i
                            pv_max TYPE i
                      CHANGING cv_result TYPE gty_result.
*Simple Error Handling
  IF pv_max = 0.
    cv_result = 0.
    WRITE 'Error in percentage calculation'(epc).
  ELSE.
*Calculate result
    cv_result = pv_act / pv_max * 100.
  ENDIF.
ENDFORM. " calc_percentage

 

----