ABAP Coding Rule-Part4－－典型程序框架

 7.典型程序框架

下面给出一个报表的典型框架，供参考：

*&---------------------------------------------------------------------*

*& Program Name        : Z*******                                      *

*& Author              : 开发者的名字                                  *

*& Create Date         : YYYY/MM/DD                                    *

*& Module              : XXXXXXXXXXX                                   *

*& Purpose             : 程序基本功能描述                              *

*&                       程序基本功能描述                              *

*&---------------------------------------------------------------------*

*  MODIFICATIONS LOG : 程式修改更新记录

*&---------------------------------------------------------------------*

* ChangeDate Programmer    Request      Description

* ========== ============= ============ ================================

*                                       NEW PROGRAM

REPORT Z******* NO STANDARD PAGE HEADING

          MESSAGE-ID __    “ 所使用的MESSAGE

          LINE-COUNT ___   “ 每页报表列数

          LINE-SIZE  ___.  “ 每页报表宽度

*  TABLE DESCRIPTION : 宣告程式会使用的TABLE

*------------------------------------------------------------------

TABLES:    

* DATA : 宣告程式所使用的变量

*----------------------------------------------------------------

TYPES:

DATA:

*  SELECTION SCREEN / OPTION / PARAMETER : 屏幕输入报表筛选条件

*-----------------------------------------------------------------

  SELECTION-SCREEN BEGIN OF BLOCK ____

       SELECT-OPTIONS:

  SELECTION-SCREEN END OF BLOCK ___

* INITIALIZATION : 启动程序开始执行, 如SELECT-OPTION及PARAMETER

*----------------------------------------------------------------

INITIALIZATION.

INCLUDE ____.

* AT START SELECTION : 输入后调用的模块, 如按下<F8>

*---------------------------------------------------------------

START-OF-SELECTION.

  SET PF-STATUS ____.  “ 指定报表执行时所用的 GUI-STATUS名称

  PERFORM READ_DATA.

  PERFORM PROCESS_DATA.

  PERFORM PRINT_DATA.

* AT USER Commaand : 执行在GUI-STATUS中自定的命令

*--------------------------------------------------------------------

AT USER-COMMAND.

   CASE SY-UCOMM.

        WHEN ___.

         ……

   ENDCASE.

* AT LINE SELECTION : 由在报表中按下<F2>或Double-Click启动

*--------------------------------------------------------------------

AT LINE-SELECTION.

* TOP OF PGAE : 每页开始打印时执行, 用于定义报表表头

*--------------------------------------------------------------------

* END OF PAGE : 报表打印完最后一页后启动

*---------------------------------------------------------------------

END-OF-PAGE

* END OF SELECTION : 在结束打印资料后启动, 如可用来印出User输入的条件

*---------------------------------------------------------------------

END-OF-SELECTION.

INCLUDE  _____

* FORM : 写程序的时候所用到的副程序

*-------------------------------------------------------------

* Read Data : 从TABLE读取资料放入Internal Table

*-------------------------------------------------------------

FORM READ_DATA.

  SELECT * FROM ______

           INTO _______

           WHERE _______.

     IF SY-SUBRC = 0.

     ENDIF.

     APPEND _____.  “ 增加Internal Table记录

  ENDSELECT.

ENDFORM.

* Process Data : 处理Internal Table的资料

*-------------------------------------------------------------

FORM PROCESS_DATA.

ENDFORM.

* Print Data : 输出 Internal Table的资料

*-------------------------------------------------------------

FORM PRINT_DATA.

ENDFORM.