SAP ABAP 模拟多功能计算器

最新推荐文章于 2024-06-26 09:55:14 发布
最新推荐文章于 2024-06-26 09:55:14 发布
阅读量640 收藏 3
点赞数
CC 4.0 BY-SA版权
文章标签： sap abap
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/m0_56460829/article/details/117688803 
*---------------------------------------------------------------*
* Report  ZCOLCULATOR_97
*---------------------------------------------------------------*
*
*---------------------------------------------------------------*

REPORT  YCOLCULATOR_97
NO STANDARD PAGE HEADING.

*---------------------------------------------------------------*
*          定义变量
*---------------------------------------------------------------*

DATA:
  GV_INPUT1 TYPE P LENGTH 6 DECIMALS 2,                          "整数
  GV_POINT1 TYPE C LENGTH 1,                                     "小数点
  GV_INP_D1 TYPE P LENGTH 2,                                     "小数
  GV_INPUT2 TYPE P LENGTH 6 DECIMALS 2,                          "整数
  GV_POINT2 TYPE C LENGTH 1,                                     "小数点
  GV_INP_D2 TYPE P LENGTH 2,                                     "小数
  GV_SIMBOL TYPE C LENGTH 1,                                     "符号
  GV_OUTPUT TYPE P LENGTH 6 DECIMALS 2.                          "输出

*---------------------------------------------------------------*
*          定义选择屏幕
*---------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF SCREEN 1 AS WINDOW TITLE TEXT-999.     "計算機

*** 入力框 ***

SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 1(5) TEXT-001 FOR FIELD P_INPUT1.     "入力値
  PARAMETERS:
    P_INPUT1 TYPE P LENGTH 2 DECIMALS 0,                         "前整数位
    P_POINT1 TYPE C LENGTH 1,                                    "前小数点
    P_INP_D1 TYPE C LENGTH 3,                                    "前小数位

    P_SIMBOL TYPE C LENGTH 3,                                    "符号

    P_INPUT2 TYPE P LENGTH 2 DECIMALS 0,                         "后整数位
    P_POINT2 TYPE C LENGTH 1,                                    "后小数点
    P_INP_D2 TYPE C LENGTH 3.                                    "后小数位
SELECTION-SCREEN END OF LINE.

*  ** 出力框 ***

SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 1(5) TEXT-002 FOR FIELD P_OUTPUT.     "出力値
  PARAMETERS P_OUTPUT TYPE P LENGTH 10 DECIMALS 5.
SELECTION-SCREEN END OF LINE.

*** 定义按钮 ***

SELECTION-SCREEN:
  PUSHBUTTON /7(5)  BUT_AC  USER-COMMAND BUTAC  ,                "A C"
  PUSHBUTTON 13(5)  BUT_POM USER-COMMAND BUTPOM ,                "+/_"
  PUSHBUTTON 19(5)  BUT_PER USER-COMMAND BUTPER ,                " % "
  PUSHBUTTON 25(7)  BUT_DVD USER-COMMAND BUTDVD ,                "÷"
  PUSHBUTTON /7(5)  BUT_7   USER-COMMAND BUT7   ,                "7"
  PUSHBUTTON 13(5)  BUT_8   USER-COMMAND BUT8   ,                "8"
  PUSHBUTTON 19(5)  BUT_9   USER-COMMAND BUT9   ,                "9"
  PUSHBUTTON 25(7)  BUT_MUT USER-COMMAND BUTMUT ,                "×"
  PUSHBUTTON /7(5)  BUT_4   USER-COMMAND BUT4   ,                "4"
  PUSHBUTTON 13(5)  BUT_5   USER-COMMAND BUT5   ,                "5"
  PUSHBUTTON 19(5)  BUT_6   USER-COMMAND BUT6   ,                "6"
  PUSHBUTTON 25(7)  BUT_MIN USER-COMMAND BUTMIN ,                "-"
  PUSHBUTTON /7(5)  BUT_1   USER-COMMAND BUT1   ,                "1"
  PUSHBUTTON 13(5)  BUT_2   USER-COMMAND BUT2   ,                "2"
  PUSHBUTTON 19(5)  BUT_3   USER-COMMAND BUT3   ,                "3"
  PUSHBUTTON 25(7)  BUT_PLS USER-COMMAND BUTPLS ,                "+"
  PUSHBUTTON /7(5)  BUT_0   USER-COMMAND BUT0   ,                "0"
  PUSHBUTTON 13(5)  BUT_PON USER-COMMAND BUTPON ,                "."
  PUSHBUTTON 19(13) BUT_EQ  USER-COMMAND BUTEQ  .                "="

