SAP-abap学习记录（32）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_31
*&
*&---------------------------------------------------------------------*
*&引用子屏幕
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_ABAP_31.

TABLES: mara.


*定义一个子屏幕--------------------------------------------------------
SELECTION-SCREEN BEGIN OF SCREEN 0101 as SUBSCREEN.
  SELECTION-SCREEN BEGIN OF BLOCK frm1 WITH FRAME TITLE text-001.
    select-OPTIONS: data for sy-datum.
    SELECT-OPTIONS matnr for mara-matnr no INTERVALS OBLIGATORY.
  SELECTION-SCREEN END OF BLOCK frm1.
  SELECTION-SCREEN END OF SCREEN 0101.
*&&&-------------------------------------------------------------------

  START-OF-SELECTION.

    call SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS '0100'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  case sy-ucomm.
    WHEN 'EXIT'.
      leave PROGRAM.
  ENDCASE.

ENDMODULE.