PROCESS BEFORE OUTPUT.
MODULE status_0100.
*
PROCESS AFTER INPUT.
MODULE user_command_0100.
MODULE exit_command_0100 AT EXIT-COMMAND.
源码:
**Project Name : SAP Implementation Project
**Program Name : ZTOOL
**Description : 运维工具箱
**Date/Autohr :
** M O D I F I C A T I O N L O G
** ChangeDate Programmer Request Description
** ========== ========== ========== =================================
- 001
REPORT ztool MESSAGE-ID zmm
NO STANDARD PAGE HEADING
LINE-SIZE 120
LINE-COUNT 90.
*** Global Data Declear
INCLUDE ztoolc01.
INCLUDE ztooltop.
INCLUDE ztoolo01.
INCLUDE ztooli01.
INCLUDE ztoolf01.
======================================================================
- Selection Screen Events
======================================================================
*** Maintain Selection Screen Output
AT SELECTION-SCREEN OUTPUT. - PERFORM set_screen.
*** F4 Value Help
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR <p_upfn>.
*** Check Input Data
AT SELECTION-SCREEN.
=======================================&#