*一、宏
*data: sum type i.
*DEFINE cheng.
- &1 = &2 * &3 * &4 * &5 * &9 * &8 * &7 * &6.
*end-OF-DEFINITION.
*cheng sum 5 2 5 6 5 6 4.
*WRITE:sum.
*二蛔添、包含程序
*include ztext101.
*WRITE:/ MAX.
*三章蚣、子例程
*1、 用戶在選擇屏幕上輸入兩個整數(shù)蜻懦,通過調(diào)用一個子程序求這兩個整數(shù)之間所有被3整除的數(shù)的總和甜癞。
*PARAMETERS : M1 TYPE I,
M2 TYPE I.
*DATA: COUNT TYPE I.
*PERFORM Z_SUM USING M1 M2 CHANGING COUNT.
*WRITE:/ COUNT.
*FORM Z_SUM USING M1 TYPE I
M2 TYPE I
CHANGING S TYPE I.
*DATA:T TYPE I.
*T = M1.
*WHILE T < M2.
- T = T + 1.
- IF T MOD 3 = 0.
- S = S + T.
- ENDIF.
*ENDWHILE.
*ENDFORM.
*2、 定義一個zty_score結(jié)構(gòu)體類型,包含學(xué)號no宛乃、姓名name悠咱、成績score.定義一個內(nèi)表蒸辆,做子例程程序,求出平均成績析既。
*TYPES: BEGIN OF zty_score,
- NO(20) TYPE C,
- NAME(20) TYPE C,
- SCORE TYPE I,
- END OF zty_score.
- DATA: GT_SCORE TYPE TABLE OF zty_score,
WA_SCORE TYPE zty_score,
SUM TYPE I,
CISHU TYPE I,
AVG TYPE I.
- WA_SCORE-NO = 1754574555.
- WA_SCORE-name = '誰會'.
- WA_SCORE-SCORE = 70.
- APPEND WA_SCORE TO GT_SCORE.
- WA_SCORE-NO = 1754574555.
- WA_SCORE-name = '誰會'.
- WA_SCORE-SCORE = 80.
- APPEND WA_SCORE TO GT_SCORE.
- WA_SCORE-NO = 1754574555.
- WA_SCORE-name = '誰會'.
- WA_SCORE-SCORE = 72.
- APPEND WA_SCORE TO GT_SCORE.
*LOOP AT GT_SCORE INTO WA_SCORE.
- SUM = SUM + WA_SCORE-SCORE.
- CISHU = CISHU + 1.
*ENDLOOP.
*PERFORM H_AVG USING SUM CISHU CHANGING AVG.
*WRITE:/ avg.
- FORM H_AVG USING X TYPE I
Y TYPE I
CHANGING AVG TYPE I.
- AVG = X / Y.
- ENDFORM.