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.