第二课 加减乘除

DATA:GV_TITLE(10) TYPE C,
     GV_LINE5     TYPE P LENGTH 10 DECIMALS 2,
     GV_LINE2     TYPE I VALUE 12,
     GV_LINE3     TYPE I VALUE 10,
     GV_LINE4     TYPE I. "
FIELD-SYMBOLS:<GFS_INT1> TYPE I."定义指针

PARAMETERS:PA_INIT1 TYPE P LENGTH 10 DECIMALS 2.
PARAMETERS:PA_YSF TYPE C LENGTH 3.
PARAMETERS:PA_INIT2 TYPE P LENGTH 10 DECIMALS 2.


ASSIGN GV_LINE2 TO <GFS_INT1>."指针分配

GV_TITLE = '第二课练习'.

IF GV_TITLE EQ '第二课练习1'.
  WRITE:'S'.
ELSE.
  WRITE:'E'.
ENDIF.

IF GV_LINE2 gt GV_LINE3.

  WRITE:'12大于10'.

ENDIF.

WRITE:/ GV_TITLE.
*SKIP 10.
IF <GFS_INT1> IS ASSIGNED."判断指针是否被分配
*  <GFS_INT1> = 2.
  GV_LINE2 = 2.
  WRITE: / <GFS_INT1>,
         / GV_LINE2.
ENDIF.
WRITE:SY-ULINE."水平线
*WRITE:SY-VLINE."垂直线
GV_LINE5 = 100.
WRITE / GV_LINE5 LEFT-JUSTIFIED." 右对齐 RIGHT-JUSTIFIED


* 结果 = 变量A + 变量B.
* 结果 = 变量A - 变量B.
* 结果 = 变量A * 变量B.
* 结果 = 变量A / 变量B. MOD DIV

作业：

PARAMETERS:PA_INIT1 TYPE P LENGTH 10 DECIMALS 2,  "数字1
           PA_YSF   TYPE C LENGTH 3,              "运算符
           PA_INIT2 TYPE P LENGTH 10 DECIMALS 2.  "数字2

DATA: GV_JG TYPE P LENGTH 10 DECIMALS 2.

IF PA_YSF = '+'.
  GV_JG = PA_INIT1 + PA_INIT2.
ELSEIF PA_YSF = '-'.                              "ELSEIF：再如果
  GV_JG = PA_INIT1 - PA_INIT2.
ELSEIF PA_YSF = '/'.
  GV_JG = PA_INIT1 / PA_INIT2.
ELSEIF PA_YSF = '*'.
  GV_JG = PA_INIT1 * PA_INIT2.
ENDIF.

WRITE:'结果:', GV_JG LEFT-JUSTIFIED.