*** 赋值按钮 ***

BUT_1   = '1'.
BUT_2   = '2'.
BUT_3   = '3'.
BUT_4   = '4'.
BUT_5   = '5'.
BUT_6   = '6'.
BUT_7   = '7'.
BUT_8   = '8'.
BUT_9   = '9'.
BUT_0   = '0'.
BUT_PON = '.'.
BUT_PLS = '+'.
BUT_MIN = '-'.
BUT_MUT = '×'.
BUT_DVD = '÷'.
BUT_EQ  = '='.
BUT_POM = '+/-'.
BUT_PER = '%'.
BUT_AC  = 'AC'.

SELECTION-SCREEN END OF SCREEN 1.

CALL SCREEN 1 STARTING AT 1 1 ENDING AT 35 8.                    "子屏幕呼出

*---------------------------------------------------------------*
*          定义入力内容
*---------------------------------------------------------------*

AT SELECTION-SCREEN.

*** 输入 第一行 整数 ***

  IF  P_INPUT1 = '1'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '10'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '11'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '12'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '13'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '14'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '15'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '16'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '17'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '18'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '19'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = '2'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '20'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '21'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '22'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '23'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '24'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '25'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '26'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '27'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '28'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '29'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = '3'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '30'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '31'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '32'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '33'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '34'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '35'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '36'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '37'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '38'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '39'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = '4'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '40'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '41'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '42'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '43'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '44'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '45'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '46'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '47'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '48'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '49'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = '5'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '50'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '51'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '52'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '53'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '54'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '55'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '56'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '57'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '58'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '59'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = '6'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '60'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '61'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '62'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '63'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '64'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '65'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '66'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '67'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '68'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '69'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = '7'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '70'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '71'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '72'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '73'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '74'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '75'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '76'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '77'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '78'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '79'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = '8'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '80'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '81'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '82'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '83'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '84'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '85'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '86'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '87'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '88'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '89'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = '9'
  AND P_POINT1 = SPACE
  AND P_SIMBOL = SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT0'.
        GV_INPUT1 = '90'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '91'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '92'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '93'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '94'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '95'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '96'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '97'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '98'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '99'.
        P_INPUT1 = GV_INPUT1.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 = SPACE
  AND P_POINT1 = SPACE .

    CASE SY-UCOMM.

*** 输入符号前数字 ***
      WHEN 'BUT0'.
        GV_INPUT1 = '0'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT1'.
        GV_INPUT1 = '1'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT2'.
        GV_INPUT1 = '2'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT3'.
        GV_INPUT1 = '3'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT4'.
        GV_INPUT1 = '4'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT5'.
        GV_INPUT1 = '5'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT6'.
        GV_INPUT1 = '6'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT7'.
        GV_INPUT1 = '7'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT8'.
        GV_INPUT1 = '8'.
        P_INPUT1 = GV_INPUT1.
      WHEN 'BUT9'.
        GV_INPUT1 = '9'.
        P_INPUT1 = GV_INPUT1.

*** 未输入数字先输入符号 ***
      WHEN 'BUTPLS'.
        MESSAGE '请先输入数字。' TYPE 'I' DISPLAY LIKE 'A'.
        LEAVE LIST-PROCESSING.
      WHEN 'BUTMIN'.
        MESSAGE '请先输入数字。' TYPE 'I' DISPLAY LIKE 'A'.
        LEAVE LIST-PROCESSING.
      WHEN 'BUTMUT'.
        MESSAGE '请先输入数字。' TYPE 'I' DISPLAY LIKE 'A'.
        LEAVE LIST-PROCESSING.
      WHEN 'BUTDVD'.
        MESSAGE '请先输入数字。' TYPE 'I' DISPLAY LIKE 'A'.
        LEAVE LIST-PROCESSING.
      WHEN OTHERS.

    ENDCASE.

  ENDIF.

*** 输入 第一行 小数点 ***
  IF  P_INPUT1 <> SPACE
  AND P_SIMBOL =  SPACE.

    CASE SY-UCOMM.

      WHEN 'BUTPON'.
        P_POINT1 = '.'.

    ENDCASE.

  ENDIF.

