作为ABAP的初学者，我参考了KEVIN的程序模板根据自己公司的实际情况稍微做了一些修改，以此作为自己的程序模板。
*&---------------------------------------------------------------------*
*& Report Z_VERN_PROJECT_PROGRAM
*&
*& 创建日期： 程序员 创建请求号 业务顾问
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_VERN_PROJECT_PROGRAM.
*----------------------------------------------------------------*
* 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_TOUTPUT'.
*-----------------------------------------------------------------------
* Field Symbols
*-----------------------------------------------------------------------
FIELD-SYMBOLS:.
*-----------------------------------------------------------------------
* 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
阅读(636) | 评论(0) | 转发(0) |
