跟踪调试代码执行的过程
-------------------------------------------------------------------------程序中的事件代码
INITIALIZATION(ZTEST4)
==============
system-exit
==============
INIT_%_INIT(RSDBRUNT)
%_INIT-GET(ZTEST4)
%_INIT_GET_EVENTS(SAPDB__S)
%_INIT_DYN_NODES(ZTEST4)
%_CTL_INIT(ZTEST4-><SYSINI>:MODULE (PBO))
%_CTL_INIT(SAPMSSYD)
SYSTEM-CALL KERNEL_INFO 'CONTROL_IMODE_OO' l_imode_controls.
%_INIT_PBO(ZTEST4:MODULE (PBO))
%_INIT_PBO_NEW(ZTEST4)
INIT_PBO(RSDBRUNT)
%_INIT_PBO_FIRST
*由SYSTEM-CALL INITIALIZATION.触发调用
-------------------------------------------------------------------------程序中的事件代码
INITIALIZATION(ZTEST4)
PHASE = 3.
*当再次出现选择屏幕时会调用下面的子过程从内存中读取选择屏幕变量,这就是造成赋值不起作用的原因
%_IMPORT_VAR_FROM_MEM (ZTEST4)
%_INIT_PBO_LAST.
*设置菜单功能代码
%_PBO_REPORT(ZTEST4:MODULE (PBO))
-------------------------------------------------------------------------程序中的事件代码
AT SELECTION-SCREEN OUTPUT(ZTEST4)
%_PF_STATUS(ZTEST4-><REPINI>:MODULE (PBO))
SET_PF_STATUS(RSDBRUNT)
%_S_CARRID(ZTEST4:MODULE (PBO))
%_SHOW_TAB(RSDBRUNT)
==============
system-exit
==============
%_END_OF_PBO(ZTEST4-><REPINI>:MODULE (PBO))
%_END_OF_PBO(RSDBRUNT)
==============
system-exit
==============
%_CTL_OUTPUT(ZTEST4-><REPINI>:MODULE (PBO))
%_ctl_output(SAPMSSYD)
*Display selection screen
==============
system-exit
==============
%_CTL_INPUT(ZTEST4-><REPINI>:MODULE (PAI))
%_CTL_INPUT(RSDBRUNT) "值得研究
DIAG_XML_HANDLING(SAPMSSYD)
HANDLE_DIAG_INPUT_DATA(SAPFGUICNTL)
==============
system-exit
==============
%_init_pai(ZTEST4-><REPINI>:MODULE (PAI))
%_INIT_PAI(RSDBRUNT) "值得研究
%_S_CARRID(ZTEST4:MODULE (PAI))
%_UPD_TAB_PART_1(RSDBRUNT)
==============
system-exit
==============
%_END_OF_SCREEN(ZTEST4:MODULE (PAI))
END_OF_BLOCK(RSDBRUNT)
PAI(ZTEST4->SAPDB__S)
-------------------------------------------------------------------------程序中的事件代码
AT SELECTION-SCREEN(ZTEST4:EVENT)
==============
system-exit
==============
%_OK_CODE_1000(ZTEST4-><REPINI>:MODULE (PAI))
%_OK_CODE_1000(RSDBRUNT)
%_START_REPORT(RSDBRUNT)
system-call set_kernel_info 'LIST_TO_MEMORY' submit_info-list_2_mem.
*会将选择的用户输入数据缓存到内存中( EXPORT_VAR_2_MEM)
PHASE = 99.
SET SCREEN 0. LEAVE SCREEN.屏幕离开
++++++++++++++++++++++++++++++++++++++++++++++++++++++
%_CTL_OUTPUT(SAPMSSY0-><SYSINI>: MODULE (PBO))
%_ctl_output(SAPMSSYD)
*CALL FUNCTION 'AC_SYSTEM_FLUSH'
%_CTL_INPUT(SAPMSSY0-><SYSINI>: MODULE (PAI))
%_CTL_INPUT(SAPMSSYD)
-------------------------------------------------------------------------程序中的事件代码
START-OF-SELECTION(ZTEST4)
==============
system-exit
==============
%_ROOT(SAPDB__S)
==============
system-exit
==============
NEW-LINE(SAPMSSY0)
-------------------------------------------------------------------------程序中的事件代码
END-OF-SELECTION(ZTEST4)
*twice called
%_CTL_INIT(SAPMSSY0-><SYSINI>: MODULE (PBO))
%_CTL_INIT(SAPMSSYD)
%_CTL_INIT(SAPMSSY0-><SYSINI>: MODULE (PBO))
%_CTL_INIT(SAPMSSYD)
++++++++++++++++++++++++++++++++++++
有LIST输出 START
%_CTL_OUTPUT(SAPMSSY0-><SYSINI>: MODULE (PBO))
%_ctl_output(SAPMSSYD)
***************输出list
%_CTL_INPUT(SAPMSSY0-><SYSINI>: MODULE (PAI))
%_CTL_INPUT(SAPMSSYD)
LIST_COMMAND(SAPMSSY0: MODULE (PAI))
PRINT_START(SAPMSSY0: MODULE (PAI))
有LIST输出 END
++++++++++++++++++++++++++++++++++++
==============
system-exit
==============
%_LIST_RETURN(SAPMSSY0)
%_RETURN_TO_SELSCREEN(RSDBRUNT)
IF MEMKEY-REPORT NE SPACE.
SUBMIT (MEMKEY-REPORT) VIA SELECTION-SCREEN
%_INTERNAL_%_SUBMODE_% MEMKEY-INT_MODE
USING SELECTION-SCREEN SUBMIT_SCREEN
USING SELECTION-SET MEMKEY-VARIANT.
ENDIF.
%_CTL_INIT(SAPMSSY0-><SYSINI>: MODULE (PBO))
%_CTL_INIT(SAPMSSYD)
==============
system-exit
==============
SYSTEM-EXIT(返回到第一行)
分享到:
相关推荐
ABAP - Keyword Documentation This documentation describes the syntax and meaning of the keywords of the ABAP language and its object-oriented part ABAP Objects. Alongside this, language frameworks ...
ABAP SELECT-SCREEN 的几个用法.doc
ABAP-培训教材附录 ABAP-培训教材ABAP-培训教材ABAP-培训教材ABAP-培训教材
CD260-ABAP-in-Eclipse-开发-CN CD260-ABAP-in-Eclipse-开发-CNCD260-ABAP-in-Eclipse-开发-CNCD260-ABAP-in-Eclipse-开发-CN
SAP-ABAP SELECT-SCREEN 的几个用法 SAP中调用外部程序(RFC) ABAP 读EXCEL 到内表 ABAP总结之BDC完整版 ABAP的面向对象-class的定义 SAP ABAP程序优化方法 table_control中的小操作 ABAP 搜索帮助 ABAP如何自定义...
eclipse-abap-keywordcolors eclipse-abap-关键字颜色
ABAP中SQL语法详细介绍,包括基础语法和各种聚合函数,如MAX,MIN,AVG,COUNT,SUM,DIV,MOD,CEIL,FLOOR,DIVSION,ROUND,FOR ALL ENTRIES IN.除了各种聚合函数还有字段拆分,连接,子语句查询,字段类型转换,分情况赋值...
ABAP-根据T-CODE找用户出口;ABAP-根据T-CODE找用户出口
ABAP-学习笔记-通用
SAP-ABAP-OO-实现-CL-SALV-TABLE
SAP方丈-ABAP-SAP增强应用实例
SAP-ABAP-Certification-Review.pdf
ABAP-选择屏幕 Dynpros 基础 通过这个屏幕实例可以了解屏幕元素的构成,及屏幕事件。
ABAP-数据类型学习笔记
ABAP-EXCEL编程 完整详细例子
SAP中文教材全系列之:ABAP中文标准教材-BC400_ZH_Col63_FV_Part_A4 陆续更新中。
SAP资料集有ABAP-PP-MM-RFC-BAPI-JCO等.rar
ABAP-透明表学习笔记.py
SAP初探之ABAP-数据库对象 解释说明 在ABAP里面 面向对象的概念
ABAP-OLE[借鉴].pdf