*** 输入 第一行 小数 ***

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL = SPACE
  AND P_INP_D1 = '1'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 11 / 100.
        P_INP_D1 = '11'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 12 / 100.
        P_INP_D1 = '12'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 13 / 100.
        P_INP_D1 = '13'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 14 / 100.
        P_INP_D1 = '14'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 15 / 100.
        P_INP_D1 = '15'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 16 / 100.
        P_INP_D1 = '16'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 17 / 100.
        P_INP_D1 = '17'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 18 / 100.
        P_INP_D1 = '18'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 19 / 100.
        P_INP_D1 = '19'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 10 / 100.
        P_INP_D1 = '10'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  '2'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 21 / 100.
        P_INP_D1 = '21'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 22 / 100.
        P_INP_D1 = '22'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 23 / 100.
        P_INP_D1 = '23'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 24 / 100.
        P_INP_D1 = '24'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 25 / 100.
        P_INP_D1 = '25'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 26 / 100.
        P_INP_D1 = '26'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 27 / 100.
        P_INP_D1 = '27'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 28 / 100.
        P_INP_D1 = '28'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 29 / 100.
        P_INP_D1 = '29'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 20 / 100.
        P_INP_D1 = '20'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  '3'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 31 / 100.
        P_INP_D1 = '31'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 32 / 100.
        P_INP_D1 = '32'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 33 / 100.
        P_INP_D1 = '33'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 34 / 100.
        P_INP_D1 = '34'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 35 / 100.
        P_INP_D1 = '35'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 36 / 100.
        P_INP_D1 = '36'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 37 / 100.
        P_INP_D1 = '37'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 38 / 100.
        P_INP_D1 = '38'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 39 / 100.
        P_INP_D1 = '39'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 30 / 100.
        P_INP_D1 = '30'.

    ENDCASE.
  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  '4'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 41 / 100.
        P_INP_D1 = '41'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 42 / 100.
        P_INP_D1 = '42'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 43 / 100.
        P_INP_D1 = '43'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 44 / 100.
        P_INP_D1 = '44'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 45 / 100.
        P_INP_D1 = '45'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 46 / 100.
        P_INP_D1 = '46'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 47 / 100.
        P_INP_D1 = '47'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 48 / 100.
        P_INP_D1 = '48'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 49 / 100.
        P_INP_D1 = '49'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 40 / 100.
        P_INP_D1 = '40'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 = '5'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 51 / 100.
        P_INP_D1 = '51'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 52 / 100.
        P_INP_D1 = '52'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 53 / 100.
        P_INP_D1 = '53'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 54 / 100.
        P_INP_D1 = '54'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 55 / 100.
        P_INP_D1 = '55'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 56 / 100.
        P_INP_D1 = '56'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 57 / 100.
        P_INP_D1 = '57'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 58 / 100.
        P_INP_D1 = '58'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 59 / 100.
        P_INP_D1 = '59'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 50 / 100.
        P_INP_D1 = '50'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  '6'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 61 / 100.
        P_INP_D1 = '61'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 62 / 100.
        P_INP_D1 = '62'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 63 / 100.
        P_INP_D1 = '63'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 64 / 100.
        P_INP_D1 = '64'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 65 / 100.
        P_INP_D1 = '65'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 66 / 100.
        P_INP_D1 = '66'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 67 / 100.
        P_INP_D1 = '67'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 68 / 100.
        P_INP_D1 = '68'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 69 / 100.
        P_INP_D1 = '69'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 60 / 100.
        P_INP_D1 = '60'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  '7'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 71 / 100.
        P_INP_D1 = '71'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 72 / 100.
        P_INP_D1 = '72'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 73 / 100.
        P_INP_D1 = '73'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 74 / 100.
        P_INP_D1 = '74'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 75 / 100.
        P_INP_D1 = '75'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 76 / 100.
        P_INP_D1 = '76'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 77 / 100.
        P_INP_D1 = '77'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 78 / 100.
        P_INP_D1 = '78'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 79 / 100.
        P_INP_D1 = '79'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 70 / 100.
        P_INP_D1 = '70'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  '8'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 81 / 100.
        P_INP_D1 = '81'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 82 / 100.
        P_INP_D1 = '82'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 83 / 100.
        P_INP_D1 = '83'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 84 / 100.
        P_INP_D1 = '84'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 85 / 100.
        P_INP_D1 = '85'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 86 / 100.
        P_INP_D1 = '86'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 87 / 100.
        P_INP_D1 = '87'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 88 / 100.
        P_INP_D1 = '88'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 89 / 100.
        P_INP_D1 = '89'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 80 / 100.
        P_INP_D1 = '80'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  '9'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 91 / 100.
        P_INP_D1 = '91'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 92 / 100.
        P_INP_D1 = '92'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 93 / 100.
        P_INP_D1 = '93'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 94 / 100.
        P_INP_D1 = '94'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 95 / 100.
        P_INP_D1 = '95'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 96 / 100.
        P_INP_D1 = '96'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 97 / 100.
        P_INP_D1 = '97'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 98 / 100.
        P_INP_D1 = '98'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 99 / 100.
        P_INP_D1 = '99'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 90 / 100.
        P_INP_D1 = '90'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  'O'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 1 / 100.
        P_INP_D1 = 'O1'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 2 / 100.
        P_INP_D1 = 'O2'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 3 / 100.
        P_INP_D1 = 'O3'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 4 / 100.
        P_INP_D1 = 'O4'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 5 / 100.
        P_INP_D1 = 'O5'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 6 / 100.
        P_INP_D1 = 'O6'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 7 / 100.
        P_INP_D1 = 'O7'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 8 / 100.
        P_INP_D1 = 'O8'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 9 / 100.
        P_INP_D1 = 'O9'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 0 / 100.
        P_INP_D1 = 'OO'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_POINT1 <> SPACE
  AND P_SIMBOL =  SPACE
  AND P_INP_D1 =  SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT1 = P_INPUT1 + 1 / 10.
        P_INP_D1 = '1'.
      WHEN 'BUT2'.
        GV_INPUT1 = P_INPUT1 + 2 / 10.
        P_INP_D1 = '2'.
      WHEN 'BUT3'.
        GV_INPUT1 = P_INPUT1 + 3 / 10.
        P_INP_D1 = '3'.
      WHEN 'BUT4'.
        GV_INPUT1 = P_INPUT1 + 4 / 10.
        P_INP_D1 = '4'.
      WHEN 'BUT5'.
        GV_INPUT1 = P_INPUT1 + 5 / 10.
        P_INP_D1 = '5'.
      WHEN 'BUT6'.
        GV_INPUT1 = P_INPUT1 + 6 / 10.
        P_INP_D1 = '6'.
      WHEN 'BUT7'.
        GV_INPUT1 = P_INPUT1 + 7 / 10.
        P_INP_D1 = '7'.
      WHEN 'BUT8'.
        GV_INPUT1 = P_INPUT1 + 8 / 10.
        P_INP_D1 = '8'.
      WHEN 'BUT9'.
        GV_INPUT1 = P_INPUT1 + 9 / 10.
        P_INP_D1 = '9'.
      WHEN 'BUT0'.
        GV_INPUT1 = P_INPUT1 + 0 / 10.
        P_INP_D1 = 'O'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT1 <> SPACE
  AND P_SIMBOL =  SPACE.

