程序模版

*----------------------------------------------------------------------*
* Program Name: Z_KEVIN_TEMPLATE
* Project     : N/A
* Author      : Kevin.Zhang
* Date        : 2007.1.1
* Module      : N/A
* Description : Template of Program
*
*
*
* Special features: N/A
*
*
*----------------------------------------------------------------------*
* Modifications:
* Author      Date     Commented as  Description
*-----------  --------  -----------  ----------------------------------*
*
*----------------------------------------------------------------------*

REPORT   Z_KEVIN_TEMPLATE.
*$*$----------------------------------------------------------------$*$*
*$*$       Global Types, Data Statements, Ranges, Constants         $*$*
*$*$----------------------------------------------------------------$*$*

*-----------------------------------------------------------------------
*                   Type Pools
*-----------------------------------------------------------------------
TYPE -POOLS: SLIS,VRM, SBDST, SOI.

*-----------------------------------------------------------------------
*                   Tables
*-----------------------------------------------------------------------
TABLES : MAKT, VBAK.

*-----------------------------------------------------------------------
*                        Types
*-----------------------------------------------------------------------
TYPES : BEGIN  OF  T_ITAB.
        INCLUDE  STRUCTURE  MAKT.
TYPES : END  OF  T_ITAB.

*-----------------------------------------------------------------------
*                    Internal Tables and Work Areas
*-----------------------------------------------------------------------
DATA  GT_ITAB TYPE  STANDARD  TABLE  OF  T_ITAB.

*-----------------------------------------------------------------------
*                  Variables
*-----------------------------------------------------------------------
DATA : G_FLAG.
*-----------------------------------------------------------------------
*                    Constants
*-----------------------------------------------------------------------
CONSTANTS :      C_TOTAL(8 )  TYPE  C        VALUE  'WA_TOTAL' .

*-----------------------------------------------------------------------
*                   Field Symbols
*-----------------------------------------------------------------------
FIELD -SYMBOLS:<FS_LINE>.
*-----------------------------------------------------------------------
*                   Ranges
*-----------------------------------------------------------------------
RANGES : R_OSD_DOCTYPS FOR  VBAK-AUART.
*-----------------------------------------------------------------------
*     Global GUI Controls Variables / Structures
*-----------------------------------------------------------------------

*--Data Definition of OLE
DATA : GS_EXCEL TYPE  OLE2_OBJECT ,
      GS_WBOOKLIST TYPE  OLE2_OBJECT ,
      GS_APPLICATION TYPE  OLE2_OBJECT ,
      GS_WBOOK TYPE  OLE2_OBJECT ,
      GS_ACTIVESHEET TYPE  OLE2_OBJECT ,
      GS_SHEETS TYPE  OLE2_OBJECT ,
      GS_NEWSHEET TYPE  OLE2_OBJECT ,
      GS_CELL1 TYPE  OLE2_OBJECT ,
      GS_CELL2 TYPE  OLE2_OBJECT ,
      GS_CELLS TYPE  OLE2_OBJECT ,
      GS_RANGE TYPE  OLE2_OBJECT ,
      GS_FONT TYPE  OLE2_OBJECT ,
      GS_INTERIOR TYPE  OLE2_OBJECT ,
      GS_COLUMNS TYPE  OLE2_OBJECT ,
      GS_CHARTS TYPE  OLE2_OBJECT ,
      GS_CHART TYPE  OLE2_OBJECT ,
      GS_CHARTTITLE TYPE  OLE2_OBJECT ,
      GS_CHARTTITLECHAR TYPE  OLE2_OBJECT ,
      GS_CHARTOBJECTS TYPE  OLE2_OBJECT .

DATA  GV_SHEET_NAME(20 ) TYPE  C  .
DATA  GV_OUTER_INDEX LIKE  SY-INDEX  .
DATA  GV_INTEX(2 ) TYPE  C  .
DATA  GV_LINE_CNTR TYPE  I  .          "line counter
DATA  GV_LINNO TYPE  I  .              "line number
DATA  GV_COLNO TYPE  I  .              "column number
DATA  GV_VALUE TYPE  I  .              "data
*$*$----------------------------------------------------------------$*$*
*$*$                      Selection Screen                          $*$*
*$*$----------------------------------------------------------------$*$*
*-----------------------------------------------------------------------
*                   Selection Screen
*-----------------------------------------------------------------------
SELECT -OPTIONS S_MATNR FOR  MAKT-MATNR.
*-----------------------------------------------------------------------
*                   At Selection Screen
*-----------------------------------------------------------------------
*--------- INITIALIZATION ----------
INITIALIZATION .

*--------- AT SELECTION-SCREEN OUTPUT ----------
AT  SELECTION-SCREEN  OUTPUT .

*--------- AT SELECTION-SCREEN ----------
AT  SELECTION-SCREEN .

*--------- AT SELECTION-SCREEN ON ----------
AT  SELECTION-SCREEN  ON  ***.

*--------- AT SELECTION-SCREEN ON VALUE-REQUEST ----------
AT  SELECTION-SCREEN  ON  VALUE -REQUEST FOR  ***.

*--------- AT SELECTION-SCREEN ON HELP-REQUEST ----------
AT  SELECTION-SCREEN  ON  HELP-REQUEST FOR  ***.

*$*$----------------------------------------------------------------$*$*
*$*$                          Main Program                          $*$*
*$*$----------------------------------------------------------------$*$*

*--------- START-OF-SELECTION ----------

  PERFORM  ADD .

*--------- END-OF-SELECTION ----------

*$*$----------------------------------------------------------------$*$*
*$*$                         Subroutines                            $*$*
*$*$----------------------------------------------------------------$*$*

*&---------------------------------------------------------------------*
*&      Form  ADD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM  ADD  .

ENDFORM .                    " ADD

*-----------------------------------------------------------------------
*                     PBO Modules
*-----------------------------------------------------------------------
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE  STATUS_0100 OUTPUT .
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.

ENDMODULE .                 " STATUS_0100  OUTPUT

*-----------------------------------------------------------------------
*                     PAI Modules
*-----------------------------------------------------------------------
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE  USER_COMMAND_0100 INPUT .

ENDMODULE .                 " USER_COMMAND_0100  INPUT

* change number# - Start Insert - Kevin 01/01/2007
* description
"comments
* change number# - End Insert - Kevin 01/01/2007

* change number# - Start Modification - Kevin 01/01/2007
* description
"comments
* change number# - End Modification - Kevin 01/01/2007