视图维护（实现外壳程序过滤条件）

 1. 使用function: VIEW_MAINTENANCE_CALL取代用transaction with parameters产生t-code的方式调用维护示图

 2.外壳过滤条件的实现

          2.1 在外壳程序中把过滤条件传到内存中

         2.2 在function goup: ZXXXX 中的 LZXXXXTOP从内存中取得过滤条件

    *         LOAD-OF-PROGRAM.*         RANGES: S_WERKS FOR T001L-WERKS,*                 S_LGORT FOR T001L-LGORT.*         DATA: G_ACTVT TYPE C.*         IMPORT P1 = S_WERKS FROM MEMORY ID 'S_WERKS'.*         IMPORT P2 = S_LGORT FROM MEMORY ID 'S_LGORT'.*         IMPORT P3 = G_ACTVT FROM MEMORY ID 'G_ACTVT'.*         INSERT 'WERKS IN S_WERKS' INTO VIM_WHERETAB INDEX 1.*         INSERT 'AND LGORT IN S_LGORT' INTO VIM_WHERETAB INDEX 2.  *    2.3 在function: TABLEPROC_ZXXXX 里面, 注销过程:TABLEPROC,*        调用新的过程SUB_XXX_TABLEPROC, 新的过程里面的代码复制*        tableproc里面的代码, ---->代码如下**        *  PERFORM TABLEPROC.

*           PERFORM SUB_XXX_TABLEPROC.

*    2.4 调整新的过程SUB_XXX_TABLEPROC里面的代码*        注销过程:TABLE_GET_DATA, 调用新的过程SUB_xxx_TABLE_GET_DATA,*        新的过程里面的代码copy from 过程: TABLE_GET_DATA ---->代码如下**    *      PERFORM TABLE_GET_DATA.

*         PERFORM SUB_XXX_TABLE_GET_DATA.

*    2.5 调整新的过程SUB_XXX_TABLE_GET_DATA里面的代码*        注销语句: REFRESH VIM_WHERETAB.*        注销语句: SELECT * FROM (X_HEADER-MAINTVIEW) INTO TABLE <PRIMTAB>*        新增语句: SELECT * FROM (X_HEADER-MAINTVIEW) INTO TABLE*                  <PRIMTAB> WHERE (VIM_WHERETAB) ..*        ---->代码如下**        *    REFRESH VIM_WHERETAB.*        *   read data from database without wheretab...........................**           CREATE DATA PRIMTAB TYPE STANDARD TABLE OF (X_HEADER-MAINTVIEW)."UCb*           ASSIGN PRIMTAB->* TO <PRIMTAB>.*        *  SELECT * FROM (X_HEADER-MAINTVIEW) INTO TABLE <PRIMTAB>.**           SELECT * FROM (X_HEADER-MAINTVIEW) INTO TABLE <PRIMTAB> WHERE (VIM_WHERETAB) ..

* 4. 维护, 显示功能区分*    4.1 显示的时候隐藏转到维护截面去的toolbar, 在屏幕0001的PBO里面*        注销语句:MODULE LISTE_INITIALISIEREN. 起用新的module:*        SUB_xxx_LISTE_INITIALISIEREN, 新module的代码copy from*        MODULE LISTE_INITIALISIEREN. -->代码如下:***        PROCESS BEFORE OUTPUT.**  MODULE LISTE_INITIALISIEREN.*  MODULE SUB_LSL_LISTE_INITIALISIEREN.*  LOOP AT EXTRACT WITH CONTROL*   TCTRL_ZXXXX CURSOR NEXTLINE.*    MODULE LISTE_SHOW_LISTE.*  ENDLOOP.***    4.2 更改MODULE SUB_LSL_LISTE_INITIALISIEREN.*  在语句: SET CURSOR FIELD F LINE L OFFSET O. 之后*  在语句: PERFORM SET_PF_STATUS USING STATUS. 之前, 增加代码*  -->代码如下**  SET CURSOR FIELD F LINE L OFFSET O.***-------如果是显示状态, 则隐藏 [更改] 按钮*  DATA: BEGIN OF T_FCODE OCCURS 10,*          FCODE LIKE RSMPE-FUNC,*        END OF T_FCODE.*  IF G_ACTVT = 'S' . "显示*    EXCL_CUA_FUNCT-FUNCTION = 'AEND'. "更改*    COLLECT EXCL_CUA_FUNCT.*  ENDIF.**  PERFORM SET_PF_STATUS USING STATUS.*&---------------------------------------------------------------------*