*** 输入符号 ***

    CASE SY-UCOMM.
      WHEN 'BUTPLS'.
        P_SIMBOL = '+'.
      WHEN 'BUTMIN'.
        P_SIMBOL = '-'.
      WHEN 'BUTMUT'.
        P_SIMBOL = '×'.
*      P_SIMBOL = '*'.
      WHEN 'BUTDVD'.
        P_SIMBOL = '÷'.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE.

*** 更改符号 ***

    CASE SY-UCOMM.
      WHEN 'BUTPLS'.
        P_SIMBOL = '+'.
      WHEN 'BUTMIN'.
        P_SIMBOL = '-'.
      WHEN 'BUTMUT'.
        P_SIMBOL = '×'.
*      P_SIMBOL = '*'.
      WHEN 'BUTDVD'.
        P_SIMBOL = '÷'.
    ENDCASE.

  ENDIF.

*** 输入 第二行 整数 ***

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '1'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '10'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '11'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '12'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '13'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '14'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '15'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '16'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '17'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '18'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '19'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '2'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '20'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '21'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '22'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '23'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '24'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '25'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '26'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '27'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '28'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '29'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '3'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '30'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '31'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '32'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '33'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '34'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '35'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '36'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '37'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '38'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '39'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '4'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '40'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '41'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '42'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '43'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '44'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '45'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '46'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '47'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '48'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '49'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '5'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '50'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '51'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '52'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '53'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '54'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '55'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '56'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '57'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '58'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '59'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '6'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '60'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '61'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '62'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '63'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '64'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '65'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '66'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '67'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '68'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '69'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '7'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '70'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '71'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '72'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '73'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '74'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '75'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '76'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '77'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '78'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '79'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '8'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '80'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '81'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '82'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '83'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '84'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '85'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '86'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '87'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '88'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '89'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  '9'.

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '90'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '91'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '92'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '93'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '94'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '95'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '96'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '97'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '98'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '99'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF  P_SIMBOL <> SPACE
  AND P_POINT2 =  SPACE
  AND P_INPUT2 =  SPACE.

