设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[report] PERFORM封装分割代码案例

Twilight发表于 2014-02-22 19:15Twilight 最后回复于 2014-02-22 19:15 [复制链接] 3539 0

我们一定要养成一个封装分割代码的好习惯，既能提高代码的重用性，又能提高代码的可阅读性。
先阅读：用write输出带有表头和交通灯的格式化数据报表，该程序是对它的代码封装优化，执行效果相同。

程序代码：
  1. REPORT  ZLXG_HM2_PERFORM .
  2. *--------------------------------------------------------------------*
  3. *TYPES
  4. *--------------------------------------------------------------------*
  5. TYPES:BEGIN OF TP_SFLIGHT,
  6.        carrid    TYPE SFLIGHT-carrid ,
  7.        connid    TYPE SFLIGHT-connid ,
  8.        fldate    TYPE SFLIGHT-fldate ,
  9.        price     TYPE SFLIGHT-price  ,
  10.        currency  TYPE SFLIGHT-currency,
  11.        planetypE TYPE SFLIGHT-planetypE,
  12.        seatsmax  TYPE SFLIGHT-seatsmax,
  13.        seatsocc  TYPE SFLIGHT-seatsocc,
  14.        occpercent TYPE P DECIMALS 2,
  15.       END OF TP_SFLIGHT.
  16. *--------------------------------------------------------------------*
  17. *DATA
  18. *--------------------------------------------------------------------*
  19. DATA:WA_SFLIGHT TYPE TP_SFLIGHT.
  20. DATA:IT_SFLIGHT TYPE STANDARD TABLE OF TP_SFLIGHT.
  21. DATA:IT_SFLIGHT_OUT TYPE STANDARD TABLE OF TP_SFLIGHT.
  22. *--------------------------------------------------------------------*
  23. *SELECTION-SCREEN
  24. *--------------------------------------------------------------------*
  25. SELECTION-SCREEN BEGIN OF BLOCK B_P1 WITH FRAME TITLE TEXT-010.
  26. PARAMETERS:PA_CARR TYPE SFLIGHT-CARRID.
  27. SELECT-OPTIONS:SO_CONN FOR WA_SFLIGHT-CONNID,
  28.                SO_FLDA FOR WA_SFLIGHT-FLDATE.
  29. SELECTION-SCREEN END OF BLOCK B_P1.
  30. SELECTION-SCREEN BEGIN OF BLOCK B_P2 WITH FRAME TITLE TEXT-011.
  31. PARAMETERS: PA_check  AS CHECKBOX.
  32. PARAMETERS: radio1 RADIOBUTTON GROUP int,
  33.             radio2 RADIOBUTTON GROUP int,
  34.             radio3 RADIOBUTTON GROUP int.
  35. SELECTION-SCREEN END OF BLOCK B_P2.
  36. *--------------------------------------------------------------------*
  37. *LOAD-OF-PROGRAM = INITIALIZATION
  38. *--------------------------------------------------------------------*
  39. LOAD-OF-PROGRAM.
  40. PA_CARR = 'AA'.
  41. PA_check = 'X'.
  42. *--------------------------------------------------------------------*
  43. *AT SELECTION-SCREEN
  44. *--------------------------------------------------------------------*
  45. AT SELECTION-SCREEN ON PA_CHECK.
  46.   IF PA_check IS NOT INITIAL.
  47.      MESSAGE W003(ZVINO).
  48. *   Invalid operator!
  49.   ENDIF.
  50. *--------------------------------------------------------------------*
  51. *TOP-OF-PAGE.
  52. *--------------------------------------------------------------------*
  53. TOP-OF-PAGE.
  54. FORMAT COLOR COL_HEADING.
  55. IF PA_check = 'X'.
  56.   ULINE 1(131).
  57. ELSE.
  58.   ULINE /1(107).
  59. ENDIF.
  60. WRITE:/ SY-VLINE, AT 2(10) 'carrid'(001) ,
  61.         SY-VLINE, AT 14(10)'connid'(002),
  62.         SY-VLINE, AT 26(20)'fldate'(003),
  63.         SY-VLINE, AT 48(10)'price'(004),
  64.         SY-VLINE, AT 60(10)'currency'(005),
  65.         SY-VLINE, AT 72(10)'planetype'(006),
  66.         SY-VLINE, AT 84(10)'seatsmax'(007),
  67.         SY-VLINE, AT 96(10)'seatsocc'(008).
  68.         IF PA_check = 'X'.
  69.           WRITE:SY-VLINE, AT 108(10)'percent'(009),
  70.                 SY-VLINE, AT 120(10)'STATUS'(012),SY-VLINE.
  71.           ULINE /1(131).
  72.           ELSE.
  73.             WRITE:SY-VLINE.
  74.             ULINE /1(107).
  75.         ENDIF.
  76. FORMAT RESET.

  78. *--------------------------------------------------------------------*
  79. *START-OF-SELECTION.
  80. *--------------------------------------------------------------------*
  81. START-OF-SELECTION.
  82. PERFORM GET_DATA
  83.             USING
  84.                PA_CARR
  85.                RADIO1
  86.                RADIO2
  87.                RADIO3
  88.                SO_CONN[]
  89.                SO_FLDA[]
  90.             CHANGING
  91.                IT_SFLIGHT_OUT[].

  93. PERFORM OUT_DATA
  94.             USING
  95.                IT_SFLIGHT_OUT[].

  97. *&---------------------------------------------------------------------*
  98. *&      Form  GET_DATA
  99. *&---------------------------------------------------------------------*
  100. *       text
  101. *----------------------------------------------------------------------*
  102. *  -->  p1        text
  103. *  <--  p2        text
  104. *----------------------------------------------------------------------*
  105. FORM GET_DATA USING P_CARR
  106.                     rad1
  107.                     rad2
  108.                     rad3
  109.                     S_CONN TYPE TABLE
  110.                     S_FLDA TYPE TABLE
  111.               CHANGING T_SFLIGHT_OUT TYPE TABLE.

  113. DATA:W_SFLIGHT TYPE TP_SFLIGHT.
  114. DATA:T_SFLIGHT TYPE STANDARD TABLE OF TP_SFLIGHT.
  115. SELECT *
  116.   FROM SFLIGHT
  117.   INTO CORRESPONDING FIELDS OF TABLE T_SFLIGHT
  118.   WHERE CARRID = P_CARR
  119.   AND CONNID IN S_CONN
  120.   AND FLDATE IN S_FLDA.

  122. LOOP AT T_SFLIGHT INTO W_SFLIGHT.
  123. W_SFLIGHT-occpercent = W_SFLIGHT-seatsocc / W_SFLIGHT-seatsmax.
  124. MODIFY T_SFLIGHT FROM W_SFLIGHT.
  125. ENDLOOP.

  127. IF rad1 = 'X'.
  128. T_SFLIGHT_OUT = T_SFLIGHT.
  129. ENDIF.

  131. IF rad2 = 'X'.
  132.     LOOP AT T_SFLIGHT INTO W_SFLIGHT WHERE occpercent < '0.75'.
  133.        APPEND W_SFLIGHT TO T_SFLIGHT_OUT.
  134.     ENDLOOP.
  135. ENDIF.

  137. IF rad3 = 'X'.
  138.     LOOP AT T_SFLIGHT INTO W_SFLIGHT WHERE occpercent < '0.5'.
  139.        APPEND W_SFLIGHT TO T_SFLIGHT_OUT.
  140.     ENDLOOP.
  141. ENDIF.

  143. *CASE 'X'.
  144. *  WHEN radio1.
  145. *    IT_SFLIGHT_OUT = IT_SFLIGHT.
  146. *  WHEN RADIO2.
  147. *    LOOP AT IT_SFLIGHT INTO WA_SFLIGHT WHERE occpercent < '0.75'.
  148. *       APPEND WA_SFLIGHT TO IT_SFLIGHT_OUT.
  149. *    ENDLOOP.
  150. *  WHEN RADIO3.
  151. *    LOOP AT IT_SFLIGHT INTO WA_SFLIGHT WHERE occpercent < '0.5'.
  152. *       APPEND WA_SFLIGHT TO IT_SFLIGHT_OUT.
  153. *    ENDLOOP.
  154. *ENDCASE.
  155. ENDFORM.                    " GET_DATA
  156. *&---------------------------------------------------------------------*
  157. *&      Form  OUT_DATA
  158. *&---------------------------------------------------------------------*
  159. *       text
  160. *----------------------------------------------------------------------*
  161. *  -->  p1        text
  162. *  <--  p2        text
  163. *----------------------------------------------------------------------*
  164. FORM OUT_DATA USING T_SFLIGHT_OUT TYPE TABLE.
  165. DATA:W_SFLIGHT TYPE TP_SFLIGHT.
  166. LOOP AT T_SFLIGHT_OUT INTO W_SFLIGHT.
  167. WRITE:/ SY-VLINE, AT 2(10)  W_SFLIGHT-carrid COLOR COL_KEY,
  168.         SY-VLINE, AT 14(10) W_SFLIGHT-connid COLOR COL_KEY,
  169.         SY-VLINE, AT 26(20) W_SFLIGHT-fldate COLOR COL_KEY,
  170.         SY-VLINE, AT 48(10) W_SFLIGHT-price  CURRENCY W_SFLIGHT-currency,
  171.         SY-VLINE, AT 60(10) W_SFLIGHT-currency,
  172.         SY-VLINE, AT 72(10) W_SFLIGHT-planetype,
  173.         SY-VLINE, AT 84(10) W_SFLIGHT-seatsmax,
  174.         SY-VLINE, AT 96(10) W_SFLIGHT-seatsocc.
  175.         IF PA_check = 'X'.
  176.         WRITE:SY-VLINE, AT 108(10) W_SFLIGHT-occpercent.
  177.           IF W_SFLIGHT-occpercent < '0.5'.
  178.             WRITE: SY-VLINE, AT 120(10) ICON_GREEN_LIGHT AS ICON ,SY-VLINE.
  179.             ELSEIF W_SFLIGHT-occpercent < '0.75'.
  180.               WRITE: SY-VLINE, AT 120(10) ICON_YELLOW_LIGHT AS ICON ,SY-VLINE.
  181.               ELSE.
  182.               WRITE: SY-VLINE, AT 120(10) ICON_RED_LIGHT AS ICON ,SY-VLINE.
  183.           ENDIF.
  184.           ULINE /1(131).
  185.         ELSE.
  186.             WRITE:SY-VLINE.
  187.             ULINE /1(107).
  188.         ENDIF.
  189. ENDLOOP.
  190. ENDFORM.                    " OUT_DATA
复制代码
子过程, 封装, perform

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 847 主题
  2. 125 回帖
  3. 11270 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-12-23 06:50 , Processed in 0.089900 second(s), 5 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表