*** 输入符号后数字 ***

    CASE SY-UCOMM.
      WHEN 'BUT0'.
        GV_INPUT2 = '0'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT1'.
        GV_INPUT2 = '1'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT2'.
        GV_INPUT2 = '2'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT3'.
        GV_INPUT2 = '3'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT4'.
        GV_INPUT2 = '4'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT5'.
        GV_INPUT2 = '5'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT6'.
        GV_INPUT2 = '6'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT7'.
        GV_INPUT2 = '7'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT8'.
        GV_INPUT2 = '8'.
        P_INPUT2 = GV_INPUT2.
      WHEN 'BUT9'.
        GV_INPUT2 = '9'.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

*** 输入 第二行 小数点 ***

  IF P_INPUT2 <> SPACE.

    CASE SY-UCOMM.
      WHEN 'BUTPON'.
        P_POINT2 = '.'.
    ENDCASE.

  ENDIF.

*** 输入 第二行 小数 ***

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '1'.

    CASE SY-UCOMM.
      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 11 / 100.
        P_INP_D2 = '11'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 12 / 100.
        P_INP_D2 = '12'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 13 / 100.
        P_INP_D2 = '13'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 14 / 100.
        P_INP_D2 = '14'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 15 / 100.
        P_INP_D2 = '15'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 16 / 100.
        P_INP_D2 = '16'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 17 / 100.
        P_INP_D2 = '17'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 18 / 100.
        P_INP_D2 = '18'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 19 / 100.
        P_INP_D2 = '19'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 10 / 100.
        P_INP_D2 = '10'.
    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '2'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 21 / 100.
        P_INP_D2 = '21'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 22 / 100.
        P_INP_D2 = '22'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 23 / 100.
        P_INP_D2 = '23'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 24 / 100.
        P_INP_D2 = '24'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 25 / 100.
        P_INP_D2 = '25'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 26 / 100.
        P_INP_D2 = '26'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 27 / 100.
        P_INP_D2 = '27'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 28 / 100.
        P_INP_D2 = '28'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 29 / 100.
        P_INP_D2 = '29'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 20 / 100.
        P_INP_D2 = '20'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '3'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 31 / 100.
        P_INP_D2 = '31'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 32 / 100.
        P_INP_D2 = '32'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 33 / 100.
        P_INP_D2 = '33'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 34 / 100.
        P_INP_D2 = '34'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 35 / 100.
        P_INP_D2 = '35'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 36 / 100.
        P_INP_D2 = '36'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 37 / 100.
        P_INP_D2 = '37'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 38 / 100.
        P_INP_D2 = '38'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 39 / 100.
        P_INP_D2 = '39'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 30 / 100.
        P_INP_D2 = '30'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '4'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 41 / 100.
        P_INP_D2 = '41'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 42 / 100.
        P_INP_D2 = '42'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 43 / 100.
        P_INP_D2 = '43'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 44 / 100.
        P_INP_D2 = '44'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 45 / 100.
        P_INP_D2 = '45'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 46 / 100.
        P_INP_D2 = '46'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 47 / 100.
        P_INP_D2 = '47'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 48 / 100.
        P_INP_D2 = '48'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 49 / 100.
        P_INP_D2 = '49'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 40 / 100.
        P_INP_D2 = '40'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '5'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 51 / 100.
        P_INP_D2 = '51'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 52 / 100.
        P_INP_D2 = '52'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 53 / 100.
        P_INP_D2 = '53'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 54 / 100.
        P_INP_D2 = '54'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 55 / 100.
        P_INP_D2 = '55'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 56 / 100.
        P_INP_D2 = '56'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 57 / 100.
        P_INP_D2 = '57'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 58 / 100.
        P_INP_D2 = '58'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 59 / 100.
        P_INP_D2 = '59'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 50 / 100.
        P_INP_D2 = '50'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '6'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 61 / 100.
        P_INP_D2 = '61'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 62 / 100.
        P_INP_D2 = '62'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 63 / 100.
        P_INP_D2 = '63'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 64 / 100.
        P_INP_D2 = '64'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 65 / 100.
        P_INP_D2 = '65'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 66 / 100.
        P_INP_D2 = '66'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 67 / 100.
        P_INP_D2 = '67'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 68 / 100.
        P_INP_D2 = '68'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 69 / 100.
        P_INP_D2 = '69'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 60 / 100.
        P_INP_D2 = '60'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '7'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 71 / 100.
        P_INP_D2 = '71'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 72 / 100.
        P_INP_D2 = '72'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 73 / 100.
        P_INP_D2 = '73'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 74 / 100.
        P_INP_D2 = '74'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 75 / 100.
        P_INP_D2 = '75'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 76 / 100.
        P_INP_D2 = '76'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 77 / 100.
        P_INP_D2 = '77'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 78 / 100.
        P_INP_D2 = '78'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 79 / 100.
        P_INP_D2 = '79'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 70 / 100.
        P_INP_D2 = '70'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '8'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 81 / 100.
        P_INP_D2 = '81'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 82 / 100.
        P_INP_D2 = '82'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 83 / 100.
        P_INP_D2 = '83'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 84 / 100.
        P_INP_D2 = '84'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 85 / 100.
        P_INP_D2 = '85'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 86 / 100.
        P_INP_D2 = '86'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 87 / 100.
        P_INP_D2 = '87'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 88 / 100.
        P_INP_D2 = '88'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 89 / 100.
        P_INP_D2 = '89'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 80 / 100.
        P_INP_D2 = '80'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  '9'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 91 / 100.
        P_INP_D2 = '91'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 92 / 100.
        P_INP_D2 = '92'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 93 / 100.
        P_INP_D2 = '93'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 94 / 100.
        P_INP_D2 = '94'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 95 / 100.
        P_INP_D2 = '95'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 96 / 100.
        P_INP_D2 = '96'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 97 / 100.
        P_INP_D2 = '97'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 98 / 100.
        P_INP_D2 = '98'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 99 / 100.
        P_INP_D2 = '99'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 90 / 100.
        P_INP_D2 = '90'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  'O'.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 1 / 100.
        P_INP_D2 = 'O1'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 2 / 100.
        P_INP_D2 = 'O2'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 3 / 100.
        P_INP_D2 = 'O3'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 4 / 100.
        P_INP_D2 = 'O4'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 5 / 100.
        P_INP_D2 = 'O5'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 6 / 100.
        P_INP_D2 = 'O6'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 7 / 100.
        P_INP_D2 = 'O7'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 8 / 100.
        P_INP_D2 = 'O8'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 9 / 100.
        P_INP_D2 = 'O9'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 0 / 100.
        P_INP_D2 = 'OO'.

    ENDCASE.

  ENDIF.

  IF  P_INPUT2 <> SPACE
  AND P_POINT2 <> SPACE
  AND P_INP_D2 =  SPACE.

    CASE SY-UCOMM.

      WHEN 'BUT1'.
        GV_INPUT2 = P_INPUT2 + 1 / 10.
        P_INP_D2 = '1'.
      WHEN 'BUT2'.
        GV_INPUT2 = P_INPUT2 + 2 / 10.
        P_INP_D2 = '2'.
      WHEN 'BUT3'.
        GV_INPUT2 = P_INPUT2 + 3 / 10.
        P_INP_D2 = '3'.
      WHEN 'BUT4'.
        GV_INPUT2 = P_INPUT2 + 4 / 10.
        P_INP_D2 = '4'.
      WHEN 'BUT5'.
        GV_INPUT2 = P_INPUT2 + 5 / 10.
        P_INP_D2 = '5'.
      WHEN 'BUT6'.
        GV_INPUT2 = P_INPUT2 + 6 / 10.
        P_INP_D2 = '6'.
      WHEN 'BUT7'.
        GV_INPUT2 = P_INPUT2 + 7 / 10.
        P_INP_D2 = '7'.
      WHEN 'BUT8'.
        GV_INPUT2 = P_INPUT2 + 8 / 10.
        P_INP_D2 = '8'.
      WHEN 'BUT9'.
        GV_INPUT2 = P_INPUT2 + 9 / 10.
        P_INP_D2 = '9'.
      WHEN 'BUT0'.
        GV_INPUT2 = P_INPUT2 + 0 / 10.
        P_INP_D2 = 'O'.

    ENDCASE.

  ENDIF.

*** 负号 ***

  IF P_SIMBOL <> SPACE.

    CASE SY-UCOMM.
      WHEN 'BUTPOM'.
        GV_INPUT2 = GV_INPUT2 - GV_INPUT2 * 2.
        P_INPUT2 = GV_INPUT2.
    ENDCASE.

  ENDIF.

  IF P_SIMBOL = SPACE.

    CASE SY-UCOMM.
      WHEN 'BUTPOM'.
        GV_INPUT1 = GV_INPUT1 - GV_INPUT1 * 2.
        P_INPUT1 = GV_INPUT1.
    ENDCASE.

  ENDIF.

*---------------------------------------------------------------------*
*          运算
*---------------------------------------------------------------------*

  IF P_SIMBOL = '+'.
    GV_OUTPUT = GV_INPUT1 + GV_INPUT2.

  ELSEIF P_SIMBOL = '-'.
    GV_OUTPUT = GV_INPUT1 - GV_INPUT2.

  ELSEIF P_SIMBOL = '×'.
    GV_OUTPUT = GV_INPUT1 * GV_INPUT2.

  ELSEIF P_SIMBOL = '÷'.
    IF P_INPUT2 = SPACE.

      CASE SY-UCOMM.
        WHEN 'BUT0'.
          MESSAGE '除数不能为 0' TYPE 'S' DISPLAY LIKE 'A'.
        WHEN 'BUT1'.
          P_INPUT2 = '1'.
          GV_INPUT2 = '1'.
        WHEN 'BUT2'.
          P_INPUT2 = '2'.
          GV_INPUT2 = '2'.
        WHEN 'BUT3'.
          P_INPUT2 = '3'.
          GV_INPUT2 = '3'.
        WHEN 'BUT4'.
          P_INPUT2 = '4'.
          GV_INPUT2 = '4'.
        WHEN 'BUT5'.
          P_INPUT2 = '5'.
          GV_INPUT2 = '5'.
        WHEN 'BUT6'.
          P_INPUT2 = '6'.
          GV_INPUT2 = '6'.
        WHEN 'BUT7'.
          P_INPUT2 = '7'.
          GV_INPUT2 = '7'.
        WHEN 'BUT8'.
          P_INPUT2 = '8'.
          GV_INPUT2 = '8'.
        WHEN 'BUT9'.
          P_INPUT2 = '9'.
          GV_INPUT2 = '9'.
      ENDCASE.

      MESSAGE '除数不能为 0' TYPE 'S' DISPLAY LIKE 'A'.

    ENDIF.

    IF P_INPUT2 <> SPACE.
      GV_OUTPUT = GV_INPUT1 / GV_INPUT2.
    ENDIF.

  ENDIF.

*---------------------------------------------------------------------*
*          输出
*---------------------------------------------------------------------*

  CASE SY-UCOMM.
    WHEN 'BUTEQ'.
      P_OUTPUT = GV_OUTPUT.
*    WRITE: GV_OUTPUT.
*    SET PF-STATUS SPACE.
*    LEAVE TO LIST-PROCESSING.

    WHEN 'BUTAC'.
      CLEAR:
        P_INPUT1,
        P_POINT1,
        P_INP_D1,
        P_SIMBOL,
        P_INPUT2,
        P_POINT2,
        P_INP_D2,
        P_OUTPUT,
        GV_INPUT1,
        GV_POINT1,
        GV_INP_D1,
        GV_INPUT2,
        GV_POINT2,
        GV_INP_D2,
        GV_SIMBOL,
        GV_OUTPUT.
  ENDCASE.

*** 百分号 ***

  CASE SY-UCOMM.
    WHEN 'BUTPER'.
      GV_OUTPUT = GV_OUTPUT / 100.
      P_OUTPUT = GV_OUTPUT.
  ENDCASE.``
SingerJulie
关注
SAP-1_Emulator:一个简单的模拟器，用于SAP-1处理器的修改版本。 允许读取.sap文件作为基本的低级汇编语言
03-06
SAP-1_仿真器 一个简单的模拟器，用于SAP-1处理器的修改版本。 允许读取用作基本底层汇编语言的.sap文件。 仿真器 SAP-1仿真器是一个C ++类，由几个阶段组成。 首先，加载包含SAP-1汇编代码的文件。 这可以在初始化类对象时通过构造函数设置，也可以在使用 bool openFile (std::string _codeFile) 函数调用。 _codefile可以是.sap文件的路径，也可以是名称（如果代码与项目文件位于同一目录中）。 接下来，自动解析器读取.sap文件的内容，并将所有指令加载到RAM中。 解析完成后，定序器将自动启动，程序计数器开始递增，从而在RAM上运行任何命令，直到到达HLT命令为止。 指令系统 修改后的SAP-1仿真器包含所有原始指令，它们各自的操作码和助记符，以及用于将变量存储在给定内存地址中的附加MOV指令： 助记符 操作码 争论 描述
SAP_MIRO_Free-Tutorial-on-Invoice-Verification
06-15
- 使用模拟图标（通常为一个类似于计算器的图标）来预览可能的错误或警告消息。 - 如果出现任何问题，点击消息图标查看详细信息，并根据提示进行修正。 **4. 保存或过账条目** - 如果没有发现问题，则可以选择保存...
ABAP 模拟做成像windows一样的计算器
matinal 當冬夜漸暖 。公众号：matinal
12-12 1332
ABAP 做成像windows一样的计算器
【ABAP系列】SAP ABAP 模拟做成像windows一样的计算器
weixin_30485799的博客
07-12 215
公众号：SAP Technical 本文作者：matinal 原文出处：http://www.cnblogs.com/SAPmatinal/ 原文链接：【MM系列】SAP ABAP 模拟做成像windows一样的计算器 前言部分 大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。 正文部分 自己测试内容，仅供参考。 转载于:https://www.c...
ABAP 内部计算器
lvzhqi的专栏
01-09 1060
function module: FITRV_CALCULATOR
ABAP-计算器-动态表达式
abbilglf665483的博客
12-27 433
data:lv_value type string. call function 'EVAL_FORMULA' exporting formula = '90 <= 90' program = sy-repid importing value ...
使用SAP ABAP进行简单的GUI编程
ABAP是SAP系统的核心技术之一，通过ABAP编程，可以扩展和定制现有的SAP应用程序，实现各种业务需求的功能。 ## 1.2 SAP ABAP的特点和优势 - **强大的集成性**：SAP ABAP可以与其他SAP模块和第三方系统进行无缝集成...
【CEON ABAP Eclipse插件深度剖析】：功能解析与使用建议
[【CEON ABAP Eclipse插件深度剖析】：功能解析与使用建议](https://sapandco.com/wp-content/uploads/2016/01/SAP-Log-Gui-1024x439.jpg) # 摘要 本文详细介绍了CEON ABAP Eclipse插件，一种用于ABAP开发的集成...
实战演练：SAP FI PA C-TS4FI-2021模拟题详解
本文对SAP FI PA模块进行了全面介绍，从核心概念的深入理解到关键配置的详细说明，再到实战演练和认证准备，系统地阐述了SAP财务会计模块的功能和应用。文章首先概述了SAP FI PA模块的总体架构，并进一步探讨了财务...
计算器（里面实现了计算器的基本功能）
07-31
这是一个最简单的计算器，里面实现了计算器的基本功能，算法应该是做计算器的最简单的算法了，有兴趣的朋友可以添加一些自己喜欢的功能。
SAP环境模拟练习软件——Inventory Mgt操作部分
05-04
系基本操作，提供给对SAP感兴趣的学习者
abap语言编程学习
12-10
对sap开发人员有很大帮助，可以使初学者尽快的了解sap的编程和开发
一个简易的计算器
10-17
一个实现了加减乘数基本运算的计算器程序.html，javascript，css编写
SAP智能机器人流程自动化解决方案.docx
10-26
相反，iRPA基于SAP云平台CloudFoundry，支持云端部署，能够处理跨系统和多应用程序的任务。通过编写、调度、管理和监控机器人工作流，iRPA能够模拟人类用户在各种应用程序中的交互，执行日常的重复性任务。 在技术...
函数_sap系统里的计算器(FUNCTION)
congweiju9623的博客
04-11 326
REPORT Z_TEST_029. DATA: X_VALUE(15) TYPE C. call function 'FITRV_CALCULATOR'* EXPORTING* INPUT_VALUE...
SAP虚拟机的使用方法
weixin_30797199的博客
12-31 791
在网上下了一个SAP虚拟机(sapR3.rar),解压后没有看到使用文档，只有一个用户名和密码文件，不知道怎么用，在网上查了一些资料后，找到了使用方法。现在把它写下来，以防备用。 一、增加虚拟网卡。 运行起来后，看了一下ip是100.100.100.2，因为和我的主机不在同一个网段，没法连接，本来想和主机改到同一个网段的，但网上看了一下资料，Oracle数据库和...
探索未来出行：SAP e-Mobility 充电站模拟器
最新发布
gitblog_00090的博客
06-26 438
探索未来出行：SAP e-Mobility 充电站模拟器 项目地址:https://gitcode.com/gh_mirrors/em/e-mobility-charging-stations-simulator 在当今快速发展的电动汽车行业中，一个强大的充电基础设施是不可或缺的关键部分。为了帮助开发者、企业和研究人员更好地测试和优化他们的电动车充电解决方案，SAP 推出了一个创新的开源项目——e...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值